Metamath Proof Explorer


Theorem cdlemi

Description: Lemma I of Crawley p. 118. (Contributed by NM, 19-Jun-2013)

Ref Expression
Hypotheses cdlemi.b B=BaseK
cdlemi.l ˙=K
cdlemi.j ˙=joinK
cdlemi.m ˙=meetK
cdlemi.a A=AtomsK
cdlemi.h H=LHypK
cdlemi.t T=LTrnKW
cdlemi.r R=trLKW
cdlemi.e E=TEndoKW
cdlemi.s S=P˙RG˙UFP˙RGF-1
Assertion cdlemi KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP=S

Proof

Step Hyp Ref Expression
1 cdlemi.b B=BaseK
2 cdlemi.l ˙=K
3 cdlemi.j ˙=joinK
4 cdlemi.m ˙=meetK
5 cdlemi.a A=AtomsK
6 cdlemi.h H=LHypK
7 cdlemi.t T=LTrnKW
8 cdlemi.r R=trLKW
9 cdlemi.e E=TEndoKW
10 cdlemi.s S=P˙RG˙UFP˙RGF-1
11 simp11l KHLWHFTGTUEPA¬P˙WFIBGIBRFRGKHL
12 simp11r KHLWHFTGTUEPA¬P˙WFIBGIBRFRGWH
13 simp2l KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUE
14 simp13 KHLWHFTGTUEPA¬P˙WFIBGIBRFRGGT
15 simp2r KHLWHFTGTUEPA¬P˙WFIBGIBRFRGPA¬P˙W
16 1 2 3 4 5 6 7 8 9 cdlemi1 KHLWHUEGTPA¬P˙WUGP˙P˙RG
17 11 12 13 14 15 16 syl221anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP˙P˙RG
18 simp12 KHLWHFTGTUEPA¬P˙WFIBGIBRFRGFT
19 1 2 3 4 5 6 7 8 9 cdlemi2 KHLWHUEFTGTPA¬P˙WUGP˙UFP˙RGF-1
20 11 12 13 18 14 15 19 syl231anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP˙UFP˙RGF-1
21 11 hllatd KHLWHFTGTUEPA¬P˙WFIBGIBRFRGKLat
22 simp11 KHLWHFTGTUEPA¬P˙WFIBGIBRFRGKHLWH
23 6 7 9 tendocl KHLWHUEGTUGT
24 22 13 14 23 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGT
25 simp2rl KHLWHFTGTUEPA¬P˙WFIBGIBRFRGPA
26 1 5 atbase PAPB
27 25 26 syl KHLWHFTGTUEPA¬P˙WFIBGIBRFRGPB
28 1 6 7 ltrncl KHLWHUGTPBUGPB
29 22 24 27 28 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGPB
30 1 6 7 8 trlcl KHLWHGTRGB
31 22 14 30 syl2anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGRGB
32 1 3 latjcl KLatPBRGBP˙RGB
33 21 27 31 32 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGP˙RGB
34 6 7 9 tendocl KHLWHUEFTUFT
35 22 13 18 34 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUFT
36 1 6 7 ltrncl KHLWHUFTPBUFPB
37 22 35 27 36 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUFPB
38 6 7 ltrncnv KHLWHFTF-1T
39 22 18 38 syl2anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGF-1T
40 6 7 ltrnco KHLWHGTF-1TGF-1T
41 22 14 39 40 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGGF-1T
42 1 6 7 8 trlcl KHLWHGF-1TRGF-1B
43 22 41 42 syl2anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGRGF-1B
44 1 3 latjcl KLatUFPBRGF-1BUFP˙RGF-1B
45 21 37 43 44 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUFP˙RGF-1B
46 1 2 4 latlem12 KLatUGPBP˙RGBUFP˙RGF-1BUGP˙P˙RGUGP˙UFP˙RGF-1UGP˙P˙RG˙UFP˙RGF-1
47 21 29 33 45 46 syl13anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP˙P˙RGUGP˙UFP˙RGF-1UGP˙P˙RG˙UFP˙RGF-1
48 17 20 47 mpbi2and KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP˙P˙RG˙UFP˙RGF-1
49 hlatl KHLKAtLat
50 11 49 syl KHLWHFTGTUEPA¬P˙WFIBGIBRFRGKAtLat
51 2 5 6 7 ltrnat KHLWHUGTPAUGPA
52 22 24 25 51 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGPA
53 2 5 6 7 ltrnel KHLWHUFTPA¬P˙WUFPA¬UFP˙W
54 22 35 15 53 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUFPA¬UFP˙W
55 1 2 3 4 5 6 7 8 9 cdlemi1 KHLWHUEFTPA¬P˙WUFP˙P˙RF
56 11 12 13 18 15 55 syl221anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUFP˙P˙RF
57 15 54 56 3jca KHLWHFTGTUEPA¬P˙WFIBGIBRFRGPA¬P˙WUFPA¬UFP˙WUFP˙P˙RF
58 eqid P˙RG˙UFP˙RGF-1=P˙RG˙UFP˙RGF-1
59 1 2 3 4 5 6 7 8 58 cdlemh KHLWHFTGTPA¬P˙WUFPA¬UFP˙WUFP˙P˙RFFIBGIBRFRGP˙RG˙UFP˙RGF-1A¬P˙RG˙UFP˙RGF-1˙W
60 59 simpld KHLWHFTGTPA¬P˙WUFPA¬UFP˙WUFP˙P˙RFFIBGIBRFRGP˙RG˙UFP˙RGF-1A
61 57 60 syld3an2 KHLWHFTGTUEPA¬P˙WFIBGIBRFRGP˙RG˙UFP˙RGF-1A
62 2 5 atcmp KAtLatUGPAP˙RG˙UFP˙RGF-1AUGP˙P˙RG˙UFP˙RGF-1UGP=P˙RG˙UFP˙RGF-1
63 50 52 61 62 syl3anc KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP˙P˙RG˙UFP˙RGF-1UGP=P˙RG˙UFP˙RGF-1
64 48 63 mpbid KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP=P˙RG˙UFP˙RGF-1
65 64 10 eqtr4di KHLWHFTGTUEPA¬P˙WFIBGIBRFRGUGP=S