Metamath Proof Explorer


Theorem cdlemd4

Description: Part of proof of Lemma D in Crawley p. 113. (Contributed by NM, 30-May-2012)

Ref Expression
Hypotheses cdlemd4.l ˙=K
cdlemd4.j ˙=joinK
cdlemd4.a A=AtomsK
cdlemd4.h H=LHypK
cdlemd4.t T=LTrnKW
Assertion cdlemd4 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQFR=GR

Proof

Step Hyp Ref Expression
1 cdlemd4.l ˙=K
2 cdlemd4.j ˙=joinK
3 cdlemd4.a A=AtomsK
4 cdlemd4.h H=LHypK
5 cdlemd4.t T=LTrnKW
6 simp11l KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQKHL
7 simp11r KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQWH
8 simp21 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQPA¬P˙W
9 simp22 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQQA¬Q˙W
10 simp231 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQPQ
11 1 2 3 4 cdlemb2 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙W¬s˙P˙Q
12 6 7 8 9 10 11 syl221anc KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙Q
13 simpl11 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QKHLWH
14 simpl12 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QFTGT
15 simpl13 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QRA
16 simpl21 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPA¬P˙W
17 simprl KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QsA
18 simprrl KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙Q¬s˙W
19 17 18 jca KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QsA¬s˙W
20 6 hllatd KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQKLat
21 20 adantr KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QKLat
22 eqid BaseK=BaseK
23 22 3 atbase sAsBaseK
24 23 ad2antrl KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QsBaseK
25 simp21l KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQPA
26 22 3 atbase PAPBaseK
27 25 26 syl KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQPBaseK
28 27 adantr KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPBaseK
29 simp22l KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQQA
30 22 3 atbase QAQBaseK
31 29 30 syl KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQQBaseK
32 31 adantr KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QQBaseK
33 simprrr KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙Q¬s˙P˙Q
34 22 1 2 latnlej1l KLatsBaseKPBaseKQBaseK¬s˙P˙QsP
35 34 necomd KLatsBaseKPBaseKQBaseK¬s˙P˙QPs
36 21 24 28 32 33 35 syl131anc KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPs
37 simpl22 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QQA¬Q˙W
38 simpl23 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPQR˙P˙QRP
39 1 2 3 4 cdlemd3 KHLWHPA¬P˙WQA¬Q˙WPQR˙P˙QRPRAsA¬s˙P˙Q¬R˙P˙s
40 13 16 37 38 15 17 33 39 syl133anc KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙Q¬R˙P˙s
41 36 40 jca KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPs¬R˙P˙s
42 simpl3l KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QFP=GP
43 10 adantr KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPQ
44 43 33 jca KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QPQ¬s˙P˙Q
45 simpl3 KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QFP=GPFQ=GQ
46 1 2 3 4 5 cdlemd2 KHLWHFTGTsAPA¬P˙WQA¬Q˙WPQ¬s˙P˙QFP=GPFQ=GQFs=Gs
47 13 14 17 16 37 44 45 46 syl331anc KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QFs=Gs
48 1 2 3 4 5 cdlemd2 KHLWHFTGTRAPA¬P˙WsA¬s˙WPs¬R˙P˙sFP=GPFs=GsFR=GR
49 13 14 15 16 19 41 42 47 48 syl332anc KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQsA¬s˙W¬s˙P˙QFR=GR
50 12 49 rexlimddv KHLWHFTGTRAPA¬P˙WQA¬Q˙WPQR˙P˙QRPFP=GPFQ=GQFR=GR