Metamath Proof Explorer


Theorem cdleme32e

Description: Part of proof of Lemma D in Crawley p. 113. (Contributed by NM, 20-Feb-2013)

Ref Expression
Hypotheses cdleme32.b B = Base K
cdleme32.l ˙ = K
cdleme32.j ˙ = join K
cdleme32.m ˙ = meet K
cdleme32.a A = Atoms K
cdleme32.h H = LHyp K
cdleme32.u U = P ˙ Q ˙ W
cdleme32.c C = s ˙ U ˙ Q ˙ P ˙ s ˙ W
cdleme32.d D = t ˙ U ˙ Q ˙ P ˙ t ˙ W
cdleme32.e E = P ˙ Q ˙ D ˙ s ˙ t ˙ W
cdleme32.i I = ι y B | t A ¬ t ˙ W ¬ t ˙ P ˙ Q y = E
cdleme32.n N = if s ˙ P ˙ Q I C
cdleme32.o O = ι z B | s A ¬ s ˙ W s ˙ x ˙ W = x z = N ˙ x ˙ W
cdleme32.f F = x B if P Q ¬ x ˙ W O x
Assertion cdleme32e K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y F X ˙ F Y

Proof

Step Hyp Ref Expression
1 cdleme32.b B = Base K
2 cdleme32.l ˙ = K
3 cdleme32.j ˙ = join K
4 cdleme32.m ˙ = meet K
5 cdleme32.a A = Atoms K
6 cdleme32.h H = LHyp K
7 cdleme32.u U = P ˙ Q ˙ W
8 cdleme32.c C = s ˙ U ˙ Q ˙ P ˙ s ˙ W
9 cdleme32.d D = t ˙ U ˙ Q ˙ P ˙ t ˙ W
10 cdleme32.e E = P ˙ Q ˙ D ˙ s ˙ t ˙ W
11 cdleme32.i I = ι y B | t A ¬ t ˙ W ¬ t ˙ P ˙ Q y = E
12 cdleme32.n N = if s ˙ P ˙ Q I C
13 cdleme32.o O = ι z B | s A ¬ s ˙ W s ˙ x ˙ W = x z = N ˙ x ˙ W
14 cdleme32.f F = x B if P Q ¬ x ˙ W O x
15 simp23l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y P Q
16 15 pm2.24d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y ¬ P Q X ˙ N ˙ Y ˙ W
17 simp11l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y K HL
18 17 hllatd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y K Lat
19 simp21l K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X B
20 simp11r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y W H
21 1 6 lhpbase W H W B
22 20 21 syl K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y W B
23 1 2 4 latleeqm1 K Lat X B W B X ˙ W X ˙ W = X
24 18 19 22 23 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ W X ˙ W = X
25 1 4 latmcl K Lat X B W B X ˙ W B
26 18 19 22 25 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ W B
27 simp21r K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y Y B
28 1 4 latmcl K Lat Y B W B Y ˙ W B
29 18 27 22 28 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y Y ˙ W B
30 simp11 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y K HL W H
31 simp12 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y P A ¬ P ˙ W
32 simp13 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y Q A ¬ Q ˙ W
33 simp31 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y s A ¬ s ˙ W
34 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 N B
35 30 31 32 33 15 34 syl122anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y N B
36 1 3 latjcl K Lat N B Y ˙ W B N ˙ Y ˙ W B
37 18 35 29 36 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y N ˙ Y ˙ W B
38 simp33 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ Y
39 1 2 4 latmlem1 K Lat X B Y B W B X ˙ Y X ˙ W ˙ Y ˙ W
40 18 19 27 22 39 syl13anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ Y X ˙ W ˙ Y ˙ W
41 38 40 mpd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ W ˙ Y ˙ W
42 1 2 3 latlej2 K Lat N B Y ˙ W B Y ˙ W ˙ N ˙ Y ˙ W
43 18 35 29 42 syl3anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y Y ˙ W ˙ N ˙ Y ˙ W
44 1 2 18 26 29 37 41 43 lattrd K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ W ˙ N ˙ Y ˙ W
45 breq1 X ˙ W = X X ˙ W ˙ N ˙ Y ˙ W X ˙ N ˙ Y ˙ W
46 44 45 syl5ibcom K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ W = X X ˙ N ˙ Y ˙ W
47 24 46 sylbid K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ W X ˙ N ˙ Y ˙ W
48 simp22 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y ¬ P Q ¬ X ˙ W
49 pm4.53 ¬ P Q ¬ X ˙ W ¬ P Q X ˙ W
50 48 49 sylib K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y ¬ P Q X ˙ W
51 16 47 50 mpjaod K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y X ˙ N ˙ Y ˙ W
52 14 cdleme31fv2 X B ¬ P Q ¬ X ˙ W F X = X
53 19 48 52 syl2anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y F X = X
54 simp1 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W
55 simp23 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y P Q ¬ Y ˙ W
56 simp32 K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y s ˙ Y ˙ W = Y
57 1 2 3 4 5 6 7 8 9 10 11 12 13 14 cdleme32a K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W Y B P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y F Y = N ˙ Y ˙ W
58 54 27 55 33 56 57 syl122anc K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y F Y = N ˙ Y ˙ W
59 51 53 58 3brtr4d K HL W H P A ¬ P ˙ W Q A ¬ Q ˙ W X B Y B ¬ P Q ¬ X ˙ W P Q ¬ Y ˙ W s A ¬ s ˙ W s ˙ Y ˙ W = Y X ˙ Y F X ˙ F Y