Metamath Proof Explorer


Theorem cdlemk33N

Description: Part of proof of Lemma K of Crawley p. 118. TODO: fix comment. Part of attempt to simplify hypotheses. TODO: not needed, is embodied in cdlemk34 . (Contributed by NM, 18-Jul-2013) (New usage is discouraged.)

Ref Expression
Hypotheses cdlemk3.b B=BaseK
cdlemk3.l ˙=K
cdlemk3.j ˙=joinK
cdlemk3.m ˙=meetK
cdlemk3.a A=AtomsK
cdlemk3.h H=LHypK
cdlemk3.t T=LTrnKW
cdlemk3.r R=trLKW
cdlemk3.s S=fTιiT|iP=P˙Rf˙NP˙RfF-1
cdlemk3.u1 Y=dT,eTιjT|jP=P˙Re˙SdP˙Red-1
cdlemk3.x X=ιzT|bTbIBRbRFRbRGz=bYG
Assertion cdlemk33N KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WX=ιzT|bTbIBRbRFRbRGzP=bYGP

Proof

Step Hyp Ref Expression
1 cdlemk3.b B=BaseK
2 cdlemk3.l ˙=K
3 cdlemk3.j ˙=joinK
4 cdlemk3.m ˙=meetK
5 cdlemk3.a A=AtomsK
6 cdlemk3.h H=LHypK
7 cdlemk3.t T=LTrnKW
8 cdlemk3.r R=trLKW
9 cdlemk3.s S=fTιiT|iP=P˙Rf˙NP˙RfF-1
10 cdlemk3.u1 Y=dT,eTιjT|jP=P˙Re˙SdP˙Red-1
11 cdlemk3.x X=ιzT|bTbIBRbRFRbRGz=bYG
12 fveq1 z=bYGzP=bYGP
13 simpl11 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPKHL
14 simpl12 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPWH
15 13 14 jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPKHLWH
16 simpl31 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPzT
17 simp11 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGKHL
18 simp12 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGWH
19 17 18 jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGKHLWH
20 simp13 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGRF=RN
21 simp22l KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGGT
22 19 20 21 3jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGKHLWHRF=RNGT
23 22 adantr KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPKHLWHRF=RNGT
24 simp211 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGFT
25 simp32 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGbT
26 simp213 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGNT
27 24 25 26 3jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGFTbTNT
28 27 adantr KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPFTbTNT
29 simp332 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGRbRF
30 simp333 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGRbRG
31 29 30 jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGRbRFRbRG
32 simp212 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGFIB
33 simp22r KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGGIB
34 simp331 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGbIB
35 32 33 34 3jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGFIBGIBbIB
36 simp23 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGPA¬P˙W
37 31 35 36 3jca KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGRbRFRbRGFIBGIBbIBPA¬P˙W
38 37 adantr KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPRbRFRbRGFIBGIBbIBPA¬P˙W
39 1 2 3 4 5 6 7 8 9 10 cdlemkuel-3 KHLWHRF=RNGTFTbTNTRbRFRbRGFIBGIBbIBPA¬P˙WbYGT
40 23 28 38 39 syl3anc KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPbYGT
41 simpl23 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPPA¬P˙W
42 simpr KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPzP=bYGP
43 2 5 6 7 cdlemd KHLWHzTbYGTPA¬P˙WzP=bYGPz=bYG
44 15 16 40 41 42 43 syl311anc KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPz=bYG
45 44 ex KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGzP=bYGPz=bYG
46 12 45 impbid2 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGz=bYGzP=bYGP
47 46 3expia KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGz=bYGzP=bYGP
48 47 3expd KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGz=bYGzP=bYGP
49 48 imp31 KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGz=bYGzP=bYGP
50 49 pm5.74d KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGz=bYGbIBRbRFRbRGzP=bYGP
51 50 ralbidva KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WzTbTbIBRbRFRbRGz=bYGbTbIBRbRFRbRGzP=bYGP
52 51 riotabidva KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WιzT|bTbIBRbRFRbRGz=bYG=ιzT|bTbIBRbRFRbRGzP=bYGP
53 11 52 eqtrid KHLWHRF=RNFTFIBNTGTGIBPA¬P˙WX=ιzT|bTbIBRbRFRbRGzP=bYGP