Metamath Proof Explorer


Theorem cdleme25c

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

Ref Expression
Hypotheses cdleme24.b B = Base K
cdleme24.l ˙ = K
cdleme24.j ˙ = join K
cdleme24.m ˙ = meet K
cdleme24.a A = Atoms K
cdleme24.h H = LHyp K
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 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q ∃! u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N

Proof

Step Hyp Ref Expression
1 cdleme24.b B = Base K
2 cdleme24.l ˙ = K
3 cdleme24.j ˙ = join K
4 cdleme24.m ˙ = meet K
5 cdleme24.a A = Atoms K
6 cdleme24.h H = LHyp K
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 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N
11 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q K HL
12 simp11r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q W H
13 simp12 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q P A ¬ P ˙ W
14 simp13 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q Q A ¬ Q ˙ W
15 simp3l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q P Q
16 2 3 5 6 cdlemb2 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W ¬ s ˙ P ˙ Q
17 11 12 13 14 15 16 syl221anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q s A ¬ s ˙ W ¬ s ˙ P ˙ Q
18 reusv1 s A ¬ s ˙ W ¬ s ˙ P ˙ Q ∃! u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N
19 17 18 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q ∃! u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N
20 10 19 mpbird K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W R A ¬ R ˙ W P Q R ˙ P ˙ Q ∃! u B s A ¬ s ˙ W ¬ s ˙ P ˙ Q u = N