Metamath Proof Explorer


Theorem cdleme28a

Description: Lemma for cdleme25b . TODO: FIX COMMENT. (Contributed by NM, 4-Feb-2013)

Ref Expression
Hypotheses cdleme26.b B=BaseK
cdleme26.l ˙=K
cdleme26.j ˙=joinK
cdleme26.m ˙=meetK
cdleme26.a A=AtomsK
cdleme26.h H=LHypK
cdleme27.u U=P˙Q˙W
cdleme27.f F=s˙U˙Q˙P˙s˙W
cdleme27.z Z=z˙U˙Q˙P˙z˙W
cdleme27.n N=P˙Q˙Z˙s˙z˙W
cdleme27.d D=ιuB|zA¬z˙W¬z˙P˙Qu=N
cdleme27.c C=ifs˙P˙QDF
cdleme27.g G=t˙U˙Q˙P˙t˙W
cdleme27.o O=P˙Q˙Z˙t˙z˙W
cdleme27.e E=ιuB|zA¬z˙W¬z˙P˙Qu=O
cdleme27.y Y=ift˙P˙QEG
cdleme28a.v V=s˙t˙X˙W
Assertion cdleme28a KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙W˙Y˙X˙W

Proof

Step Hyp Ref Expression
1 cdleme26.b B=BaseK
2 cdleme26.l ˙=K
3 cdleme26.j ˙=joinK
4 cdleme26.m ˙=meetK
5 cdleme26.a A=AtomsK
6 cdleme26.h H=LHypK
7 cdleme27.u U=P˙Q˙W
8 cdleme27.f F=s˙U˙Q˙P˙s˙W
9 cdleme27.z Z=z˙U˙Q˙P˙z˙W
10 cdleme27.n N=P˙Q˙Z˙s˙z˙W
11 cdleme27.d D=ιuB|zA¬z˙W¬z˙P˙Qu=N
12 cdleme27.c C=ifs˙P˙QDF
13 cdleme27.g G=t˙U˙Q˙P˙t˙W
14 cdleme27.o O=P˙Q˙Z˙t˙z˙W
15 cdleme27.e E=ιuB|zA¬z˙W¬z˙P˙Qu=O
16 cdleme27.y Y=ift˙P˙QEG
17 cdleme28a.v V=s˙t˙X˙W
18 simp11l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKHL
19 18 hllatd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKLat
20 simp11r KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WWH
21 simp12 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WPA¬P˙W
22 simp13 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WQA¬Q˙W
23 simp22 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WsA¬s˙W
24 simp21 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WPQ
25 1 2 3 4 5 6 7 8 9 10 11 12 cdleme27cl KHLWHPA¬P˙WQA¬Q˙WsA¬s˙WPQCB
26 18 20 21 22 23 24 25 syl222anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WCB
27 simp23 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WtA¬t˙W
28 1 2 3 4 5 6 7 13 9 14 15 16 cdleme27cl KHLWHPA¬P˙WQA¬Q˙WtA¬t˙WPQYB
29 18 20 21 22 27 24 28 syl222anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WYB
30 simp11 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKHLWH
31 30 23 27 3jca KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKHLWHsA¬s˙WtA¬t˙W
32 simp33 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WXB¬X˙W
33 simp31 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wst
34 simp32l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Ws˙X˙W=X
35 simp32r KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wt˙X˙W=X
36 33 34 35 3jca KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wsts˙X˙W=Xt˙X˙W=X
37 1 2 3 4 5 6 17 cdleme23b KHLWHsA¬s˙WtA¬t˙WXB¬X˙Wsts˙X˙W=Xt˙X˙W=XVA
38 31 32 36 37 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WVA
39 1 5 atbase VAVB
40 38 39 syl KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WVB
41 1 3 latjcl KLatYBVBY˙VB
42 19 29 40 41 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WY˙VB
43 simp33l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WXB
44 1 6 lhpbase WHWB
45 20 44 syl KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WWB
46 1 4 latmcl KLatXBWBX˙WB
47 19 43 45 46 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WX˙WB
48 1 3 latjcl KLatYBX˙WBY˙X˙WB
49 19 29 47 48 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WY˙X˙WB
50 1 2 3 4 5 6 17 cdleme23c KHLWHsA¬s˙WtA¬t˙WXB¬X˙Wsts˙X˙W=Xt˙X˙W=Xs˙t˙V
51 31 32 36 50 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Ws˙t˙V
52 33 51 jca KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wsts˙t˙V
53 1 2 3 4 5 6 17 cdleme23a KHLWHsA¬s˙WtA¬t˙WXB¬X˙Wsts˙X˙W=Xt˙X˙W=XV˙W
54 31 32 36 53 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WV˙W
55 38 54 jca KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WVAV˙W
56 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 cdleme27a KHLWHPQsA¬s˙WPA¬P˙WQA¬Q˙WtA¬t˙Wsts˙t˙VVAV˙WC˙Y˙V
57 30 24 23 21 22 27 52 55 56 syl332anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙Y˙V
58 simp22l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WsA
59 simp23l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WtA
60 1 3 5 hlatjcl KHLsAtAs˙tB
61 18 58 59 60 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Ws˙tB
62 1 2 4 latmle2 KLats˙tBX˙WBs˙t˙X˙W˙X˙W
63 19 61 47 62 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Ws˙t˙X˙W˙X˙W
64 17 63 eqbrtrid KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WV˙X˙W
65 1 2 3 latjlej2 KLatVBX˙WBYBV˙X˙WY˙V˙Y˙X˙W
66 19 40 47 29 65 syl13anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WV˙X˙WY˙V˙Y˙X˙W
67 64 66 mpd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WY˙V˙Y˙X˙W
68 1 2 19 26 42 49 57 67 lattrd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙Y˙X˙W
69 1 2 3 latlej2 KLatYBX˙WBX˙W˙Y˙X˙W
70 19 29 47 69 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WX˙W˙Y˙X˙W
71 1 2 3 latjle12 KLatCBX˙WBY˙X˙WBC˙Y˙X˙WX˙W˙Y˙X˙WC˙X˙W˙Y˙X˙W
72 19 26 47 49 71 syl13anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙Y˙X˙WX˙W˙Y˙X˙WC˙X˙W˙Y˙X˙W
73 68 70 72 mpbi2and KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙W˙Y˙X˙W