Metamath Proof Explorer


Theorem cdlemk16

Description: Part of proof of Lemma K of Crawley p. 118. (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 cdlemk16 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RF˙OP˙RFD-1A¬P˙RF˙OP˙RFD-1˙W

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 simp11 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFKHLWH
12 simp23 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRF=RN
13 simp12 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFFT
14 simp13 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFDT
15 simp21 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFNT
16 simp33 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRDRF
17 16 16 jca KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFRDRFRDRF
18 simp31 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFFIB
19 simp32 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFDIB
20 18 18 19 3jca KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFFIBFIBDIB
21 simp22 KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFPA¬P˙W
22 1 2 3 4 5 6 7 8 9 10 cdlemk16a KHLWHRF=RNFTFTDTNTRDRFRDRFFIBFIBDIBPA¬P˙WP˙RF˙OP˙RFD-1A¬P˙RF˙OP˙RFD-1˙W
23 11 12 13 13 14 15 17 20 21 22 syl333anc KHLWHFTDTNTPA¬P˙WRF=RNFIBDIBRDRFP˙RF˙OP˙RFD-1A¬P˙RF˙OP˙RFD-1˙W