Metamath Proof Explorer


Theorem cdlemk7

Description: Part of proof of Lemma K of Crawley p. 118. Line 5, p. 119. (Contributed by NM, 27-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
cdlemk.v V=GP˙XP˙RGF-1˙RXF-1
Assertion cdlemk7 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSGP˙SXP˙V

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 cdlemk.v V=GP˙XP˙RGF-1˙RXF-1
11 simp1 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFKHLWHFTGT
12 simp2 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFNTXTPA¬P˙WRF=RN
13 simp311 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFFIB
14 simp312 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFGIB
15 simp32 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRF
16 simp33 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRXRF
17 15 16 jca KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRGRFRXRF
18 1 2 3 4 5 6 7 8 cdlemk6 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBRGRFRXRFP˙GP˙NP˙RGF-1˙GP˙XP˙RGF-1˙RXF-1˙XP˙P˙RXF-1˙NP
19 11 12 13 14 17 18 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFP˙GP˙NP˙RGF-1˙GP˙XP˙RGF-1˙RXF-1˙XP˙P˙RXF-1˙NP
20 simp21l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFNT
21 simp22 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFPA¬P˙W
22 simp23 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRF=RN
23 20 21 22 3jca KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFNTPA¬P˙WRF=RN
24 1 2 3 4 5 6 7 8 9 cdlemksv2 KHLWHFTGTNTPA¬P˙WRF=RNFIBGIBRGRFSGP=P˙RG˙NP˙RGF-1
25 11 23 13 14 15 24 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSGP=P˙RG˙NP˙RGF-1
26 simp11 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFKHLWH
27 simp13 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFGT
28 2 3 4 5 6 7 trljat1 KHLWHGTPA¬P˙WP˙RG=P˙GP
29 26 27 21 28 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFP˙RG=P˙GP
30 29 oveq1d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFP˙RG˙NP˙RGF-1=P˙GP˙NP˙RGF-1
31 25 30 eqtrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSGP=P˙GP˙NP˙RGF-1
32 simp11l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFKHL
33 32 hllatd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFKLat
34 simp12 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFFT
35 simp21r KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFXT
36 26 34 35 3jca KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFKHLWHFTXT
37 simp313 KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFXIB
38 1 2 3 4 5 6 7 8 9 cdlemksat KHLWHFTXTNTPA¬P˙WRF=RNFIBXIBRXRFSXPA
39 36 23 13 37 16 38 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSXPA
40 1 4 atbase SXPASXPB
41 39 40 syl KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSXPB
42 simp11r KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFWH
43 simp22l KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFPA
44 1 2 3 4 5 6 7 8 10 cdlemkvcl KHLWHFTGTXTPAVB
45 32 42 34 27 35 43 44 syl231anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFVB
46 1 3 latjcom KLatSXPBVBSXP˙V=V˙SXP
47 33 41 45 46 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSXP˙V=V˙SXP
48 10 a1i KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFV=GP˙XP˙RGF-1˙RXF-1
49 1 2 3 4 5 6 7 8 9 cdlemksv2 KHLWHFTXTNTPA¬P˙WRF=RNFIBXIBRXRFSXP=P˙RX˙NP˙RXF-1
50 36 23 13 37 16 49 syl113anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSXP=P˙RX˙NP˙RXF-1
51 2 3 4 5 6 7 trljat1 KHLWHXTPA¬P˙WP˙RX=P˙XP
52 26 35 21 51 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFP˙RX=P˙XP
53 2 4 5 6 ltrnat KHLWHXTPAXPA
54 26 35 43 53 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFXPA
55 3 4 hlatjcom KHLXPAPAXP˙P=P˙XP
56 32 54 43 55 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFXP˙P=P˙XP
57 52 56 eqtr4d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFP˙RX=XP˙P
58 2 4 5 6 ltrnat KHLWHNTPANPA
59 26 20 43 58 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFNPA
60 35 34 jca KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFXTFT
61 4 5 6 7 trlcocnvat KHLWHXTFTRXRFRXF-1A
62 26 60 16 61 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFRXF-1A
63 3 4 hlatjcom KHLNPARXF-1ANP˙RXF-1=RXF-1˙NP
64 32 59 62 63 syl3anc KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFNP˙RXF-1=RXF-1˙NP
65 57 64 oveq12d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFP˙RX˙NP˙RXF-1=XP˙P˙RXF-1˙NP
66 50 65 eqtrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSXP=XP˙P˙RXF-1˙NP
67 48 66 oveq12d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFV˙SXP=GP˙XP˙RGF-1˙RXF-1˙XP˙P˙RXF-1˙NP
68 47 67 eqtrd KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSXP˙V=GP˙XP˙RGF-1˙RXF-1˙XP˙P˙RXF-1˙NP
69 19 31 68 3brtr4d KHLWHFTGTNTXTPA¬P˙WRF=RNFIBGIBXIBRGRFRXRFSGP˙SXP˙V