Metamath Proof Explorer


Theorem cdleme28b

Description: Lemma for cdleme25b . TODO: FIX COMMENT. (Contributed by NM, 6-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
cdleme27.g G = t ˙ U ˙ Q ˙ P ˙ t ˙ W
cdleme27.o O = P ˙ Q ˙ Z ˙ t ˙ z ˙ W
cdleme27.e E = ι u B | z A ¬ z ˙ W ¬ z ˙ P ˙ Q u = O
cdleme27.y Y = if t ˙ P ˙ Q E G
Assertion cdleme28b K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W C ˙ X ˙ W = Y ˙ X ˙ W

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 cdleme27.g G = t ˙ U ˙ Q ˙ P ˙ t ˙ W
14 cdleme27.o O = P ˙ Q ˙ Z ˙ t ˙ z ˙ W
15 cdleme27.e E = ι u B | z A ¬ z ˙ W ¬ z ˙ P ˙ Q u = O
16 cdleme27.y Y = if t ˙ P ˙ Q E G
17 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W K HL
18 17 hllatd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W K Lat
19 simp11r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W W H
20 simp12 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W P A ¬ P ˙ W
21 simp13 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W Q A ¬ Q ˙ W
22 simp22 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W s A ¬ s ˙ W
23 simp21 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W P Q
24 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
25 17 19 20 21 22 23 24 syl222anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W C B
26 simp33l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W X B
27 1 6 lhpbase W H W B
28 19 27 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W W B
29 1 4 latmcl K Lat X B W B X ˙ W B
30 18 26 28 29 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W X ˙ W B
31 1 3 latjcl K Lat C B X ˙ W B C ˙ X ˙ W B
32 18 25 30 31 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W C ˙ X ˙ W B
33 simp23 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W t A ¬ t ˙ W
34 1 2 3 4 5 6 7 13 9 14 15 16 cdleme27cl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W t A ¬ t ˙ W P Q Y B
35 17 19 20 21 33 23 34 syl222anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W Y B
36 1 3 latjcl K Lat Y B X ˙ W B Y ˙ X ˙ W B
37 18 35 30 36 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W Y ˙ X ˙ W B
38 eqid s ˙ t ˙ X ˙ W = s ˙ t ˙ X ˙ W
39 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 38 cdleme28a K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W C ˙ X ˙ W ˙ Y ˙ X ˙ W
40 simp11 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W K HL W H
41 simp31 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W s t
42 41 necomd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W t s
43 simp32 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W s ˙ X ˙ W = X t ˙ X ˙ W = X
44 43 ancomd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W t ˙ X ˙ W = X s ˙ X ˙ W = X
45 simp33 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W X B ¬ X ˙ W
46 eqid t ˙ s ˙ X ˙ W = t ˙ s ˙ X ˙ W
47 1 2 3 4 5 6 7 13 9 14 15 16 8 10 11 12 46 cdleme28a K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q t A ¬ t ˙ W s A ¬ s ˙ W t s t ˙ X ˙ W = X s ˙ X ˙ W = X X B ¬ X ˙ W Y ˙ X ˙ W ˙ C ˙ X ˙ W
48 40 20 21 23 33 22 42 44 45 47 syl333anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W Y ˙ X ˙ W ˙ C ˙ X ˙ W
49 1 2 18 32 37 39 48 latasymd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W P Q s A ¬ s ˙ W t A ¬ t ˙ W s t s ˙ X ˙ W = X t ˙ X ˙ W = X X B ¬ X ˙ W C ˙ X ˙ W = Y ˙ X ˙ W