Metamath Proof Explorer


Theorem cdlemk12

Description: Part of proof of Lemma K of Crawley p. 118. Eq. 4, line 10, p. 119. (Contributed by NM, 30-Jun-2013)

Ref Expression
Hypotheses cdlemk.b B=BaseK
cdlemk.l ˙=K
cdlemk.j ˙=joinK
cdlemk.a A=AtomsK
cdlemk.h H=LHypK
cdlemk.t T=LTrnKW
cdlemk.r R=trLKW
cdlemk.m ˙=meetK
cdlemk.s S=fTιiT|iP=P˙Rf˙NP˙RfF-1
Assertion cdlemk12 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGP=P˙GP˙SXP˙RXG-1

Proof

Step Hyp Ref Expression
1 cdlemk.b B=BaseK
2 cdlemk.l ˙=K
3 cdlemk.j ˙=joinK
4 cdlemk.a A=AtomsK
5 cdlemk.h H=LHypK
6 cdlemk.t T=LTrnKW
7 cdlemk.r R=trLKW
8 cdlemk.m ˙=meetK
9 cdlemk.s S=fTιiT|iP=P˙Rf˙NP˙RfF-1
10 simp11l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXKHL
11 simp22l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXPA
12 simp11 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXKHLWH
13 simp13 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXGT
14 2 4 5 6 ltrnat KHLWHGTPAGPA
15 12 13 11 14 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXGPA
16 simp12 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXFT
17 simp21r KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXXT
18 12 16 17 3jca KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXKHLWHFTXT
19 simp21l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXNT
20 simp22 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXPA¬P˙W
21 simp23 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRF=RN
22 19 20 21 3jca KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXNTPA¬P˙WRF=RN
23 simp311 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXFIB
24 simp313 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXXIB
25 simp32r KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRXRF
26 1 2 3 4 5 6 7 8 9 cdlemksat KHLWHFTXTNTPA¬P˙WRF=RNFIBXIBRXRFSXPA
27 18 22 23 24 25 26 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSXPA
28 simp33 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRGRX
29 28 necomd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRXRG
30 4 5 6 7 trlcocnvat KHLWHXTGTRXRGRXG-1A
31 12 17 13 29 30 syl121anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRXG-1A
32 simp1 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXKHLWHFTGT
33 simp312 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXGIB
34 simp32l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRGRF
35 1 2 3 4 5 6 7 8 9 cdlemksat KHLWHFTGTNTPA¬P˙WRF=RNFIBGIBRGRFSGPA
36 32 22 23 33 34 35 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGPA
37 1 2 3 4 5 6 7 8 9 cdlemksv2 KHLWHFTGTNTPA¬P˙WRF=RNFIBGIBRGRFSGP=P˙RG˙NP˙RGF-1
38 32 22 23 33 34 37 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGP=P˙RG˙NP˙RGF-1
39 10 hllatd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXKLat
40 1 4 5 6 7 trlnidat KHLWHGTGIBRGA
41 12 13 33 40 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRGA
42 1 3 4 hlatjcl KHLPARGAP˙RGB
43 10 11 41 42 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXP˙RGB
44 2 4 5 6 ltrnat KHLWHNTPANPA
45 12 19 11 44 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXNPA
46 4 5 6 7 trlcocnvat KHLWHGTFTRGRFRGF-1A
47 12 13 16 34 46 syl121anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRGF-1A
48 1 3 4 hlatjcl KHLNPARGF-1ANP˙RGF-1B
49 10 45 47 48 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXNP˙RGF-1B
50 1 2 8 latmle1 KLatP˙RGBNP˙RGF-1BP˙RG˙NP˙RGF-1˙P˙RG
51 39 43 49 50 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXP˙RG˙NP˙RGF-1˙P˙RG
52 38 51 eqbrtrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGP˙P˙RG
53 2 3 4 5 6 7 trljat1 KHLWHGTPA¬P˙WP˙RG=P˙GP
54 12 13 20 53 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXP˙RG=P˙GP
55 52 54 breqtrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGP˙P˙GP
56 simp2 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXNTXTPA¬P˙WRF=RN
57 simp31 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXFIBGIBXIB
58 eqid GP˙XP˙RGF-1˙RXF-1=GP˙XP˙RGF-1˙RXF-1
59 1 2 3 4 5 6 7 8 9 58 cdlemk11 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSGP˙SXP˙RXG-1
60 32 56 57 34 25 59 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGP˙SXP˙RXG-1
61 2 3 4 hlatlej2 KHLPARGARG˙P˙RG
62 10 11 41 61 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG˙P˙RG
63 62 54 breqtrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG˙P˙GP
64 1 2 3 4 5 6 7 8 9 cdlemksel KHLWHFTXTNTPA¬P˙WRF=RNFIBXIBRXRFSXT
65 18 22 23 24 25 64 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSXT
66 2 4 5 6 ltrnel KHLWHSXTPA¬P˙WSXPA¬SXP˙W
67 12 65 20 66 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSXPA¬SXP˙W
68 5 6 ltrncnv KHLWHGTG-1T
69 12 13 68 syl2anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXG-1T
70 5 6 7 trlcnv KHLWHGTRG-1=RG
71 12 13 70 syl2anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG-1=RG
72 71 28 eqnetrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG-1RX
73 1 5 6 7 trlcone KHLWHG-1TXTRG-1RXXIBRG-1RG-1X
74 12 69 17 72 24 73 syl122anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG-1RG-1X
75 74 necomd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG-1XRG-1
76 5 6 ltrncom KHLWHG-1TXTG-1X=XG-1
77 12 69 17 76 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXG-1X=XG-1
78 77 fveq2d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG-1X=RXG-1
79 75 78 71 3netr3d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRXG-1RG
80 5 6 ltrnco KHLWHXTG-1TXG-1T
81 12 17 69 80 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXXG-1T
82 2 5 6 7 trlle KHLWHXG-1TRXG-1˙W
83 12 81 82 syl2anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRXG-1˙W
84 2 5 6 7 trlle KHLWHGTRG˙W
85 12 13 84 syl2anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXRG˙W
86 2 3 4 5 lhp2atnle KHLWHSXPA¬SXP˙WRXG-1RGRXG-1ARXG-1˙WRGARG˙W¬RG˙SXP˙RXG-1
87 12 67 79 31 83 41 85 86 syl322anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRX¬RG˙SXP˙RXG-1
88 nbrne1 RG˙P˙GP¬RG˙SXP˙RXG-1P˙GPSXP˙RXG-1
89 63 87 88 syl2anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXP˙GPSXP˙RXG-1
90 2 3 8 4 2atm KHLPAGPASXPARXG-1ASGPASGP˙P˙GPSGP˙SXP˙RXG-1P˙GPSXP˙RXG-1SGP=P˙GP˙SXP˙RXG-1
91 10 11 15 27 31 36 55 60 89 90 syl333anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRXSGP=P˙GP˙SXP˙RXG-1