Metamath Proof Explorer


Theorem cdleme29b

Description: Transform cdleme28 . (Compare cdleme25b .) TODO: FIX COMMENT. (Contributed by NM, 7-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
Assertion cdleme29b KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WvBsA¬s˙Ws˙X˙W=Xv=C˙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 1 2 3 4 5 6 7 8 9 10 11 12 cdleme29ex KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsA¬s˙Ws˙X˙W=XC˙X˙WB
14 eqid t˙U˙Q˙P˙t˙W=t˙U˙Q˙P˙t˙W
15 eqid P˙Q˙Z˙t˙z˙W=P˙Q˙Z˙t˙z˙W
16 eqid ιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙W=ιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙W
17 eqid ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W
18 1 2 3 4 5 6 7 8 9 10 11 12 14 15 16 17 cdleme28 KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsAtA¬s˙Ws˙X˙W=X¬t˙Wt˙X˙W=XC˙X˙W=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W˙X˙W
19 breq1 s=ts˙Wt˙W
20 19 notbid s=t¬s˙W¬t˙W
21 oveq1 s=ts˙X˙W=t˙X˙W
22 21 eqeq1d s=ts˙X˙W=Xt˙X˙W=X
23 20 22 anbi12d s=t¬s˙Ws˙X˙W=X¬t˙Wt˙X˙W=X
24 12 oveq1i C˙X˙W=ifs˙P˙QDF˙X˙W
25 breq1 s=ts˙P˙Qt˙P˙Q
26 oveq1 s=ts˙z=t˙z
27 26 oveq1d s=ts˙z˙W=t˙z˙W
28 27 oveq2d s=tZ˙s˙z˙W=Z˙t˙z˙W
29 28 oveq2d s=tP˙Q˙Z˙s˙z˙W=P˙Q˙Z˙t˙z˙W
30 10 29 eqtrid s=tN=P˙Q˙Z˙t˙z˙W
31 30 eqeq2d s=tu=Nu=P˙Q˙Z˙t˙z˙W
32 31 imbi2d s=t¬z˙W¬z˙P˙Qu=N¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙W
33 32 ralbidv s=tzA¬z˙W¬z˙P˙Qu=NzA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙W
34 33 riotabidv s=tιuB|zA¬z˙W¬z˙P˙Qu=N=ιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙W
35 11 34 eqtrid s=tD=ιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙W
36 oveq1 s=ts˙U=t˙U
37 oveq2 s=tP˙s=P˙t
38 37 oveq1d s=tP˙s˙W=P˙t˙W
39 38 oveq2d s=tQ˙P˙s˙W=Q˙P˙t˙W
40 36 39 oveq12d s=ts˙U˙Q˙P˙s˙W=t˙U˙Q˙P˙t˙W
41 8 40 eqtrid s=tF=t˙U˙Q˙P˙t˙W
42 25 35 41 ifbieq12d s=tifs˙P˙QDF=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W
43 42 oveq1d s=tifs˙P˙QDF˙X˙W=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W˙X˙W
44 24 43 eqtrid s=tC˙X˙W=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W˙X˙W
45 23 44 reusv3 sA¬s˙Ws˙X˙W=XC˙X˙WBsAtA¬s˙Ws˙X˙W=X¬t˙Wt˙X˙W=XC˙X˙W=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W˙X˙WvBsA¬s˙Ws˙X˙W=Xv=C˙X˙W
46 45 biimpd sA¬s˙Ws˙X˙W=XC˙X˙WBsAtA¬s˙Ws˙X˙W=X¬t˙Wt˙X˙W=XC˙X˙W=ift˙P˙QιuB|zA¬z˙W¬z˙P˙Qu=P˙Q˙Z˙t˙z˙Wt˙U˙Q˙P˙t˙W˙X˙WvBsA¬s˙Ws˙X˙W=Xv=C˙X˙W
47 13 18 46 sylc KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WvBsA¬s˙Ws˙X˙W=Xv=C˙X˙W