Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  lshpkrlem5 Structured version   Visualization version   GIF version

Theorem lshpkrlem5 40085
Description: Lemma for lshpkrex 40089. Part of showing linearity of 𝐺. (Contributed by NM, 16-Jul-2014.)
Hypotheses
Ref Expression
lshpkrlem.v 𝑉 = (Base‘𝑊)
lshpkrlem.a + = (+g𝑊)
lshpkrlem.n 𝑁 = (LSpan‘𝑊)
lshpkrlem.p = (LSSum‘𝑊)
lshpkrlem.h 𝐻 = (LSHyp‘𝑊)
lshpkrlem.w (𝜑𝑊 ∈ LVec)
lshpkrlem.u (𝜑𝑈𝐻)
lshpkrlem.z (𝜑𝑍𝑉)
lshpkrlem.x (𝜑𝑋𝑉)
lshpkrlem.e (𝜑 → (𝑈 (𝑁‘{𝑍})) = 𝑉)
lshpkrlem.d 𝐷 = (Scalar‘𝑊)
lshpkrlem.k 𝐾 = (Base‘𝐷)
lshpkrlem.t · = ( ·𝑠𝑊)
lshpkrlem.o 0 = (0g𝐷)
lshpkrlem.g 𝐺 = (𝑥𝑉 ↦ (𝑘𝐾𝑦𝑈 𝑥 = (𝑦 + (𝑘 · 𝑍))))
Assertion
Ref Expression
lshpkrlem5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)))
Distinct variable groups:   𝑥,𝑘,𝑦, +   𝑘,𝐾,𝑥   0 ,𝑘   · ,𝑘,𝑥,𝑦   𝑈,𝑘,𝑥,𝑦   𝑥,𝑉   𝑘,𝑋,𝑥,𝑦   𝑘,𝑍,𝑥,𝑦   𝑧,𝑙, +   𝐺,𝑙,𝑧   𝐾,𝑙   𝑈,𝑙,𝑧   𝑋,𝑙,𝑧   𝑍,𝑙,𝑧,𝑘,𝑥,𝑦   · ,𝑙,𝑧   𝑢,𝑘,𝑣,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   𝐷(𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   + (𝑣, 𝑢, 𝑠, 𝑟)   (𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   · (𝑣, 𝑢, 𝑠, 𝑟)   𝑈(𝑣, 𝑢, 𝑠, 𝑟)   𝐺(𝑥, 𝑦, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟)   𝐻(𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   𝐾(𝑦, 𝑧, 𝑣, 𝑢, 𝑠, 𝑟)   𝑁(𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   𝑉(𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   𝑊(𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑘, 𝑠, 𝑟, 𝑙)   𝑋(𝑣, 𝑢, 𝑠, 𝑟)   0 (𝑥, 𝑦, 𝑧, 𝑣, 𝑢, 𝑠, 𝑟, 𝑙)   𝑍(𝑣, 𝑢, 𝑠, 𝑟)

Proof of Theorem lshpkrlem5
StepHypRef Expression
1 lshpkrlem.a . . 3 + = (+g𝑊)
2 eqid 2760 . . 3 (0g𝑊) = (0g𝑊)
3 eqid 2760 . . 3 (Cntz‘𝑊) = (Cntz‘𝑊)
4 simp11 1222 . . . . . . 7 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝜑)
5 lshpkrlem.w . . . . . . 7 (𝜑𝑊 ∈ LVec)
64, 5syl 18 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ LVec)
7 lveclmod 21328 . . . . . 6 (𝑊 ∈ LVec → 𝑊 ∈ LMod)
86, 7syl 18 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ LMod)
9 eqid 2760 . . . . . 6 (LSubSp‘𝑊) = (LSubSp‘𝑊)
109lsssssubg 21180 . . . . 5 (𝑊 ∈ LMod → (LSubSp‘𝑊) ⊆ (SubGrp‘𝑊))
118, 10syl 18 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (LSubSp‘𝑊) ⊆ (SubGrp‘𝑊))
12 lshpkrlem.h . . . . . 6 𝐻 = (LSHyp‘𝑊)
135, 7syl 18 . . . . . 6 (𝜑𝑊 ∈ LMod)
14 lshpkrlem.u . . . . . 6 (𝜑𝑈𝐻)
159, 12, 13, 14lshplss 39952 . . . . 5 (𝜑𝑈 ∈ (LSubSp‘𝑊))
164, 15syl 18 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ∈ (LSubSp‘𝑊))
1711, 16sseldd 3932 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ∈ (SubGrp‘𝑊))
18 lshpkrlem.z . . . . . 6 (𝜑𝑍𝑉)
194, 18syl 18 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑍𝑉)
20 lshpkrlem.v . . . . . 6 𝑉 = (Base‘𝑊)
21 lshpkrlem.n . . . . . 6 𝑁 = (LSpan‘𝑊)
2220, 9, 21lspsncl 21199 . . . . 5 ((𝑊 ∈ LMod ∧ 𝑍𝑉) → (𝑁‘{𝑍}) ∈ (LSubSp‘𝑊))
238, 19, 22syl2anc 596 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑁‘{𝑍}) ∈ (LSubSp‘𝑊))
2411, 23sseldd 3932 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑁‘{𝑍}) ∈ (SubGrp‘𝑊))
25 lshpkrlem.p . . . . 5 = (LSSum‘𝑊)
26 lshpkrlem.e . . . . 5 (𝜑 → (𝑈 (𝑁‘{𝑍})) = 𝑉)
2720, 2, 21, 25, 12, 5, 14, 18, 26lshpdisj 39958 . . . 4 (𝜑 → (𝑈 ∩ (𝑁‘{𝑍})) = {(0g𝑊)})
284, 27syl 18 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑈 ∩ (𝑁‘{𝑍})) = {(0g𝑊)})
29 lmodabl 21131 . . . . 5 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
308, 29syl 18 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ Abel)
313, 30, 17, 24ablcntzd 20018 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ⊆ ((Cntz‘𝑊)‘(𝑁‘{𝑍})))
32 simp23r 1314 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑧𝑈)
33 simp12 1223 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑙𝐾)
34 simp22 1226 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑟𝑈)
35 lshpkrlem.d . . . . . 6 𝐷 = (Scalar‘𝑊)
36 lshpkrlem.t . . . . . 6 · = ( ·𝑠𝑊)
37 lshpkrlem.k . . . . . 6 𝐾 = (Base‘𝐷)
3835, 36, 37, 9lssvscl 21177 . . . . 5 (((𝑊 ∈ LMod ∧ 𝑈 ∈ (LSubSp‘𝑊)) ∧ (𝑙𝐾𝑟𝑈)) → (𝑙 · 𝑟) ∈ 𝑈)
398, 16, 33, 34, 38syl22anc 852 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙 · 𝑟) ∈ 𝑈)
40 simp23l 1313 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑠𝑈)
411, 9lssvacl 21165 . . . 4 (((𝑊 ∈ LMod ∧ 𝑈 ∈ (LSubSp‘𝑊)) ∧ ((𝑙 · 𝑟) ∈ 𝑈𝑠𝑈)) → ((𝑙 · 𝑟) + 𝑠) ∈ 𝑈)
428, 16, 39, 40, 41syl22anc 852 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑟) + 𝑠) ∈ 𝑈)
43 simp13 1224 . . . . . . 7 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑢𝑉)
4420, 35, 36, 37lmodvscl 21100 . . . . . . 7 ((𝑊 ∈ LMod ∧ 𝑙𝐾𝑢𝑉) → (𝑙 · 𝑢) ∈ 𝑉)
458, 33, 43, 44syl3anc 1398 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙 · 𝑢) ∈ 𝑉)
46 simp21 1225 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑣𝑉)
4720, 1lmodvacl 21097 . . . . . 6 ((𝑊 ∈ LMod ∧ (𝑙 · 𝑢) ∈ 𝑉𝑣𝑉) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
488, 45, 46, 47syl3anc 1398 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
495adantr 486 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑊 ∈ LVec)
5014adantr 486 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑈𝐻)
5118adantr 486 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑍𝑉)
52 simpr 490 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
5326adantr 486 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
54 lshpkrlem.o . . . . . 6 0 = (0g𝐷)
55 lshpkrlem.g . . . . . 6 𝐺 = (𝑥𝑉 ↦ (𝑘𝐾𝑦𝑈 𝑥 = (𝑦 + (𝑘 · 𝑍))))
5620, 1, 21, 25, 12, 49, 50, 51, 52, 53, 35, 37, 36, 54, 55lshpkrlem2 40082 . . . . 5 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) ∈ 𝐾)
574, 48, 56syl2anc 596 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) ∈ 𝐾)
5820, 36, 35, 37, 21, 8, 57, 19ellspsni 21223 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) ∈ (𝑁‘{𝑍}))
595adantr 486 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑊 ∈ LVec)
6014adantr 486 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑈𝐻)
6118adantr 486 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑍𝑉)
62 simpr 490 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑢𝑉)
6326adantr 486 . . . . . . . 8 ((𝜑𝑢𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
6420, 1, 21, 25, 12, 59, 60, 61, 62, 63, 35, 37, 36, 54, 55lshpkrlem2 40082 . . . . . . 7 ((𝜑𝑢𝑉) → (𝐺𝑢) ∈ 𝐾)
654, 43, 64syl2anc 596 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺𝑢) ∈ 𝐾)
66 eqid 2760 . . . . . . 7 (.r𝐷) = (.r𝐷)
6735, 37, 66lmodmcl 21095 . . . . . 6 ((𝑊 ∈ LMod ∧ 𝑙𝐾 ∧ (𝐺𝑢) ∈ 𝐾) → (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾)
688, 33, 65, 67syl3anc 1398 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾)
695adantr 486 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑊 ∈ LVec)
7014adantr 486 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑈𝐻)
7118adantr 486 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑍𝑉)
72 simpr 490 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑣𝑉)
7326adantr 486 . . . . . . 7 ((𝜑𝑣𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
7420, 1, 21, 25, 12, 69, 70, 71, 72, 73, 35, 37, 36, 54, 55lshpkrlem2 40082 . . . . . 6 ((𝜑𝑣𝑉) → (𝐺𝑣) ∈ 𝐾)
754, 46, 74syl2anc 596 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺𝑣) ∈ 𝐾)
76 eqid 2760 . . . . . 6 (+g𝐷) = (+g𝐷)
7735, 37, 76lmodacl 21094 . . . . 5 ((𝑊 ∈ LMod ∧ (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾 ∧ (𝐺𝑣) ∈ 𝐾) → ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) ∈ 𝐾)
788, 68, 75, 77syl3anc 1398 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) ∈ 𝐾)
7920, 36, 35, 37, 21, 8, 78, 19ellspsni 21223 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍) ∈ (𝑁‘{𝑍}))
80 simp33 1230 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))
81 simp1 1154 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝜑𝑙𝐾𝑢𝑉))
8220, 9lssel 21159 . . . . . 6 ((𝑈 ∈ (LSubSp‘𝑊) ∧ 𝑟𝑈) → 𝑟𝑉)
8316, 34, 82syl2anc 596 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑟𝑉)
8420, 9lssel 21159 . . . . . 6 ((𝑈 ∈ (LSubSp‘𝑊) ∧ 𝑠𝑈) → 𝑠𝑉)
8516, 40, 84syl2anc 596 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑠𝑉)
86 simp31 1228 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)))
87 simp32 1229 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)))
88 lshpkrlem.x . . . . . 6 (𝜑𝑋𝑉)
8920, 1, 21, 25, 12, 5, 14, 18, 88, 26, 35, 37, 36, 54, 55lshpkrlem4 40084 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑉𝑠𝑉) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
9081, 46, 83, 85, 86, 87, 89syl132anc 1415 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
9180, 90eqtr3d 2797 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
921, 2, 3, 17, 24, 28, 31, 32, 42, 58, 79, 91subgdisj2 19853 . 2 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) = (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍))
9320, 21, 25, 12, 2, 13, 14, 18, 26lshpne0 39957 . . . 4 (𝜑𝑍 ≠ (0g𝑊))
944, 93syl 18 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑍 ≠ (0g𝑊))
9520, 36, 35, 37, 2, 6, 57, 78, 19, 94lvecvscan2 21337 . 2 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) = (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍) ↔ (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣))))
9692, 95mpbid 235 1 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401  w3a 1103   = wceq 1570  wcel 2145  wne 2955  wrex 3086  cin 3898  wss 3899  {csn 4584  cmpt 5186  cfv 6528  crio 7365  (class class class)co 7409  Basecbs 17334  +gcplusg 17375  .rcmulr 17376  Scalarcsca 17378   ·𝑠 cvsca 17379  0gc0g 17557  SubGrpcsubg 19277  Cntzccntz 19476  LSSumclsm 19795  Abelcabl 19942  LModclmod 21082  LSubSpclss 21153  LSpanclspn 21193  LVecclvec 21324  LSHypclsh 39946
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7735  ax-cnex 11213  ax-resscn 11214  ax-1cn 11215  ax-icn 11216  ax-addcl 11217  ax-addrcl 11218  ax-mulcl 11219  ax-mulrcl 11220  ax-mulcom 11221  ax-addass 11222  ax-mulass 11223  ax-distr 11224  ax-i2m1 11225  ax-1ne0 11226  ax-1rid 11227  ax-rnegex 11228  ax-rrecex 11229  ax-cnre 11230  ax-pre-lttri 11231  ax-pre-lttrn 11232  ax-pre-ltadd 11233  ax-pre-mulgt0 11234
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6294  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-f1 6533  df-fo 6534  df-f1o 6535  df-fv 6536  df-riota 7366  df-ov 7412  df-oprab 7413  df-mpo 7414  df-om 7862  df-1st 7985  df-2nd 7986  df-tpos 8222  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-er 8696  df-en 8953  df-dom 8954  df-sdom 8955  df-pnf 11302  df-mnf 11303  df-xr 11304  df-ltxr 11305  df-le 11306  df-sub 11500  df-neg 11501  df-nn 12291  df-2 12360  df-3 12361  df-sets 17289  df-slot 17307  df-ndx 17319  df-base 17335  df-ress 17356  df-plusg 17388  df-mulr 17389  df-0g 17559  df-mgm 18763  df-sgrp 18855  df-mnd 18871  df-submnd 18926  df-grp 19094  df-minusg 19095  df-sbg 19096  df-subg 19280  df-cntz 19478  df-lsm 19797  df-cmn 19943  df-abl 19944  df-mgp 20308  df-rng 20322  df-ur 20355  df-ring 20408  df-oppr 20514  df-dvdsr 20534  df-unit 20535  df-invr 20565  df-drng 20929  df-lmod 21084  df-lss 21154  df-lsp 21194  df-lvec 21325  df-lshyp 39948
This theorem is used by:  lshpkrlem6  40086
  Copyright terms: Public domain W3C validator