Metamath Proof Explorer


Theorem cdlemk3

Description: Part of proof of Lemma K of Crawley p. 118. (Contributed by NM, 3-Jul-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
Assertion cdlemk3 KHLWHFTGTRGRFFIBGIBPA¬P˙WFP˙RF˙FP˙RGF-1=FP

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 simp1l KHLWHFTGTRGRFFIBGIBPA¬P˙WKHL
10 simp1 KHLWHFTGTRGRFFIBGIBPA¬P˙WKHLWH
11 simp2l KHLWHFTGTRGRFFIBGIBPA¬P˙WFT
12 simp32l KHLWHFTGTRGRFFIBGIBPA¬P˙WFIB
13 1 4 5 6 7 trlnidat KHLWHFTFIBRFA
14 10 11 12 13 syl3anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRFA
15 simp2r KHLWHFTGTRGRFFIBGIBPA¬P˙WGT
16 simp31 KHLWHFTGTRGRFFIBGIBPA¬P˙WRGRF
17 4 5 6 7 trlcocnvat KHLWHGTFTRGRFRGF-1A
18 10 15 11 16 17 syl121anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRGF-1A
19 simp33l KHLWHFTGTRGRFFIBGIBPA¬P˙WPA
20 2 4 5 6 ltrnat KHLWHFTPAFPA
21 10 11 19 20 syl3anc KHLWHFTGTRGRFFIBGIBPA¬P˙WFPA
22 5 6 ltrncnv KHLWHFTF-1T
23 10 11 22 syl2anc KHLWHFTGTRGRFFIBGIBPA¬P˙WF-1T
24 5 6 7 trlcnv KHLWHFTRF-1=RF
25 10 11 24 syl2anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRF-1=RF
26 16 necomd KHLWHFTGTRGRFFIBGIBPA¬P˙WRFRG
27 25 26 eqnetrd KHLWHFTGTRGRFFIBGIBPA¬P˙WRF-1RG
28 simp32r KHLWHFTGTRGRFFIBGIBPA¬P˙WGIB
29 1 5 6 7 trlcone KHLWHF-1TGTRF-1RGGIBRF-1RF-1G
30 10 23 15 27 28 29 syl122anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRF-1RF-1G
31 5 6 ltrncom KHLWHF-1TGTF-1G=GF-1
32 10 23 15 31 syl3anc KHLWHFTGTRGRFFIBGIBPA¬P˙WF-1G=GF-1
33 32 fveq2d KHLWHFTGTRGRFFIBGIBPA¬P˙WRF-1G=RGF-1
34 30 25 33 3netr3d KHLWHFTGTRGRFFIBGIBPA¬P˙WRFRGF-1
35 simp33 KHLWHFTGTRGRFFIBGIBPA¬P˙WPA¬P˙W
36 2 4 5 6 ltrnel KHLWHFTPA¬P˙WFPA¬FP˙W
37 36 simprd KHLWHFTPA¬P˙W¬FP˙W
38 10 11 35 37 syl3anc KHLWHFTGTRGRFFIBGIBPA¬P˙W¬FP˙W
39 2 5 6 7 trlle KHLWHFTRF˙W
40 10 11 39 syl2anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRF˙W
41 5 6 ltrnco KHLWHGTF-1TGF-1T
42 10 15 23 41 syl3anc KHLWHFTGTRGRFFIBGIBPA¬P˙WGF-1T
43 2 5 6 7 trlle KHLWHGF-1TRGF-1˙W
44 10 42 43 syl2anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRGF-1˙W
45 9 hllatd KHLWHFTGTRGRFFIBGIBPA¬P˙WKLat
46 1 4 atbase RFARFB
47 14 46 syl KHLWHFTGTRGRFFIBGIBPA¬P˙WRFB
48 1 4 atbase RGF-1ARGF-1B
49 18 48 syl KHLWHFTGTRGRFFIBGIBPA¬P˙WRGF-1B
50 simp1r KHLWHFTGTRGRFFIBGIBPA¬P˙WWH
51 1 5 lhpbase WHWB
52 50 51 syl KHLWHFTGTRGRFFIBGIBPA¬P˙WWB
53 1 2 3 latjle12 KLatRFBRGF-1BWBRF˙WRGF-1˙WRF˙RGF-1˙W
54 45 47 49 52 53 syl13anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRF˙WRGF-1˙WRF˙RGF-1˙W
55 40 44 54 mpbi2and KHLWHFTGTRGRFFIBGIBPA¬P˙WRF˙RGF-1˙W
56 1 4 atbase FPAFPB
57 21 56 syl KHLWHFTGTRGRFFIBGIBPA¬P˙WFPB
58 1 3 4 hlatjcl KHLRFARGF-1ARF˙RGF-1B
59 9 14 18 58 syl3anc KHLWHFTGTRGRFFIBGIBPA¬P˙WRF˙RGF-1B
60 1 2 lattr KLatFPBRF˙RGF-1BWBFP˙RF˙RGF-1RF˙RGF-1˙WFP˙W
61 45 57 59 52 60 syl13anc KHLWHFTGTRGRFFIBGIBPA¬P˙WFP˙RF˙RGF-1RF˙RGF-1˙WFP˙W
62 55 61 mpan2d KHLWHFTGTRGRFFIBGIBPA¬P˙WFP˙RF˙RGF-1FP˙W
63 38 62 mtod KHLWHFTGTRGRFFIBGIBPA¬P˙W¬FP˙RF˙RGF-1
64 2 3 8 4 2llnma2 KHLRFARGF-1AFPARFRGF-1¬FP˙RF˙RGF-1FP˙RF˙FP˙RGF-1=FP
65 9 14 18 21 34 63 64 syl132anc KHLWHFTGTRGRFFIBGIBPA¬P˙WFP˙RF˙FP˙RGF-1=FP