Metamath Proof Explorer


Theorem cdleme23b

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 cdleme23b ⊢ 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 → V ∈ A

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 hlol ⊢ K ∈ HL → K ∈ OL
10 8 9 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 → K ∈ OL
11 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
12 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
13 1 3 5 hlatjcl ⊢ K ∈ HL ∧ S ∈ A ∧ T ∈ A → S ∨ ˙ T ∈ B
14 8 11 12 13 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
15 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
16 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
17 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
18 1 6 lhpbase ⊢ W ∈ H → W ∈ B
19 17 18 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
20 1 4 latmcl ⊢ K ∈ Lat ∧ X ∈ B ∧ W ∈ B → X ∧ ˙ W ∈ B
21 15 16 19 20 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
22 1 3 latjcl ⊢ K ∈ Lat ∧ S ∨ ˙ T ∈ B ∧ X ∧ ˙ W ∈ B → S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∈ B
23 15 14 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 → S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∈ B
24 1 4 latmassOLD ⊢ K ∈ OL ∧ S ∨ ˙ T ∈ B ∧ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∈ B ∧ W ∈ B → S ∨ ˙ T ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∧ ˙ W = S ∨ ˙ T ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∧ ˙ W
25 10 14 23 19 24 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 ∨ ˙ T ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∧ ˙ W = S ∨ ˙ T ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∧ ˙ W
26 1 2 3 latlej1 ⊢ K ∈ Lat ∧ S ∨ ˙ T ∈ B ∧ X ∧ ˙ W ∈ B → S ∨ ˙ T ≤ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W
27 15 14 21 26 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 ≤ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W
28 1 2 4 latleeqm1 ⊢ K ∈ Lat ∧ S ∨ ˙ T ∈ B ∧ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∈ B → S ∨ ˙ T ≤ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ↔ S ∨ ˙ T ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W = S ∨ ˙ T
29 15 14 23 28 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 ≤ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ↔ S ∨ ˙ T ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W = S ∨ ˙ T
30 27 29 mpbid ⊢ 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 ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W = S ∨ ˙ T
31 30 oveq1d ⊢ 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 ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∧ ˙ W = S ∨ ˙ T ∧ ˙ W
32 1 5 atbase ⊢ S ∈ A → S ∈ B
33 11 32 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
34 1 5 atbase ⊢ T ∈ A → T ∈ B
35 12 34 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
36 1 3 latjjdir ⊢ K ∈ Lat ∧ S ∈ B ∧ T ∈ B ∧ X ∧ ˙ W ∈ B → S ∨ ˙ T ∨ ˙ X ∧ ˙ W = S ∨ ˙ X ∧ ˙ W ∨ ˙ T ∨ ˙ X ∧ ˙ W
37 15 33 35 21 36 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 ∨ ˙ T ∨ ˙ X ∧ ˙ W = S ∨ ˙ X ∧ ˙ W ∨ ˙ T ∨ ˙ X ∧ ˙ W
38 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
39 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
40 38 39 oveq12d ⊢ 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 = X ∨ ˙ X
41 1 3 latjidm ⊢ K ∈ Lat ∧ X ∈ B → X ∨ ˙ X = X
42 15 16 41 syl2anc ⊢ 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 ∨ ˙ X = X
43 37 40 42 3eqtrd ⊢ 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 = X
44 43 oveq1d ⊢ 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 ∧ ˙ W = X ∧ ˙ W
45 44 oveq2d ⊢ 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 ∧ ˙ S ∨ ˙ T ∨ ˙ X ∧ ˙ W ∧ ˙ W = S ∨ ˙ T ∧ ˙ X ∧ ˙ W
46 25 31 45 3eqtr3d ⊢ 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 ∧ ˙ W = S ∨ ˙ T ∧ ˙ X ∧ ˙ W
47 simp12r ⊢ 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 ≤ ˙ W
48 simp31 ⊢ 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
49 2 3 4 5 6 lhpat ⊢ K ∈ HL ∧ W ∈ H ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ T ∈ A ∧ S ≠ T → S ∨ ˙ T ∧ ˙ W ∈ A
50 8 17 11 47 12 48 49 syl222anc ⊢ 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 ∧ ˙ W ∈ A
51 46 50 eqeltrrd ⊢ 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 ∈ A
52 7 51 eqeltrid ⊢ 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 → V ∈ A