Metamath Proof Explorer


Theorem cdleme42h

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 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

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 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
20 1 5 atbase ⊢ S ∈ A → S ∈ 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 → S ∈ 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 ∧ S ∈ B → F ⁡ S ∈ 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 ⁡ S ∈ B
24 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
25 1 3 5 hlatjcl ⊢ K ∈ HL ∧ R ∈ A ∧ S ∈ A → R ∨ ˙ S ∈ B
26 16 24 19 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 ⁡ S ∈ B ∧ V ∈ B → F ⁡ S ≤ ˙ F ⁡ S ∨ ˙ 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 ⁡ S ≤ ˙ F ⁡ S ∨ ˙ V
35 3 5 hlatjcom ⊢ K ∈ HL ∧ R ∈ A ∧ S ∈ A → R ∨ ˙ S = S ∨ ˙ R
36 16 24 19 35 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 = S ∨ ˙ R
37 36 oveq1d ⊢ 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 = S ∨ ˙ R ∧ ˙ W
38 15 37 eqtrid ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → V = S ∨ ˙ R ∧ ˙ W
39 38 oveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ S ∨ ˙ V = F ⁡ S ∨ ˙ S ∨ ˙ R ∧ ˙ W
40 simp2r ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → S ∈ A ∧ ¬ S ≤ ˙ W
41 simp2l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → R ∈ A ∧ ¬ R ≤ ˙ W
42 simp3 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → P ≠ Q
43 eqid ⊢ S ∨ ˙ R ∧ ˙ W = S ∨ ˙ R ∧ ˙ W
44 1 2 3 4 5 6 7 8 9 10 11 12 13 14 43 cdleme42g ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ P ≠ Q → F ⁡ S ∨ ˙ R = F ⁡ S ∨ ˙ S ∨ ˙ R ∧ ˙ W
45 18 40 41 42 44 syl121anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ S ∨ ˙ R = F ⁡ S ∨ ˙ S ∨ ˙ R ∧ ˙ W
46 39 45 eqtr4d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ S ∨ ˙ V = F ⁡ S ∨ ˙ R
47 36 fveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ∨ ˙ S = F ⁡ S ∨ ˙ R
48 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 cdleme42g ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ R ∨ ˙ S = F ⁡ R ∨ ˙ V
49 46 47 48 3eqtr2d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ P ≠ Q → F ⁡ S ∨ ˙ V = F ⁡ R ∨ ˙ V
50 34 49 breqtrd ⊢ 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