Metamath Proof Explorer


Theorem cdlemeg46gfre

Description: TODO FIX COMMENT p. 116 penultimate line: g(f(r)) = r. (Contributed by NM, 4-Apr-2013)

Ref Expression
Hypotheses cdlemef46g.b B=BaseK
cdlemef46g.l ˙=K
cdlemef46g.j ˙=joinK
cdlemef46g.m ˙=meetK
cdlemef46g.a A=AtomsK
cdlemef46g.h H=LHypK
cdlemef46g.u U=P˙Q˙W
cdlemef46g.d D=t˙U˙Q˙P˙t˙W
cdlemefs46g.e E=P˙Q˙D˙s˙t˙W
cdlemef46g.f F=xBifPQ¬x˙WιzB|sA¬s˙Ws˙x˙W=xz=ifs˙P˙QιyB|tA¬t˙W¬t˙P˙Qy=Es/tD˙x˙Wx
cdlemef46.v V=Q˙P˙W
cdlemef46.n N=v˙V˙P˙Q˙v˙W
cdlemefs46.o O=Q˙P˙N˙u˙v˙W
cdlemef46.g G=aBifQP¬a˙WιcB|uA¬u˙Wu˙a˙W=ac=ifu˙Q˙PιbB|vA¬v˙W¬v˙Q˙Pb=Ou/vN˙a˙Wa
Assertion cdlemeg46gfre KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QGFR=R

Proof

Step Hyp Ref Expression
1 cdlemef46g.b B=BaseK
2 cdlemef46g.l ˙=K
3 cdlemef46g.j ˙=joinK
4 cdlemef46g.m ˙=meetK
5 cdlemef46g.a A=AtomsK
6 cdlemef46g.h H=LHypK
7 cdlemef46g.u U=P˙Q˙W
8 cdlemef46g.d D=t˙U˙Q˙P˙t˙W
9 cdlemefs46g.e E=P˙Q˙D˙s˙t˙W
10 cdlemef46g.f F=xBifPQ¬x˙WιzB|sA¬s˙Ws˙x˙W=xz=ifs˙P˙QιyB|tA¬t˙W¬t˙P˙Qy=Es/tD˙x˙Wx
11 cdlemef46.v V=Q˙P˙W
12 cdlemef46.n N=v˙V˙P˙Q˙v˙W
13 cdlemefs46.o O=Q˙P˙N˙u˙v˙W
14 cdlemef46.g G=aBifQP¬a˙WιcB|uA¬u˙Wu˙a˙W=ac=ifu˙Q˙PιbB|vA¬v˙W¬v˙Q˙Pb=Ou/vN˙a˙Wa
15 simp11 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QKHLWH
16 simp12 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QPA¬P˙W
17 simp13 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QQA¬Q˙W
18 simp2l KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QPQ
19 2 3 5 6 cdlemb2 KHLWHPA¬P˙WQA¬Q˙WPQeA¬e˙W¬e˙P˙Q
20 15 16 17 18 19 syl121anc KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙Q
21 simp1 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QKHLWHPA¬P˙WQA¬Q˙W
22 simp2l KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QPQ
23 simp2r KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QRA¬R˙W
24 simp32 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QeA
25 simp33l KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙Q¬e˙W
26 24 25 jca KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QeA¬e˙W
27 simp31 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QR˙P˙Q
28 simp33r KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙Q¬e˙P˙Q
29 1 2 3 4 5 6 7 8 9 10 11 12 13 14 cdlemeg46gfr KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WeA¬e˙WR˙P˙Q¬e˙P˙QGFR=R
30 21 22 23 26 27 28 29 syl132anc KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QGFR=R
31 30 3expia KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QGFR=R
32 31 3expd KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QGFR=R
33 32 3impia KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QGFR=R
34 33 rexlimdv KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QeA¬e˙W¬e˙P˙QGFR=R
35 20 34 mpd KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WR˙P˙QGFR=R