Metamath Proof Explorer


Theorem cdlemk53a

Description: Lemma for cdlemk53 . (Contributed by NM, 26-Jul-2013)

Ref Expression
Hypotheses cdlemk5.b B=BaseK
cdlemk5.l ˙=K
cdlemk5.j ˙=joinK
cdlemk5.m ˙=meetK
cdlemk5.a A=AtomsK
cdlemk5.h H=LHypK
cdlemk5.t T=LTrnKW
cdlemk5.r R=trLKW
cdlemk5.z Z=P˙Rb˙NP˙RbF-1
cdlemk5.y Y=P˙Rg˙Z˙Rgb-1
cdlemk5.x X=ιzT|bTbIBRbRFRbRgzP=Y
Assertion cdlemk53a KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gX=G/gXI/gX

Proof

Step Hyp Ref Expression
1 cdlemk5.b B=BaseK
2 cdlemk5.l ˙=K
3 cdlemk5.j ˙=joinK
4 cdlemk5.m ˙=meetK
5 cdlemk5.a A=AtomsK
6 cdlemk5.h H=LHypK
7 cdlemk5.t T=LTrnKW
8 cdlemk5.r R=trLKW
9 cdlemk5.z Z=P˙Rb˙NP˙RbF-1
10 cdlemk5.y Y=P˙Rg˙Z˙Rgb-1
11 cdlemk5.x X=ιzT|bTbIBRbRFRbRgzP=Y
12 simp11l KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIKHL
13 simp11r KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIWH
14 12 13 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIKHLWH
15 simp12 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIFTFIB
16 simp13l KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGT
17 simp31 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIIT
18 6 7 ltrnco KHLWHGTITGIT
19 12 13 16 17 18 syl211anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGIT
20 simp33 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRGRI
21 1 6 7 8 trlconid KHLWHGTITRGRIGIIB
22 14 16 17 20 21 syl121anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGIIB
23 19 22 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGITGIIB
24 simp21 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRINT
25 simp22 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIPA¬P˙W
26 simp23 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRF=RN
27 1 2 3 4 5 6 7 8 9 10 11 cdlemk35s KHLWHFTFIBGITGIIBNTPA¬P˙WRF=RNGI/gXT
28 14 15 23 24 25 26 27 syl132anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXT
29 simp13 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGTGIB
30 1 2 3 4 5 6 7 8 9 10 11 cdlemk35s KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNG/gXT
31 14 15 29 24 25 26 30 syl132anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXT
32 simp32 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIIIB
33 17 32 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIITIIB
34 1 2 3 4 5 6 7 8 9 10 11 cdlemk35s KHLWHFTFIBITIIBNTPA¬P˙WRF=RNI/gXT
35 14 15 33 24 25 26 34 syl132anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRII/gXT
36 6 7 ltrnco KHLWHG/gXTI/gXTG/gXI/gXT
37 12 13 31 35 36 syl211anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXI/gXT
38 1 2 3 4 5 6 7 8 9 10 11 cdlemk52 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXI/gXP=GI/gXP
39 38 eqcomd KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXP=G/gXI/gXP
40 2 5 6 7 cdlemd KHLWHGI/gXTG/gXI/gXTPA¬P˙WGI/gXP=G/gXI/gXPGI/gX=G/gXI/gX
41 14 28 37 25 39 40 syl311anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gX=G/gXI/gX