Metamath Proof Explorer


Theorem cdlemk47

Description: Part of proof of Lemma K of Crawley p. 118. Line 2, p. 120. G , I stand for g, h. X represents tau. (Contributed by NM, 22-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 cdlemk47 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXP=G/gXP˙RI˙I/gXP˙RG

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 simp11 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIKHLWH
14 simp12 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIFTFIB
15 simp13 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGTGIB
16 simp21 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRINT
17 simp22 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIPA¬P˙W
18 simp23 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRF=RN
19 1 2 3 4 5 6 7 8 9 10 11 cdlemk35s KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNG/gXT
20 13 14 15 16 17 18 19 syl132anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXT
21 2 5 6 7 ltrnel KHLWHG/gXTPA¬P˙WG/gXPA¬G/gXP˙W
22 13 20 17 21 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXPA¬G/gXP˙W
23 22 simpld KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXPA
24 simp31 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIIT
25 simp32 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIIIB
26 1 5 6 7 8 trlnidat KHLWHITIIBRIA
27 13 24 25 26 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRIA
28 24 25 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIITIIB
29 1 2 3 4 5 6 7 8 9 10 11 cdlemk35s KHLWHFTFIBITIIBNTPA¬P˙WRF=RNI/gXT
30 13 14 28 16 17 18 29 syl132anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRII/gXT
31 simp22l KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIPA
32 2 5 6 7 ltrnat KHLWHI/gXTPAI/gXPA
33 13 30 31 32 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRII/gXPA
34 simp13l KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGT
35 simp13r KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGIB
36 1 5 6 7 8 trlnidat KHLWHGTGIBRGA
37 13 34 35 36 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRGA
38 6 7 ltrnco KHLWHGTITGIT
39 13 34 24 38 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGIT
40 34 24 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGTIT
41 simp33 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRGRI
42 1 6 7 8 trlconid KHLWHGTITRGRIGIIB
43 13 40 41 42 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGIIB
44 39 43 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGITGIIB
45 1 2 3 4 5 6 7 8 9 10 11 cdlemk35s KHLWHFTFIBGITGIIBNTPA¬P˙WRF=RNGI/gXT
46 13 14 44 16 17 18 45 syl132anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXT
47 2 5 6 7 ltrnat KHLWHGI/gXTPAGI/gXPA
48 13 46 31 47 syl3anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXPA
49 24 25 43 3jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIITIIBGIIB
50 1 2 3 4 5 6 7 8 9 10 11 cdlemk46 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBGIIBGI/gXP˙G/gXP˙RI
51 49 50 syld3an3 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXP˙G/gXP˙RI
52 1 2 3 4 5 6 7 8 9 10 11 cdlemk45 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBGIIBGI/gXP˙I/gXP˙RG
53 49 52 syld3an3 KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXP˙I/gXP˙RG
54 2 6 7 8 trlle KHLWHITRI˙W
55 13 24 54 syl2anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRI˙W
56 27 55 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRIARI˙W
57 2 6 7 8 trlle KHLWHGTRG˙W
58 13 34 57 syl2anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRG˙W
59 37 58 jca KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRGARG˙W
60 41 necomd KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIRIRG
61 2 3 5 6 lhp2atne KHLWHG/gXPA¬G/gXP˙WI/gXPARIARI˙WRGARG˙WRIRGG/gXP˙RII/gXP˙RG
62 13 22 33 56 59 60 61 syl321anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIG/gXP˙RII/gXP˙RG
63 2 3 4 5 2atm KHLG/gXPARIAI/gXPARGAGI/gXPAGI/gXP˙G/gXP˙RIGI/gXP˙I/gXP˙RGG/gXP˙RII/gXP˙RGGI/gXP=G/gXP˙RI˙I/gXP˙RG
64 12 23 27 33 37 48 51 53 62 63 syl333anc KHLWHFTFIBGTGIBNTPA¬P˙WRF=RNITIIBRGRIGI/gXP=G/gXP˙RI˙I/gXP˙RG