Metamath Proof Explorer


Theorem cdlemk1u

Description: Part of proof of Lemma K of Crawley p. 118. (Contributed by NM, 3-Jul-2013)

Ref Expression
Hypotheses cdlemk1.b B=BaseK
cdlemk1.l ˙=K
cdlemk1.j ˙=joinK
cdlemk1.m ˙=meetK
cdlemk1.a A=AtomsK
cdlemk1.h H=LHypK
cdlemk1.t T=LTrnKW
cdlemk1.r R=trLKW
cdlemk1.s S=fTιiT|iP=P˙Rf˙NP˙RfF-1
cdlemk1.o O=SD
Assertion cdlemk1u KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙OP˙DP˙RD

Proof

Step Hyp Ref Expression
1 cdlemk1.b B=BaseK
2 cdlemk1.l ˙=K
3 cdlemk1.j ˙=joinK
4 cdlemk1.m ˙=meetK
5 cdlemk1.a A=AtomsK
6 cdlemk1.h H=LHypK
7 cdlemk1.t T=LTrnKW
8 cdlemk1.r R=trLKW
9 cdlemk1.s S=fTιiT|iP=P˙Rf˙NP˙RfF-1
10 cdlemk1.o O=SD
11 simp11l KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFKHL
12 simp22l KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFPA
13 simp11 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFKHLWH
14 simp13 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFDT
15 simp32 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFDIB
16 1 5 6 7 8 trlnidat KHLWHDTDIBRDA
17 13 14 15 16 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRDA
18 2 3 5 hlatlej1 KHLPARDAP˙P˙RD
19 11 12 17 18 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙P˙RD
20 1 2 3 4 5 6 7 8 9 10 cdlemkole KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFOP˙P˙RD
21 11 hllatd KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFKLat
22 1 5 atbase PAPB
23 12 22 syl KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFPB
24 1 2 3 4 5 6 7 8 9 10 cdlemkoatnle KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFOPA¬OP˙W
25 24 simpld KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFOPA
26 1 5 atbase OPAOPB
27 25 26 syl KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFOPB
28 1 3 5 hlatjcl KHLPARDAP˙RDB
29 11 12 17 28 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RDB
30 1 2 3 latjle12 KLatPBOPBP˙RDBP˙P˙RDOP˙P˙RDP˙OP˙P˙RD
31 21 23 27 29 30 syl13anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙P˙RDOP˙P˙RDP˙OP˙P˙RD
32 19 20 31 mpbi2and KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙OP˙P˙RD
33 simp22 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFPA¬P˙W
34 2 3 5 6 7 8 trljat3 KHLWHDTPA¬P˙WP˙RD=DP˙RD
35 13 14 33 34 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RD=DP˙RD
36 32 35 breqtrd KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙OP˙DP˙RD