Metamath Proof Explorer


Theorem mapdpglem30b

Description: Lemma for mapdpg . (Contributed by NM, 22-Mar-2015)

Ref Expression
Hypotheses mapdpg.h ⊢ H = LHyp ⁡ K
mapdpg.m ⊢ M = mapd ⁡ K ⁡ W
mapdpg.u ⊢ U = DVecH ⁡ K ⁡ W
mapdpg.v ⊢ V = Base U
mapdpg.s ⊢ - ˙ = - U
mapdpg.z ⊢ 0 ˙ = 0 U
mapdpg.n ⊢ N = LSpan ⁡ U
mapdpg.c ⊢ C = LCDual ⁡ K ⁡ W
mapdpg.f ⊢ F = Base C
mapdpg.r ⊢ R = - C
mapdpg.j ⊢ J = LSpan ⁡ C
mapdpg.k ⊢ φ → K ∈ HL ∧ W ∈ H
mapdpg.x ⊢ φ → X ∈ V ∖ 0 ˙
mapdpg.y ⊢ φ → Y ∈ V ∖ 0 ˙
mapdpg.g ⊢ φ → G ∈ F
mapdpg.ne ⊢ φ → N ⁡ X ≠ N ⁡ Y
mapdpg.e ⊢ φ → M ⁡ N ⁡ X = J ⁡ G
mapdpgem25.h1 ⊢ φ → h ∈ F ∧ M ⁡ N ⁡ Y = J ⁡ h ∧ M ⁡ N ⁡ X - ˙ Y = J ⁡ G R h
mapdpgem25.i1 ⊢ φ → i ∈ F ∧ M ⁡ N ⁡ Y = J ⁡ i ∧ M ⁡ N ⁡ X - ˙ Y = J ⁡ G R i
Assertion mapdpglem30b ⊢ φ → i ≠ 0 C

Proof

Step Hyp Ref Expression
1 mapdpg.h ⊢ H = LHyp ⁡ K
2 mapdpg.m ⊢ M = mapd ⁡ K ⁡ W
3 mapdpg.u ⊢ U = DVecH ⁡ K ⁡ W
4 mapdpg.v ⊢ V = Base U
5 mapdpg.s ⊢ - ˙ = - U
6 mapdpg.z ⊢ 0 ˙ = 0 U
7 mapdpg.n ⊢ N = LSpan ⁡ U
8 mapdpg.c ⊢ C = LCDual ⁡ K ⁡ W
9 mapdpg.f ⊢ F = Base C
10 mapdpg.r ⊢ R = - C
11 mapdpg.j ⊢ J = LSpan ⁡ C
12 mapdpg.k ⊢ φ → K ∈ HL ∧ W ∈ H
13 mapdpg.x ⊢ φ → X ∈ V ∖ 0 ˙
14 mapdpg.y ⊢ φ → Y ∈ V ∖ 0 ˙
15 mapdpg.g ⊢ φ → G ∈ F
16 mapdpg.ne ⊢ φ → N ⁡ X ≠ N ⁡ Y
17 mapdpg.e ⊢ φ → M ⁡ N ⁡ X = J ⁡ G
18 mapdpgem25.h1 ⊢ φ → h ∈ F ∧ M ⁡ N ⁡ Y = J ⁡ h ∧ M ⁡ N ⁡ X - ˙ Y = J ⁡ G R h
19 mapdpgem25.i1 ⊢ φ → i ∈ F ∧ M ⁡ N ⁡ Y = J ⁡ i ∧ M ⁡ N ⁡ X - ˙ Y = J ⁡ G R i
20 19 simprd ⊢ φ → M ⁡ N ⁡ Y = J ⁡ i ∧ M ⁡ N ⁡ X - ˙ Y = J ⁡ G R i
21 20 simpld ⊢ φ → M ⁡ N ⁡ Y = J ⁡ i
22 eqid ⊢ LSAtoms ⁡ U = LSAtoms ⁡ U
23 eqid ⊢ LSAtoms ⁡ C = LSAtoms ⁡ C
24 1 3 12 dvhlmod ⊢ φ → U ∈ LMod
25 4 7 6 22 24 14 lsatlspsn ⊢ φ → N ⁡ Y ∈ LSAtoms ⁡ U
26 1 2 3 22 8 23 12 25 mapdat ⊢ φ → M ⁡ N ⁡ Y ∈ LSAtoms ⁡ C
27 21 26 eqeltrrd ⊢ φ → J ⁡ i ∈ LSAtoms ⁡ C
28 eqid ⊢ 0 C = 0 C
29 1 8 12 lcdlmod ⊢ φ → C ∈ LMod
30 19 simpld ⊢ φ → i ∈ F
31 9 11 28 23 29 30 lsatspn0 ⊢ φ → J ⁡ i ∈ LSAtoms ⁡ C ↔ i ≠ 0 C
32 27 31 mpbid ⊢ φ → i ≠ 0 C