Metamath Proof Explorer


Theorem cdleme23c

Description: Part of proof of Lemma E in Crawley p. 113, 4th paragraph, 6th line on p. 115. (Contributed by NM, 8-Dec-2012)

Ref Expression
Hypotheses cdleme23.b ⊢ B = Base K
cdleme23.l ⊢ ≤ ˙ = ≤ K
cdleme23.j ⊢ ∨ ˙ = join ⁡ K
cdleme23.m ⊢ ∧ ˙ = meet ⁡ K
cdleme23.a ⊢ A = Atoms ⁡ K
cdleme23.h ⊢ H = LHyp ⁡ K
cdleme23.v ⊢ V = S ∨ ˙ T ∧ ˙ X ∧ ˙ W
Assertion cdleme23c ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ T ∨ ˙ V

Proof

Step Hyp Ref Expression
1 cdleme23.b ⊢ B = Base K
2 cdleme23.l ⊢ ≤ ˙ = ≤ K
3 cdleme23.j ⊢ ∨ ˙ = join ⁡ K
4 cdleme23.m ⊢ ∧ ˙ = meet ⁡ K
5 cdleme23.a ⊢ A = Atoms ⁡ K
6 cdleme23.h ⊢ H = LHyp ⁡ K
7 cdleme23.v ⊢ V = S ∨ ˙ T ∧ ˙ X ∧ ˙ W
8 simp11l ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → K ∈ HL
9 8 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → K ∈ Lat
10 simp12l ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ∈ A
11 1 5 atbase ⊢ S ∈ A → S ∈ B
12 10 11 syl ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ∈ B
13 simp13l ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ∈ A
14 1 5 atbase ⊢ T ∈ A → T ∈ B
15 13 14 syl ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ∈ B
16 1 2 3 latlej1 ⊢ K ∈ Lat ∧ S ∈ B ∧ T ∈ B → S ≤ ˙ S ∨ ˙ T
17 9 12 15 16 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ S ∨ ˙ T
18 simp2l ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → X ∈ B
19 simp11r ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → W ∈ H
20 1 6 lhpbase ⊢ W ∈ H → W ∈ B
21 19 20 syl ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → W ∈ B
22 1 4 latmcl ⊢ K ∈ Lat ∧ X ∈ B ∧ W ∈ B → X ∧ ˙ W ∈ B
23 9 18 21 22 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → X ∧ ˙ W ∈ B
24 1 2 3 latlej1 ⊢ K ∈ Lat ∧ S ∈ B ∧ X ∧ ˙ W ∈ B → S ≤ ˙ S ∨ ˙ X ∧ ˙ W
25 9 12 23 24 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ S ∨ ˙ X ∧ ˙ W
26 simp32 ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ∨ ˙ X ∧ ˙ W = X
27 simp33 ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ∨ ˙ X ∧ ˙ W = X
28 26 27 eqtr4d ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ∨ ˙ X ∧ ˙ W = T ∨ ˙ X ∧ ˙ W
29 25 28 breqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ T ∨ ˙ X ∧ ˙ W
30 1 3 5 hlatjcl ⊢ K ∈ HL ∧ S ∈ A ∧ T ∈ A → S ∨ ˙ T ∈ B
31 8 10 13 30 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ∨ ˙ T ∈ B
32 1 3 latjcl ⊢ K ∈ Lat ∧ T ∈ B ∧ X ∧ ˙ W ∈ B → T ∨ ˙ X ∧ ˙ W ∈ B
33 9 15 23 32 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ∨ ˙ X ∧ ˙ W ∈ B
34 1 2 4 latlem12 ⊢ K ∈ Lat ∧ S ∈ B ∧ S ∨ ˙ T ∈ B ∧ T ∨ ˙ X ∧ ˙ W ∈ B → S ≤ ˙ S ∨ ˙ T ∧ S ≤ ˙ T ∨ ˙ X ∧ ˙ W ↔ S ≤ ˙ S ∨ ˙ T ∧ ˙ T ∨ ˙ X ∧ ˙ W
35 9 12 31 33 34 syl13anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ S ∨ ˙ T ∧ S ≤ ˙ T ∨ ˙ X ∧ ˙ W ↔ S ≤ ˙ S ∨ ˙ T ∧ ˙ T ∨ ˙ X ∧ ˙ W
36 17 29 35 mpbi2and ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ S ∨ ˙ T ∧ ˙ T ∨ ˙ X ∧ ˙ W
37 7 oveq2i ⊢ T ∨ ˙ V = T ∨ ˙ S ∨ ˙ T ∧ ˙ X ∧ ˙ W
38 1 2 3 latlej2 ⊢ K ∈ Lat ∧ S ∈ B ∧ T ∈ B → T ≤ ˙ S ∨ ˙ T
39 9 12 15 38 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ≤ ˙ S ∨ ˙ T
40 1 2 3 4 5 atmod3i1 ⊢ K ∈ HL ∧ T ∈ A ∧ S ∨ ˙ T ∈ B ∧ X ∧ ˙ W ∈ B ∧ T ≤ ˙ S ∨ ˙ T → T ∨ ˙ S ∨ ˙ T ∧ ˙ X ∧ ˙ W = S ∨ ˙ T ∧ ˙ T ∨ ˙ X ∧ ˙ W
41 8 13 31 23 39 40 syl131anc ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ∨ ˙ S ∨ ˙ T ∧ ˙ X ∧ ˙ W = S ∨ ˙ T ∧ ˙ T ∨ ˙ X ∧ ˙ W
42 37 41 eqtrid ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → T ∨ ˙ V = S ∨ ˙ T ∧ ˙ T ∨ ˙ X ∧ ˙ W
43 36 42 breqtrrd ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ ¬ T ≤ ˙ W ∧ X ∈ B ∧ ¬ X ≤ ˙ W ∧ S ≠ T ∧ S ∨ ˙ X ∧ ˙ W = X ∧ T ∨ ˙ X ∧ ˙ W = X → S ≤ ˙ T ∨ ˙ V