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 37789
Description: Lemma for lshpkrex 37793. 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 2731 . . 3 (0g𝑊) = (0g𝑊)
3 eqid 2731 . . 3 (Cntz‘𝑊) = (Cntz‘𝑊)
4 simp11 1203 . . . . . . 7 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝜑)
5 lshpkrlem.w . . . . . . 7 (𝜑𝑊 ∈ LVec)
64, 5syl 17 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ LVec)
7 lveclmod 20666 . . . . . 6 (𝑊 ∈ LVec → 𝑊 ∈ LMod)
86, 7syl 17 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ LMod)
9 eqid 2731 . . . . . 6 (LSubSp‘𝑊) = (LSubSp‘𝑊)
109lsssssubg 20518 . . . . 5 (𝑊 ∈ LMod → (LSubSp‘𝑊) ⊆ (SubGrp‘𝑊))
118, 10syl 17 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (LSubSp‘𝑊) ⊆ (SubGrp‘𝑊))
12 lshpkrlem.h . . . . . 6 𝐻 = (LSHyp‘𝑊)
135, 7syl 17 . . . . . 6 (𝜑𝑊 ∈ LMod)
14 lshpkrlem.u . . . . . 6 (𝜑𝑈𝐻)
159, 12, 13, 14lshplss 37656 . . . . 5 (𝜑𝑈 ∈ (LSubSp‘𝑊))
164, 15syl 17 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ∈ (LSubSp‘𝑊))
1711, 16sseldd 3979 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ∈ (SubGrp‘𝑊))
18 lshpkrlem.z . . . . . 6 (𝜑𝑍𝑉)
194, 18syl 17 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑍𝑉)
20 lshpkrlem.v . . . . . 6 𝑉 = (Base‘𝑊)
21 lshpkrlem.n . . . . . 6 𝑁 = (LSpan‘𝑊)
2220, 9, 21lspsncl 20537 . . . . 5 ((𝑊 ∈ LMod ∧ 𝑍𝑉) → (𝑁‘{𝑍}) ∈ (LSubSp‘𝑊))
238, 19, 22syl2anc 584 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑁‘{𝑍}) ∈ (LSubSp‘𝑊))
2411, 23sseldd 3979 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑁‘{𝑍}) ∈ (SubGrp‘𝑊))
25 lshpkrlem.p . . . . 5 = (LSSum‘𝑊)
26 lshpkrlem.e . . . . 5 (𝜑 → (𝑈 (𝑁‘{𝑍})) = 𝑉)
2720, 2, 21, 25, 12, 5, 14, 18, 26lshpdisj 37662 . . . 4 (𝜑 → (𝑈 ∩ (𝑁‘{𝑍})) = {(0g𝑊)})
284, 27syl 17 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑈 ∩ (𝑁‘{𝑍})) = {(0g𝑊)})
29 lmodabl 20468 . . . . 5 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
308, 29syl 17 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ Abel)
313, 30, 17, 24ablcntzd 19685 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ⊆ ((Cntz‘𝑊)‘(𝑁‘{𝑍})))
32 simp23r 1295 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑧𝑈)
33 simp12 1204 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑙𝐾)
34 simp22 1207 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑟𝑈)
35 lshpkrlem.d . . . . . 6 𝐷 = (Scalar‘𝑊)
36 lshpkrlem.t . . . . . 6 · = ( ·𝑠𝑊)
37 lshpkrlem.k . . . . . 6 𝐾 = (Base‘𝐷)
3835, 36, 37, 9lssvscl 20515 . . . . 5 (((𝑊 ∈ LMod ∧ 𝑈 ∈ (LSubSp‘𝑊)) ∧ (𝑙𝐾𝑟𝑈)) → (𝑙 · 𝑟) ∈ 𝑈)
398, 16, 33, 34, 38syl22anc 837 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙 · 𝑟) ∈ 𝑈)
40 simp23l 1294 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑠𝑈)
411, 9lssvacl 20514 . . . 4 (((𝑊 ∈ LMod ∧ 𝑈 ∈ (LSubSp‘𝑊)) ∧ ((𝑙 · 𝑟) ∈ 𝑈𝑠𝑈)) → ((𝑙 · 𝑟) + 𝑠) ∈ 𝑈)
428, 16, 39, 40, 41syl22anc 837 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑟) + 𝑠) ∈ 𝑈)
43 simp13 1205 . . . . . . 7 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑢𝑉)
4420, 35, 36, 37lmodvscl 20438 . . . . . . 7 ((𝑊 ∈ LMod ∧ 𝑙𝐾𝑢𝑉) → (𝑙 · 𝑢) ∈ 𝑉)
458, 33, 43, 44syl3anc 1371 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙 · 𝑢) ∈ 𝑉)
46 simp21 1206 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑣𝑉)
4720, 1lmodvacl 20435 . . . . . 6 ((𝑊 ∈ LMod ∧ (𝑙 · 𝑢) ∈ 𝑉𝑣𝑉) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
488, 45, 46, 47syl3anc 1371 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
495adantr 481 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑊 ∈ LVec)
5014adantr 481 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑈𝐻)
5118adantr 481 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑍𝑉)
52 simpr 485 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
5326adantr 481 . . . . . 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 37786 . . . . 5 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) ∈ 𝐾)
574, 48, 56syl2anc 584 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) ∈ 𝐾)
5820, 36, 35, 37, 21, 8, 57, 19lspsneli 20561 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) ∈ (𝑁‘{𝑍}))
595adantr 481 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑊 ∈ LVec)
6014adantr 481 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑈𝐻)
6118adantr 481 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑍𝑉)
62 simpr 485 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑢𝑉)
6326adantr 481 . . . . . . . 8 ((𝜑𝑢𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
6420, 1, 21, 25, 12, 59, 60, 61, 62, 63, 35, 37, 36, 54, 55lshpkrlem2 37786 . . . . . . 7 ((𝜑𝑢𝑉) → (𝐺𝑢) ∈ 𝐾)
654, 43, 64syl2anc 584 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺𝑢) ∈ 𝐾)
66 eqid 2731 . . . . . . 7 (.r𝐷) = (.r𝐷)
6735, 37, 66lmodmcl 20433 . . . . . 6 ((𝑊 ∈ LMod ∧ 𝑙𝐾 ∧ (𝐺𝑢) ∈ 𝐾) → (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾)
688, 33, 65, 67syl3anc 1371 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾)
695adantr 481 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑊 ∈ LVec)
7014adantr 481 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑈𝐻)
7118adantr 481 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑍𝑉)
72 simpr 485 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑣𝑉)
7326adantr 481 . . . . . . 7 ((𝜑𝑣𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
7420, 1, 21, 25, 12, 69, 70, 71, 72, 73, 35, 37, 36, 54, 55lshpkrlem2 37786 . . . . . 6 ((𝜑𝑣𝑉) → (𝐺𝑣) ∈ 𝐾)
754, 46, 74syl2anc 584 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺𝑣) ∈ 𝐾)
76 eqid 2731 . . . . . 6 (+g𝐷) = (+g𝐷)
7735, 37, 76lmodacl 20432 . . . . 5 ((𝑊 ∈ LMod ∧ (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾 ∧ (𝐺𝑣) ∈ 𝐾) → ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) ∈ 𝐾)
788, 68, 75, 77syl3anc 1371 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) ∈ 𝐾)
7920, 36, 35, 37, 21, 8, 78, 19lspsneli 20561 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍) ∈ (𝑁‘{𝑍}))
80 simp33 1211 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))
81 simp1 1136 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝜑𝑙𝐾𝑢𝑉))
8220, 9lssel 20497 . . . . . 6 ((𝑈 ∈ (LSubSp‘𝑊) ∧ 𝑟𝑈) → 𝑟𝑉)
8316, 34, 82syl2anc 584 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑟𝑉)
8420, 9lssel 20497 . . . . . 6 ((𝑈 ∈ (LSubSp‘𝑊) ∧ 𝑠𝑈) → 𝑠𝑉)
8516, 40, 84syl2anc 584 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑠𝑉)
86 simp31 1209 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)))
87 simp32 1210 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)))
88 lshpkrlem.x . . . . . 6 (𝜑𝑋𝑉)
8920, 1, 21, 25, 12, 5, 14, 18, 88, 26, 35, 37, 36, 54, 55lshpkrlem4 37788 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑉𝑠𝑉) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
9081, 46, 83, 85, 86, 87, 89syl132anc 1388 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
9180, 90eqtr3d 2773 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
921, 2, 3, 17, 24, 28, 31, 32, 42, 58, 79, 91subgdisj2 19524 . 2 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) = (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍))
9320, 21, 25, 12, 2, 13, 14, 18, 26lshpne0 37661 . . . 4 (𝜑𝑍 ≠ (0g𝑊))
944, 93syl 17 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑍 ≠ (0g𝑊))
9520, 36, 35, 37, 2, 6, 57, 78, 19, 94lvecvscan2 20674 . 2 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) = (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍) ↔ (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣))))
9692, 95mpbid 231 1 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1087   = wceq 1541  wcel 2106  wne 2939  wrex 3069  cin 3943  wss 3944  {csn 4622  cmpt 5224  cfv 6532  crio 7348  (class class class)co 7393  Basecbs 17126  +gcplusg 17179  .rcmulr 17180  Scalarcsca 17182   ·𝑠 cvsca 17183  0gc0g 17367  SubGrpcsubg 18972  Cntzccntz 19145  LSSumclsm 19466  Abelcabl 19613  LModclmod 20420  LSubSpclss 20491  LSpanclspn 20531  LVecclvec 20662  LSHypclsh 37650
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7708  ax-cnex 11148  ax-resscn 11149  ax-1cn 11150  ax-icn 11151  ax-addcl 11152  ax-addrcl 11153  ax-mulcl 11154  ax-mulrcl 11155  ax-mulcom 11156  ax-addass 11157  ax-mulass 11158  ax-distr 11159  ax-i2m1 11160  ax-1ne0 11161  ax-1rid 11162  ax-rnegex 11163  ax-rrecex 11164  ax-cnre 11165  ax-pre-lttri 11166  ax-pre-lttrn 11167  ax-pre-ltadd 11168  ax-pre-mulgt0 11169
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3963  df-nul 4319  df-if 4523  df-pw 4598  df-sn 4623  df-pr 4625  df-op 4629  df-uni 4902  df-int 4944  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6289  df-ord 6356  df-on 6357  df-lim 6358  df-suc 6359  df-iota 6484  df-fun 6534  df-fn 6535  df-f 6536  df-f1 6537  df-fo 6538  df-f1o 6539  df-fv 6540  df-riota 7349  df-ov 7396  df-oprab 7397  df-mpo 7398  df-om 7839  df-1st 7957  df-2nd 7958  df-tpos 8193  df-frecs 8248  df-wrecs 8279  df-recs 8353  df-rdg 8392  df-er 8686  df-en 8923  df-dom 8924  df-sdom 8925  df-pnf 11232  df-mnf 11233  df-xr 11234  df-ltxr 11235  df-le 11236  df-sub 11428  df-neg 11429  df-nn 12195  df-2 12257  df-3 12258  df-sets 17079  df-slot 17097  df-ndx 17109  df-base 17127  df-ress 17156  df-plusg 17192  df-mulr 17193  df-0g 17369  df-mgm 18543  df-sgrp 18592  df-mnd 18603  df-submnd 18648  df-grp 18797  df-minusg 18798  df-sbg 18799  df-subg 18975  df-cntz 19147  df-lsm 19468  df-cmn 19614  df-abl 19615  df-mgp 19947  df-ur 19964  df-ring 20016  df-oppr 20102  df-dvdsr 20123  df-unit 20124  df-invr 20154  df-drng 20267  df-lmod 20422  df-lss 20492  df-lsp 20532  df-lvec 20663  df-lshyp 37652
This theorem is referenced by:  lshpkrlem6  37790
  Copyright terms: Public domain W3C validator