Metamath Proof Explorer


Theorem cdleme29ex

Description: Lemma for cdleme29b . (Compare cdleme25a .) TODO: FIX COMMENT. (Contributed by NM, 7-Feb-2013)

Ref Expression
Hypotheses cdleme26.b B = Base K
cdleme26.l ˙ = K
cdleme26.j ˙ = join K
cdleme26.m ˙ = meet K
cdleme26.a A = Atoms K
cdleme26.h H = LHyp K
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 = ι u B | z A ¬ z ˙ W ¬ z ˙ P ˙ Q u = N
cdleme27.c C = if s ˙ P ˙ Q D F
Assertion cdleme29ex K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X C ˙ X ˙ W B

Proof

Step Hyp Ref Expression
1 cdleme26.b B = Base K
2 cdleme26.l ˙ = K
3 cdleme26.j ˙ = join K
4 cdleme26.m ˙ = meet K
5 cdleme26.a A = Atoms K
6 cdleme26.h H = LHyp K
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 = ι u B | z A ¬ z ˙ W ¬ z ˙ P ˙ Q u = N
12 cdleme27.c C = if s ˙ P ˙ Q D F
13 simp11 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W K HL W H
14 simp3 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W X B ¬ X ˙ W
15 1 2 3 4 5 6 lhpmcvr2 K HL W H X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X
16 13 14 15 syl2anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X
17 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W K HL
18 17 adantr K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W K HL
19 18 hllatd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W K Lat
20 simp11r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W W H
21 20 adantr K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W W H
22 simpl12 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W P A ¬ P ˙ W
23 simpl13 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W Q A ¬ Q ˙ W
24 simpr K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s A ¬ s ˙ W
25 simpl2 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W P Q
26 1 2 3 4 5 6 7 8 9 10 11 12 cdleme27cl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W s A ¬ s ˙ W P Q C B
27 18 21 22 23 24 25 26 syl222anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W C B
28 simpl3l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W X B
29 1 6 lhpbase W H W B
30 21 29 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W W B
31 1 4 latmcl K Lat X B W B X ˙ W B
32 19 28 30 31 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W X ˙ W B
33 1 3 latjcl K Lat C B X ˙ W B C ˙ X ˙ W B
34 19 27 32 33 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W C ˙ X ˙ W B
35 34 expr K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W C ˙ X ˙ W B
36 35 adantrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X C ˙ X ˙ W B
37 36 ancld K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X ¬ s ˙ W s ˙ X ˙ W = X C ˙ X ˙ W B
38 37 reximdva K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X s A ¬ s ˙ W s ˙ X ˙ W = X C ˙ X ˙ W B
39 16 38 mpd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q X B ¬ X ˙ W s A ¬ s ˙ W s ˙ X ˙ W = X C ˙ X ˙ W B