Metamath Proof Explorer


Theorem cdleme28b

Description: Lemma for cdleme25b . TODO: FIX COMMENT. (Contributed by NM, 6-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
Assertion cdleme28b 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 simp11l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKHL
18 17 hllatd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKLat
19 simp11r KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WWH
20 simp12 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WPA¬P˙W
21 simp13 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WQA¬Q˙W
22 simp22 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WsA¬s˙W
23 simp21 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WPQ
24 1 2 3 4 5 6 7 8 9 10 11 12 cdleme27cl KHLWHPA¬P˙WQA¬Q˙WsA¬s˙WPQCB
25 17 19 20 21 22 23 24 syl222anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WCB
26 simp33l KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WXB
27 1 6 lhpbase WHWB
28 19 27 syl KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WWB
29 1 4 latmcl KLatXBWBX˙WB
30 18 26 28 29 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WX˙WB
31 1 3 latjcl KLatCBX˙WBC˙X˙WB
32 18 25 30 31 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙WB
33 simp23 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WtA¬t˙W
34 1 2 3 4 5 6 7 13 9 14 15 16 cdleme27cl KHLWHPA¬P˙WQA¬Q˙WtA¬t˙WPQYB
35 17 19 20 21 33 23 34 syl222anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WYB
36 1 3 latjcl KLatYBX˙WBY˙X˙WB
37 18 35 30 36 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WY˙X˙WB
38 eqid s˙t˙X˙W=s˙t˙X˙W
39 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 38 cdleme28a KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙W˙Y˙X˙W
40 simp11 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WKHLWH
41 simp31 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wst
42 41 necomd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wts
43 simp32 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Ws˙X˙W=Xt˙X˙W=X
44 43 ancomd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙Wt˙X˙W=Xs˙X˙W=X
45 simp33 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WXB¬X˙W
46 eqid t˙s˙X˙W=t˙s˙X˙W
47 1 2 3 4 5 6 7 13 9 14 15 16 8 10 11 12 46 cdleme28a KHLWHPA¬P˙WQA¬Q˙WPQtA¬t˙WsA¬s˙Wtst˙X˙W=Xs˙X˙W=XXB¬X˙WY˙X˙W˙C˙X˙W
48 40 20 21 23 33 22 42 44 45 47 syl333anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WY˙X˙W˙C˙X˙W
49 1 2 18 32 37 39 48 latasymd KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙W=Y˙X˙W