Metamath Proof Explorer


Theorem cdlemk15

Description: Part of proof of Lemma K of Crawley p. 118. Line 21 on p. 119. O , D are k_1, f_1. (Contributed by NM, 1-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 cdlemk15 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNP˙P˙RF˙OP˙RFD-1

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 simp21 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNT
15 2 5 6 7 ltrnat KHLWHNTPANPA
16 13 14 12 15 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNPA
17 2 3 5 hlatlej2 KHLPANPANP˙P˙NP
18 11 12 16 17 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNP˙P˙NP
19 simp23 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRF=RN
20 19 oveq2d KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RF=P˙RN
21 simp22 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFPA¬P˙W
22 2 3 5 6 7 8 trljat1 KHLWHNTPA¬P˙WP˙RN=P˙NP
23 13 14 21 22 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RN=P˙NP
24 20 23 eqtr2d KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙NP=P˙RF
25 18 24 breqtrd KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNP˙P˙RF
26 1 2 3 4 5 6 7 8 9 10 cdlemk14 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNP˙OP˙RFD-1
27 11 hllatd KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFKLat
28 1 5 atbase NPANPB
29 16 28 syl KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNPB
30 simp12 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFFT
31 simp31 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFFIB
32 1 5 6 7 8 trlnidat KHLWHFTFIBRFA
33 13 30 31 32 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRFA
34 1 3 5 hlatjcl KHLPARFAP˙RFB
35 11 12 33 34 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RFB
36 10 fveq1i OP=SDP
37 1 2 3 5 6 7 8 4 9 cdlemksat KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFSDPA
38 36 37 eqeltrid KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFOPA
39 simp13 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFDT
40 simp33 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRDRF
41 40 necomd KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRFRD
42 5 6 7 8 trlcocnvat KHLWHFTDTRFRDRFD-1A
43 13 30 39 41 42 syl121anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRFD-1A
44 1 3 5 hlatjcl KHLOPARFD-1AOP˙RFD-1B
45 11 38 43 44 syl3anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFOP˙RFD-1B
46 1 2 4 latlem12 KLatNPBP˙RFBOP˙RFD-1BNP˙P˙RFNP˙OP˙RFD-1NP˙P˙RF˙OP˙RFD-1
47 27 29 35 45 46 syl13anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNP˙P˙RFNP˙OP˙RFD-1NP˙P˙RF˙OP˙RFD-1
48 25 26 47 mpbi2and KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNP˙P˙RF˙OP˙RFD-1