Metamath Proof Explorer


Theorem cdlemn2

Description: Part of proof of Lemma N of Crawley p. 121 line 30. (Contributed by NM, 21-Feb-2014)

Ref Expression
Hypotheses cdlemn2.b ⊢ B = Base K
cdlemn2.l ⊢ ≤ ˙ = ≤ K
cdlemn2.j ⊢ ∨ ˙ = join ⁡ K
cdlemn2.a ⊢ A = Atoms ⁡ K
cdlemn2.h ⊢ H = LHyp ⁡ K
cdlemn2.t ⊢ T = LTrn ⁡ K ⁡ W
cdlemn2.r ⊢ R = trL ⁡ K ⁡ W
cdlemn2.f ⊢ F = ι h ∈ T | h ⁡ Q = S
Assertion cdlemn2 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → R ⁡ F ≤ ˙ X

Proof

Step Hyp Ref Expression
1 cdlemn2.b ⊢ B = Base K
2 cdlemn2.l ⊢ ≤ ˙ = ≤ K
3 cdlemn2.j ⊢ ∨ ˙ = join ⁡ K
4 cdlemn2.a ⊢ A = Atoms ⁡ K
5 cdlemn2.h ⊢ H = LHyp ⁡ K
6 cdlemn2.t ⊢ T = LTrn ⁡ K ⁡ W
7 cdlemn2.r ⊢ R = trL ⁡ K ⁡ W
8 cdlemn2.f ⊢ F = ι h ∈ T | h ⁡ Q = S
9 simp1 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → K ∈ HL ∧ W ∈ H
10 simp21 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∈ A ∧ ¬ Q ≤ ˙ W
11 simp22 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → S ∈ A ∧ ¬ S ≤ ˙ W
12 2 4 5 6 8 ltrniotacl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W → F ∈ T
13 9 10 11 12 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → F ∈ T
14 eqid ⊢ meet ⁡ K = meet ⁡ K
15 2 3 14 4 5 6 7 trlval2 ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W → R ⁡ F = Q ∨ ˙ F ⁡ Q meet ⁡ K W
16 9 13 10 15 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → R ⁡ F = Q ∨ ˙ F ⁡ Q meet ⁡ K W
17 2 4 5 6 8 ltrniotaval ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W → F ⁡ Q = S
18 9 10 11 17 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → F ⁡ Q = S
19 18 oveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ F ⁡ Q = Q ∨ ˙ S
20 19 oveq1d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ F ⁡ Q meet ⁡ K W = Q ∨ ˙ S meet ⁡ K W
21 16 20 eqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → R ⁡ F = Q ∨ ˙ S meet ⁡ K W
22 simp1l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → K ∈ HL
23 22 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → K ∈ Lat
24 simp21l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∈ A
25 1 4 atbase ⊢ Q ∈ A → Q ∈ B
26 24 25 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∈ B
27 simp23l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → X ∈ B
28 1 2 3 latlej1 ⊢ K ∈ Lat ∧ Q ∈ B ∧ X ∈ B → Q ≤ ˙ Q ∨ ˙ X
29 23 26 27 28 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ≤ ˙ Q ∨ ˙ X
30 simp3 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → S ≤ ˙ Q ∨ ˙ X
31 simp22l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → S ∈ A
32 1 4 atbase ⊢ S ∈ A → S ∈ B
33 31 32 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → S ∈ B
34 1 3 latjcl ⊢ K ∈ Lat ∧ Q ∈ B ∧ X ∈ B → Q ∨ ˙ X ∈ B
35 23 26 27 34 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ X ∈ B
36 1 2 3 latjle12 ⊢ K ∈ Lat ∧ Q ∈ B ∧ S ∈ B ∧ Q ∨ ˙ X ∈ B → Q ≤ ˙ Q ∨ ˙ X ∧ S ≤ ˙ Q ∨ ˙ X ↔ Q ∨ ˙ S ≤ ˙ Q ∨ ˙ X
37 23 26 33 35 36 syl13anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ≤ ˙ Q ∨ ˙ X ∧ S ≤ ˙ Q ∨ ˙ X ↔ Q ∨ ˙ S ≤ ˙ Q ∨ ˙ X
38 29 30 37 mpbi2and ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ S ≤ ˙ Q ∨ ˙ X
39 1 3 4 hlatjcl ⊢ K ∈ HL ∧ Q ∈ A ∧ S ∈ A → Q ∨ ˙ S ∈ B
40 22 24 31 39 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ S ∈ B
41 simp1r ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → W ∈ H
42 1 5 lhpbase ⊢ W ∈ H → W ∈ B
43 41 42 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → W ∈ B
44 1 2 14 latmlem1 ⊢ K ∈ Lat ∧ Q ∨ ˙ S ∈ B ∧ Q ∨ ˙ X ∈ B ∧ W ∈ B → Q ∨ ˙ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ S meet ⁡ K W ≤ ˙ Q ∨ ˙ X meet ⁡ K W
45 23 40 35 43 44 syl13anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ S meet ⁡ K W ≤ ˙ Q ∨ ˙ X meet ⁡ K W
46 38 45 mpd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ S meet ⁡ K W ≤ ˙ Q ∨ ˙ X meet ⁡ K W
47 21 46 eqbrtrd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → R ⁡ F ≤ ˙ Q ∨ ˙ X meet ⁡ K W
48 simp23 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → X ∈ B ∧ X ≤ ˙ W
49 1 2 3 14 4 5 lhple ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W → Q ∨ ˙ X meet ⁡ K W = X
50 9 10 48 49 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → Q ∨ ˙ X meet ⁡ K W = X
51 47 50 breqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ S ∈ A ∧ ¬ S ≤ ˙ W ∧ X ∈ B ∧ X ≤ ˙ W ∧ S ≤ ˙ Q ∨ ˙ X → R ⁡ F ≤ ˙ X