Metamath Proof Explorer


Theorem cdleme25c

Description: Transform cdleme25b . (Contributed by NM, 1-Jan-2013)

Ref Expression
Hypotheses cdleme24.b B=BaseK
cdleme24.l ˙=K
cdleme24.j ˙=joinK
cdleme24.m ˙=meetK
cdleme24.a A=AtomsK
cdleme24.h H=LHypK
cdleme24.u U=P˙Q˙W
cdleme24.f F=s˙U˙Q˙P˙s˙W
cdleme24.n N=P˙Q˙F˙R˙s˙W
Assertion cdleme25c KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙Q∃!uBsA¬s˙W¬s˙P˙Qu=N

Proof

Step Hyp Ref Expression
1 cdleme24.b B=BaseK
2 cdleme24.l ˙=K
3 cdleme24.j ˙=joinK
4 cdleme24.m ˙=meetK
5 cdleme24.a A=AtomsK
6 cdleme24.h H=LHypK
7 cdleme24.u U=P˙Q˙W
8 cdleme24.f F=s˙U˙Q˙P˙s˙W
9 cdleme24.n N=P˙Q˙F˙R˙s˙W
10 1 2 3 4 5 6 7 8 9 cdleme25b KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QuBsA¬s˙W¬s˙P˙Qu=N
11 simp11l KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QKHL
12 simp11r KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QWH
13 simp12 KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QPA¬P˙W
14 simp13 KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QQA¬Q˙W
15 simp3l KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QPQ
16 2 3 5 6 cdlemb2 KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙W¬s˙P˙Q
17 11 12 13 14 15 16 syl221anc KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙QsA¬s˙W¬s˙P˙Q
18 reusv1 sA¬s˙W¬s˙P˙Q∃!uBsA¬s˙W¬s˙P˙Qu=NuBsA¬s˙W¬s˙P˙Qu=N
19 17 18 syl KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙Q∃!uBsA¬s˙W¬s˙P˙Qu=NuBsA¬s˙W¬s˙P˙Qu=N
20 10 19 mpbird KHLWHPA¬P˙WQA¬Q˙WRA¬R˙WPQR˙P˙Q∃!uBsA¬s˙W¬s˙P˙Qu=N