Metamath Proof Explorer


Theorem cdlemg17

Description: Part of Lemma G of Crawley p. 117, lines 7 and 8. We show an argument whose value at G equals itself. TODO: fix comment. (Contributed by NM, 12-May-2013)

Ref Expression
Hypotheses cdlemg12.l ˙=K
cdlemg12.j ˙=joinK
cdlemg12.m ˙=meetK
cdlemg12.a A=AtomsK
cdlemg12.h H=LHypK
cdlemg12.t T=LTrnKW
cdlemg12b.r R=trLKW
Assertion cdlemg17 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙FGP˙Q˙FGQ=P˙FGP˙Q˙FGQ

Proof

Step Hyp Ref Expression
1 cdlemg12.l ˙=K
2 cdlemg12.j ˙=joinK
3 cdlemg12.m ˙=meetK
4 cdlemg12.a A=AtomsK
5 cdlemg12.h H=LHypK
6 cdlemg12.t T=LTrnKW
7 cdlemg12b.r R=trLKW
8 simp11 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rKHLWH
9 simp22 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGT
10 simp12l KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rPA
11 eqid BaseK=BaseK
12 11 4 atbase PAPBaseK
13 10 12 syl KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rPBaseK
14 simp21 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFT
15 1 4 5 6 ltrncoat KHLWHFTGTPAFGPA
16 8 14 9 10 15 syl121anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFGPA
17 11 4 atbase FGPAFGPBaseK
18 16 17 syl KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFGPBaseK
19 11 2 5 6 ltrnj KHLWHGTPBaseKFGPBaseKGP˙FGP=GP˙GFGP
20 8 9 13 18 19 syl112anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙FGP=GP˙GFGP
21 simp1 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rKHLWHPA¬P˙WQA¬Q˙W
22 simp23 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rPQ
23 simp3 KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙r
24 1 2 3 4 5 6 7 cdlemg17b KHLWHPA¬P˙WQA¬Q˙WGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP=Q
25 21 9 22 23 24 syl121anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP=Q
26 25 fveq2d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFGP=FQ
27 26 fveq2d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGFGP=GFQ
28 1 2 3 4 5 6 7 cdlemg17jq KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGFQ=FGQ
29 27 28 eqtrd KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGFGP=FGQ
30 25 29 oveq12d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙GFGP=Q˙FGQ
31 20 30 eqtrd KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙FGP=Q˙FGQ
32 simp13l KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rQA
33 11 4 atbase QAQBaseK
34 32 33 syl KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rQBaseK
35 1 4 5 6 ltrncoat KHLWHFTGTQAFGQA
36 8 14 9 32 35 syl121anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFGQA
37 11 4 atbase FGQAFGQBaseK
38 36 37 syl KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFGQBaseK
39 11 2 5 6 ltrnj KHLWHGTQBaseKFGQBaseKGQ˙FGQ=GQ˙GFGQ
40 8 9 34 38 39 syl112anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGQ˙FGQ=GQ˙GFGQ
41 1 2 3 4 5 6 7 cdlemg17bq KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGQ=P
42 41 fveq2d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rFGQ=FP
43 42 fveq2d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGFGQ=GFP
44 1 2 3 4 5 6 7 cdlemg17j KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGFP=FGP
45 43 44 eqtrd KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGFGQ=FGP
46 41 45 oveq12d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGQ˙GFGQ=P˙FGP
47 40 46 eqtrd KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGQ˙FGQ=P˙FGP
48 31 47 oveq12d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙FGP˙GQ˙FGQ=Q˙FGQ˙P˙FGP
49 simp11l KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rKHL
50 11 2 4 hlatjcl KHLPAFGPAP˙FGPBaseK
51 49 10 16 50 syl3anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rP˙FGPBaseK
52 11 2 4 hlatjcl KHLQAFGQAQ˙FGQBaseK
53 49 32 36 52 syl3anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rQ˙FGQBaseK
54 11 3 5 6 ltrnm KHLWHGTP˙FGPBaseKQ˙FGQBaseKGP˙FGP˙Q˙FGQ=GP˙FGP˙GQ˙FGQ
55 8 9 51 53 54 syl112anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙FGP˙Q˙FGQ=GP˙FGP˙GQ˙FGQ
56 49 hllatd KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rKLat
57 11 3 latmcom KLatP˙FGPBaseKQ˙FGQBaseKP˙FGP˙Q˙FGQ=Q˙FGQ˙P˙FGP
58 56 51 53 57 syl3anc KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rP˙FGP˙Q˙FGQ=Q˙FGQ˙P˙FGP
59 48 55 58 3eqtr4d KHLWHPA¬P˙WQA¬Q˙WFTGTPQGPPRG˙P˙Q¬rA¬r˙WP˙r=Q˙rGP˙FGP˙Q˙FGQ=P˙FGP˙Q˙FGQ