Metamath Proof Explorer


Theorem dihmeetlem11N

Description: Lemma for isomorphism H of a lattice meet. (Contributed by NM, 6-Apr-2014) (New usage is discouraged.)

Ref Expression
Hypotheses dihmeetlem9.b ⊢ B = Base K
dihmeetlem9.l ⊢ ≤ ˙ = ≤ K
dihmeetlem9.h ⊢ H = LHyp ⁡ K
dihmeetlem9.j ⊢ ∨ ˙ = join ⁡ K
dihmeetlem9.m ⊢ ∧ ˙ = meet ⁡ K
dihmeetlem9.a ⊢ A = Atoms ⁡ K
dihmeetlem9.u ⊢ U = DVecH ⁡ K ⁡ W
dihmeetlem9.s ⊢ ⊕ ˙ = LSSum ⁡ U
dihmeetlem9.i ⊢ I = DIsoH ⁡ K ⁡ W
Assertion dihmeetlem11N ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ X ∧ ˙ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ X ∩ I ⁡ Y

Proof

Step Hyp Ref Expression
1 dihmeetlem9.b ⊢ B = Base K
2 dihmeetlem9.l ⊢ ≤ ˙ = ≤ K
3 dihmeetlem9.h ⊢ H = LHyp ⁡ K
4 dihmeetlem9.j ⊢ ∨ ˙ = join ⁡ K
5 dihmeetlem9.m ⊢ ∧ ˙ = meet ⁡ K
6 dihmeetlem9.a ⊢ A = Atoms ⁡ K
7 dihmeetlem9.u ⊢ U = DVecH ⁡ K ⁡ W
8 dihmeetlem9.s ⊢ ⊕ ˙ = LSSum ⁡ U
9 dihmeetlem9.i ⊢ I = DIsoH ⁡ K ⁡ W
10 1 2 3 4 5 6 7 8 9 dihmeetlem10N ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ X ∧ ˙ Y ∨ ˙ p = I ⁡ X ∩ I ⁡ Y ∨ ˙ p
11 10 ineq1d ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ X ∧ ˙ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ X ∩ I ⁡ Y ∨ ˙ p ∩ I ⁡ Y
12 inass ⊢ I ⁡ X ∩ I ⁡ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ X ∩ I ⁡ Y ∨ ˙ p ∩ I ⁡ Y
13 simpl1l ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → K ∈ HL
14 13 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → K ∈ Lat
15 simpl3 ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → Y ∈ B
16 simprll ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → p ∈ A
17 1 6 atbase ⊢ p ∈ A → p ∈ B
18 16 17 syl ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → p ∈ B
19 1 2 4 latlej1 ⊢ K ∈ Lat ∧ Y ∈ B ∧ p ∈ B → Y ≤ ˙ Y ∨ ˙ p
20 14 15 18 19 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → Y ≤ ˙ Y ∨ ˙ p
21 simpl1 ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → K ∈ HL ∧ W ∈ H
22 1 4 latjcl ⊢ K ∈ Lat ∧ Y ∈ B ∧ p ∈ B → Y ∨ ˙ p ∈ B
23 14 15 18 22 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → Y ∨ ˙ p ∈ B
24 1 2 3 9 dihord ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ Y ∨ ˙ p ∈ B → I ⁡ Y ⊆ I ⁡ Y ∨ ˙ p ↔ Y ≤ ˙ Y ∨ ˙ p
25 21 15 23 24 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ Y ⊆ I ⁡ Y ∨ ˙ p ↔ Y ≤ ˙ Y ∨ ˙ p
26 20 25 mpbird ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ Y ⊆ I ⁡ Y ∨ ˙ p
27 sseqin2 ⊢ I ⁡ Y ⊆ I ⁡ Y ∨ ˙ p ↔ I ⁡ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ Y
28 26 27 sylib ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ Y
29 28 ineq2d ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ X ∩ I ⁡ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ X ∩ I ⁡ Y
30 12 29 eqtrid ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ X ∩ I ⁡ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ X ∩ I ⁡ Y
31 11 30 eqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ p ≤ ˙ X → I ⁡ X ∧ ˙ Y ∨ ˙ p ∩ I ⁡ Y = I ⁡ X ∩ I ⁡ Y