Metamath Proof Explorer


Theorem cdleme42i

Description: Part of proof of Lemma E in Crawley p. 113. (Contributed by NM, 8-Mar-2013)

Ref Expression
Hypotheses cdleme41.b ⊢ B = Base K
cdleme41.l ⊢ ≤ ˙ = ≤ K
cdleme41.j ⊢ ∨ ˙ = join ⁡ K
cdleme41.m ⊢ ∧ ˙ = meet ⁡ K
cdleme41.a ⊢ A = Atoms ⁡ K
cdleme41.h ⊢ H = LHyp ⁡ K
cdleme41.u ⊢ U = P ∨ ˙ Q ∧ ˙ W
cdleme41.d ⊢ D = s ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ s ∧ ˙ W
cdleme41.e ⊢ E = t ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ t ∧ ˙ W
cdleme41.g ⊢ G = P ∨ ˙ Q ∧ ˙ E ∨ ˙ s ∨ ˙ t ∧ ˙ W
cdleme41.i ⊢ I = ι y ∈ B | ∀ t ∈ A ¬ t ≤ ˙ W ∧ ¬ t ≤ ˙ P ∨ ˙ Q → y = G
cdleme41.n ⊢ N = if s ≤ ˙ P ∨ ˙ Q I D
cdleme41.o ⊢ O = ι z ∈ B | ∀ s ∈ A ¬ s ≤ ˙ W ∧ s ∨ ˙ x ∧ ˙ W = x → z = N ∨ ˙ x ∧ ˙ W
cdleme41.f ⊢ F = x ∈ B ⟼ if P ≠ Q ∧ ¬ x ≤ ˙ W O x
cdleme34e.v ⊢ V = R ∨ ˙ S ∧ ˙ W
Assertion cdleme42i ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ∨ ˙ F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V

Proof

Step Hyp Ref Expression
1 cdleme41.b ⊢ B = Base K
2 cdleme41.l ⊢ ≤ ˙ = ≤ K
3 cdleme41.j ⊢ ∨ ˙ = join ⁡ K
4 cdleme41.m ⊢ ∧ ˙ = meet ⁡ K
5 cdleme41.a ⊢ A = Atoms ⁡ K
6 cdleme41.h ⊢ H = LHyp ⁡ K
7 cdleme41.u ⊢ U = P ∨ ˙ Q ∧ ˙ W
8 cdleme41.d ⊢ D = s ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ s ∧ ˙ W
9 cdleme41.e ⊢ E = t ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ t ∧ ˙ W
10 cdleme41.g ⊢ G = P ∨ ˙ Q ∧ ˙ E ∨ ˙ s ∨ ˙ t ∧ ˙ W
11 cdleme41.i ⊢ I = ι y ∈ B | ∀ t ∈ A ¬ t ≤ ˙ W ∧ ¬ t ≤ ˙ P ∨ ˙ Q → y = G
12 cdleme41.n ⊢ N = if s ≤ ˙ P ∨ ˙ Q I D
13 cdleme41.o ⊢ O = ι z ∈ B | ∀ s ∈ A ¬ s ≤ ˙ W ∧ s ∨ ˙ x ∧ ˙ W = x → z = N ∨ ˙ x ∧ ˙ W
14 cdleme41.f ⊢ F = x ∈ B ⟼ if P ≠ Q ∧ ¬ x ≤ ˙ W O x
15 cdleme34e.v ⊢ V = R ∨ ˙ S ∧ ˙ W
16 simp11l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → K ∈ HL
17 16 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → K ∈ Lat
18 simp1 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W
19 simp2ll ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → R ∈ A
20 1 5 atbase ⊢ R ∈ A → R ∈ B
21 19 20 syl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → R ∈ B
22 1 2 3 4 5 6 7 8 9 10 11 12 13 14 cdleme32fvcl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ B → F ⁡ R ∈ B
23 18 21 22 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ∈ B
24 simp2rl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → S ∈ A
25 1 3 5 hlatjcl ⊢ K ∈ HL ∧ R ∈ A ∧ S ∈ A → R ∨ ˙ S ∈ B
26 16 19 24 25 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → R ∨ ˙ S ∈ B
27 simp11r ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → W ∈ H
28 1 6 lhpbase ⊢ W ∈ H → W ∈ B
29 27 28 syl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → W ∈ B
30 1 4 latmcl ⊢ K ∈ Lat ∧ R ∨ ˙ S ∈ B ∧ W ∈ B → R ∨ ˙ S ∧ ˙ W ∈ B
31 17 26 29 30 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → R ∨ ˙ S ∧ ˙ W ∈ B
32 15 31 eqeltrid ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → V ∈ B
33 1 2 3 latlej1 ⊢ K ∈ Lat ∧ F ⁡ R ∈ B ∧ V ∈ B → F ⁡ R ≤ ˙ F ⁡ R ∨ ˙ V
34 17 23 32 33 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ≤ ˙ F ⁡ R ∨ ˙ V
35 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 cdleme42h ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V
36 1 5 atbase ⊢ S ∈ A → S ∈ B
37 24 36 syl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → S ∈ B
38 1 2 3 4 5 6 7 8 9 10 11 12 13 14 cdleme32fvcl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ B → F ⁡ S ∈ B
39 18 37 38 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ S ∈ B
40 1 3 latjcl ⊢ K ∈ Lat ∧ F ⁡ R ∈ B ∧ V ∈ B → F ⁡ R ∨ ˙ V ∈ B
41 17 23 32 40 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ∨ ˙ V ∈ B
42 1 2 3 latjle12 ⊢ K ∈ Lat ∧ F ⁡ R ∈ B ∧ F ⁡ S ∈ B ∧ F ⁡ R ∨ ˙ V ∈ B → F ⁡ R ≤ ˙ F ⁡ R ∨ ˙ V ∧ F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V ↔ F ⁡ R ∨ ˙ F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V
43 17 23 39 41 42 syl13anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ≤ ˙ F ⁡ R ∨ ˙ V ∧ F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V ↔ F ⁡ R ∨ ˙ F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V
44 34 35 43 mpbi2and ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ∨ ˙ F ⁡ S ≤ ˙ F ⁡ R ∨ ˙ V