Metamath Proof Explorer


Theorem cdlemd9

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

Ref Expression
Hypotheses cdlemd4.l ˙=K
cdlemd4.j ˙=joinK
cdlemd4.a A=AtomsK
cdlemd4.h H=LHypK
cdlemd4.t T=LTrnKW
Assertion cdlemd9 KHLWHFTGTRAPA¬P˙WFP=GPFR=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 simpl1 KHLWHFTGTRAPA¬P˙WFP=GPFP=PKHLWHFTGTRA
7 simpl2 KHLWHFTGTRAPA¬P˙WFP=GPFP=PPA¬P˙W
8 simpl3 KHLWHFTGTRAPA¬P˙WFP=GPFP=PFP=GP
9 simpr KHLWHFTGTRAPA¬P˙WFP=GPFP=PFP=P
10 1 2 3 4 5 cdlemd8 KHLWHFTGTRAPA¬P˙WFP=GPFP=PFR=GR
11 6 7 8 9 10 syl112anc KHLWHFTGTRAPA¬P˙WFP=GPFP=PFR=GR
12 simpl11 KHLWHFTGTRAPA¬P˙WFP=GPFPPKHLWH
13 simpl2 KHLWHFTGTRAPA¬P˙WFP=GPFPPPA¬P˙W
14 simp12l KHLWHFTGTRAPA¬P˙WFP=GPFT
15 14 adantr KHLWHFTGTRAPA¬P˙WFP=GPFPPFT
16 1 3 4 5 ltrnel KHLWHFTPA¬P˙WFPA¬FP˙W
17 12 15 13 16 syl3anc KHLWHFTGTRAPA¬P˙WFP=GPFPPFPA¬FP˙W
18 simpr KHLWHFTGTRAPA¬P˙WFP=GPFPPFPP
19 18 necomd KHLWHFTGTRAPA¬P˙WFP=GPFPPPFP
20 1 2 3 4 cdlemb2 KHLWHPA¬P˙WFPA¬FP˙WPFPsA¬s˙W¬s˙P˙FP
21 12 13 17 19 20 syl121anc KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FP
22 simp1l1 KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPKHLWHFTGTRA
23 simp1l2 KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPPA¬P˙W
24 simp2 KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPsA
25 simp3l KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FP¬s˙W
26 24 25 jca KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPsA¬s˙W
27 simp1l3 KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPFP=GP
28 simp3r KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FP¬s˙P˙FP
29 1 2 3 4 5 cdlemd7 KHLWHFTGTRAPA¬P˙WsA¬s˙WFP=GP¬s˙P˙FPFR=GR
30 22 23 26 27 28 29 syl122anc KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPFR=GR
31 30 rexlimdv3a KHLWHFTGTRAPA¬P˙WFP=GPFPPsA¬s˙W¬s˙P˙FPFR=GR
32 21 31 mpd KHLWHFTGTRAPA¬P˙WFP=GPFPPFR=GR
33 11 32 pm2.61dane KHLWHFTGTRAPA¬P˙WFP=GPFR=GR