Metamath Proof Explorer


Theorem cdleme28c

Description: Part of proof of Lemma E in Crawley p. 113. Eliminate the s =/= t antecedent in cdleme28b . 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 cdleme28c KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙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 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 cdleme27b s=tC=Y
18 17 oveq1d s=tC˙X˙W=Y˙X˙W
19 18 adantl KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙Ws=tC˙X˙W=Y˙X˙W
20 simpl11 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstKHLWH
21 simpl12 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstPA¬P˙W
22 simpl13 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstQA¬Q˙W
23 simpl21 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstPQ
24 simpl22 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstsA¬s˙W
25 simpl23 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WsttA¬t˙W
26 simpr KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙Wstst
27 simpl31 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙Wsts˙X˙W=X
28 simpl32 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙Wstt˙X˙W=X
29 27 28 jca KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙Wsts˙X˙W=Xt˙X˙W=X
30 simpl33 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstXB¬X˙W
31 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 cdleme28b KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Wsts˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙W=Y˙X˙W
32 20 21 22 23 24 25 26 29 30 31 syl333anc KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WstC˙X˙W=Y˙X˙W
33 19 32 pm2.61dane KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WtA¬t˙Ws˙X˙W=Xt˙X˙W=XXB¬X˙WC˙X˙W=Y˙X˙W