Metamath Proof Explorer


Theorem dihmeetlem15N

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

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

Proof

Step Hyp Ref Expression
1 dihmeetlem14.b ⊢ B = Base K
2 dihmeetlem14.l ⊢ ≤ ˙ = ≤ K
3 dihmeetlem14.h ⊢ H = LHyp ⁡ K
4 dihmeetlem14.j ⊢ ∨ ˙ = join ⁡ K
5 dihmeetlem14.m ⊢ ∧ ˙ = meet ⁡ K
6 dihmeetlem14.a ⊢ A = Atoms ⁡ K
7 dihmeetlem14.u ⊢ U = DVecH ⁡ K ⁡ W
8 dihmeetlem14.s ⊢ ⊕ ˙ = LSSum ⁡ U
9 dihmeetlem14.i ⊢ I = DIsoH ⁡ K ⁡ W
10 dihmeetlem15.z ⊢ 0 ˙ = 0 U
11 simpl1 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → K ∈ HL ∧ W ∈ H
12 simpr1 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → r ∈ A ∧ ¬ r ≤ ˙ W
13 simpl3 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → p ∈ A ∧ ¬ p ≤ ˙ W
14 simpl3r ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → ¬ p ≤ ˙ W
15 simp3 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → r = p
16 simp22 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → r ≤ ˙ Y
17 15 16 eqbrtrrd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → p ≤ ˙ Y
18 simp11l ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → K ∈ HL
19 18 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → K ∈ Lat
20 simp13l ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → p ∈ A
21 1 6 atbase ⊢ p ∈ A → p ∈ B
22 20 21 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → p ∈ B
23 simp12 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → Y ∈ B
24 1 2 5 latleeqm2 ⊢ K ∈ Lat ∧ p ∈ B ∧ Y ∈ B → p ≤ ˙ Y ↔ Y ∧ ˙ p = p
25 19 22 23 24 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → p ≤ ˙ Y ↔ Y ∧ ˙ p = p
26 17 25 mpbid ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → Y ∧ ˙ p = p
27 simp23 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → Y ∧ ˙ p ≤ ˙ W
28 26 27 eqbrtrrd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W ∧ r = p → p ≤ ˙ W
29 28 3expia ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → r = p → p ≤ ˙ W
30 29 necon3bd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → ¬ p ≤ ˙ W → r ≠ p
31 14 30 mpd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → r ≠ p
32 eqid ⊢ oc ⁡ K ⁡ W = oc ⁡ K ⁡ W
33 eqid ⊢ LTrn ⁡ K ⁡ W = LTrn ⁡ K ⁡ W
34 eqid ⊢ TEndo ⁡ K ⁡ W = TEndo ⁡ K ⁡ W
35 eqid ⊢ h ∈ LTrn ⁡ K ⁡ W ⟼ I ↾ B = h ∈ LTrn ⁡ K ⁡ W ⟼ I ↾ B
36 eqid ⊢ ι h ∈ LTrn ⁡ K ⁡ W | h ⁡ oc ⁡ K ⁡ W = r = ι h ∈ LTrn ⁡ K ⁡ W | h ⁡ oc ⁡ K ⁡ W = r
37 eqid ⊢ ι h ∈ LTrn ⁡ K ⁡ W | h ⁡ oc ⁡ K ⁡ W = p = ι h ∈ LTrn ⁡ K ⁡ W | h ⁡ oc ⁡ K ⁡ W = p
38 1 2 4 6 3 32 33 34 35 9 7 10 36 37 dihmeetlem13N ⊢ K ∈ HL ∧ W ∈ H ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ≠ p → I ⁡ r ∩ I ⁡ p = 0 ˙
39 11 12 13 31 38 syl121anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ∈ B ∧ p ∈ A ∧ ¬ p ≤ ˙ W ∧ r ∈ A ∧ ¬ r ≤ ˙ W ∧ r ≤ ˙ Y ∧ Y ∧ ˙ p ≤ ˙ W → I ⁡ r ∩ I ⁡ p = 0 ˙