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 39578
Description: Lemma for lshpkrex 39582. 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 2737 . . 3 (0g𝑊) = (0g𝑊)
3 eqid 2737 . . 3 (Cntz‘𝑊) = (Cntz‘𝑊)
4 simp11 1205 . . . . . . 7 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝜑)
5 lshpkrlem.w . . . . . . 7 (𝜑𝑊 ∈ LVec)
64, 5syl 17 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ LVec)
7 lveclmod 21097 . . . . . 6 (𝑊 ∈ LVec → 𝑊 ∈ LMod)
86, 7syl 17 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ LMod)
9 eqid 2737 . . . . . 6 (LSubSp‘𝑊) = (LSubSp‘𝑊)
109lsssssubg 20948 . . . . 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 39445 . . . . 5 (𝜑𝑈 ∈ (LSubSp‘𝑊))
164, 15syl 17 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ∈ (LSubSp‘𝑊))
1711, 16sseldd 3923 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ∈ (SubGrp‘𝑊))
18 lshpkrlem.z . . . . . 6 (𝜑𝑍𝑉)
194, 18syl 17 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑍𝑉)
20 lshpkrlem.v . . . . . 6 𝑉 = (Base‘𝑊)
21 lshpkrlem.n . . . . . 6 𝑁 = (LSpan‘𝑊)
2220, 9, 21lspsncl 20967 . . . . 5 ((𝑊 ∈ LMod ∧ 𝑍𝑉) → (𝑁‘{𝑍}) ∈ (LSubSp‘𝑊))
238, 19, 22syl2anc 585 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑁‘{𝑍}) ∈ (LSubSp‘𝑊))
2411, 23sseldd 3923 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑁‘{𝑍}) ∈ (SubGrp‘𝑊))
25 lshpkrlem.p . . . . 5 = (LSSum‘𝑊)
26 lshpkrlem.e . . . . 5 (𝜑 → (𝑈 (𝑁‘{𝑍})) = 𝑉)
2720, 2, 21, 25, 12, 5, 14, 18, 26lshpdisj 39451 . . . 4 (𝜑 → (𝑈 ∩ (𝑁‘{𝑍})) = {(0g𝑊)})
284, 27syl 17 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑈 ∩ (𝑁‘{𝑍})) = {(0g𝑊)})
29 lmodabl 20899 . . . . 5 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
308, 29syl 17 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑊 ∈ Abel)
313, 30, 17, 24ablcntzd 19827 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑈 ⊆ ((Cntz‘𝑊)‘(𝑁‘{𝑍})))
32 simp23r 1297 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑧𝑈)
33 simp12 1206 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑙𝐾)
34 simp22 1209 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑟𝑈)
35 lshpkrlem.d . . . . . 6 𝐷 = (Scalar‘𝑊)
36 lshpkrlem.t . . . . . 6 · = ( ·𝑠𝑊)
37 lshpkrlem.k . . . . . 6 𝐾 = (Base‘𝐷)
3835, 36, 37, 9lssvscl 20945 . . . . 5 (((𝑊 ∈ LMod ∧ 𝑈 ∈ (LSubSp‘𝑊)) ∧ (𝑙𝐾𝑟𝑈)) → (𝑙 · 𝑟) ∈ 𝑈)
398, 16, 33, 34, 38syl22anc 839 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙 · 𝑟) ∈ 𝑈)
40 simp23l 1296 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑠𝑈)
411, 9lssvacl 20933 . . . 4 (((𝑊 ∈ LMod ∧ 𝑈 ∈ (LSubSp‘𝑊)) ∧ ((𝑙 · 𝑟) ∈ 𝑈𝑠𝑈)) → ((𝑙 · 𝑟) + 𝑠) ∈ 𝑈)
428, 16, 39, 40, 41syl22anc 839 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑟) + 𝑠) ∈ 𝑈)
43 simp13 1207 . . . . . . 7 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑢𝑉)
4420, 35, 36, 37lmodvscl 20868 . . . . . . 7 ((𝑊 ∈ LMod ∧ 𝑙𝐾𝑢𝑉) → (𝑙 · 𝑢) ∈ 𝑉)
458, 33, 43, 44syl3anc 1374 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙 · 𝑢) ∈ 𝑉)
46 simp21 1208 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑣𝑉)
4720, 1lmodvacl 20865 . . . . . 6 ((𝑊 ∈ LMod ∧ (𝑙 · 𝑢) ∈ 𝑉𝑣𝑉) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
488, 45, 46, 47syl3anc 1374 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
495adantr 480 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑊 ∈ LVec)
5014adantr 480 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑈𝐻)
5118adantr 480 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → 𝑍𝑉)
52 simpr 484 . . . . . 6 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉)
5326adantr 480 . . . . . 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 39575 . . . . 5 ((𝜑 ∧ ((𝑙 · 𝑢) + 𝑣) ∈ 𝑉) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) ∈ 𝐾)
574, 48, 56syl2anc 585 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) ∈ 𝐾)
5820, 36, 35, 37, 21, 8, 57, 19ellspsni 20991 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) ∈ (𝑁‘{𝑍}))
595adantr 480 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑊 ∈ LVec)
6014adantr 480 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑈𝐻)
6118adantr 480 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑍𝑉)
62 simpr 484 . . . . . . . 8 ((𝜑𝑢𝑉) → 𝑢𝑉)
6326adantr 480 . . . . . . . 8 ((𝜑𝑢𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
6420, 1, 21, 25, 12, 59, 60, 61, 62, 63, 35, 37, 36, 54, 55lshpkrlem2 39575 . . . . . . 7 ((𝜑𝑢𝑉) → (𝐺𝑢) ∈ 𝐾)
654, 43, 64syl2anc 585 . . . . . 6 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺𝑢) ∈ 𝐾)
66 eqid 2737 . . . . . . 7 (.r𝐷) = (.r𝐷)
6735, 37, 66lmodmcl 20863 . . . . . 6 ((𝑊 ∈ LMod ∧ 𝑙𝐾 ∧ (𝐺𝑢) ∈ 𝐾) → (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾)
688, 33, 65, 67syl3anc 1374 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾)
695adantr 480 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑊 ∈ LVec)
7014adantr 480 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑈𝐻)
7118adantr 480 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑍𝑉)
72 simpr 484 . . . . . . 7 ((𝜑𝑣𝑉) → 𝑣𝑉)
7326adantr 480 . . . . . . 7 ((𝜑𝑣𝑉) → (𝑈 (𝑁‘{𝑍})) = 𝑉)
7420, 1, 21, 25, 12, 69, 70, 71, 72, 73, 35, 37, 36, 54, 55lshpkrlem2 39575 . . . . . 6 ((𝜑𝑣𝑉) → (𝐺𝑣) ∈ 𝐾)
754, 46, 74syl2anc 585 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺𝑣) ∈ 𝐾)
76 eqid 2737 . . . . . 6 (+g𝐷) = (+g𝐷)
7735, 37, 76lmodacl 20862 . . . . 5 ((𝑊 ∈ LMod ∧ (𝑙(.r𝐷)(𝐺𝑢)) ∈ 𝐾 ∧ (𝐺𝑣) ∈ 𝐾) → ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) ∈ 𝐾)
788, 68, 75, 77syl3anc 1374 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) ∈ 𝐾)
7920, 36, 35, 37, 21, 8, 78, 19ellspsni 20991 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍) ∈ (𝑁‘{𝑍}))
80 simp33 1213 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))
81 simp1 1137 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝜑𝑙𝐾𝑢𝑉))
8220, 9lssel 20927 . . . . . 6 ((𝑈 ∈ (LSubSp‘𝑊) ∧ 𝑟𝑈) → 𝑟𝑉)
8316, 34, 82syl2anc 585 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑟𝑉)
8420, 9lssel 20927 . . . . . 6 ((𝑈 ∈ (LSubSp‘𝑊) ∧ 𝑠𝑈) → 𝑠𝑉)
8516, 40, 84syl2anc 585 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑠𝑉)
86 simp31 1211 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)))
87 simp32 1212 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)))
88 lshpkrlem.x . . . . . 6 (𝜑𝑋𝑉)
8920, 1, 21, 25, 12, 5, 14, 18, 88, 26, 35, 37, 36, 54, 55lshpkrlem4 39577 . . . . 5 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑉𝑠𝑉) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
9081, 46, 83, 85, 86, 87, 89syl132anc 1391 . . . 4 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝑙 · 𝑢) + 𝑣) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
9180, 90eqtr3d 2774 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)) = (((𝑙 · 𝑟) + 𝑠) + (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍)))
921, 2, 3, 17, 24, 28, 31, 32, 42, 58, 79, 91subgdisj2 19662 . 2 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) = (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍))
9320, 21, 25, 12, 2, 13, 14, 18, 26lshpne0 39450 . . . 4 (𝜑𝑍 ≠ (0g𝑊))
944, 93syl 17 . . 3 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → 𝑍 ≠ (0g𝑊))
9520, 36, 35, 37, 2, 6, 57, 78, 19, 94lvecvscan2 21106 . 2 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍) = (((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)) · 𝑍) ↔ (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣))))
9692, 95mpbid 232 1 (((𝜑𝑙𝐾𝑢𝑉) ∧ (𝑣𝑉𝑟𝑈 ∧ (𝑠𝑈𝑧𝑈)) ∧ (𝑢 = (𝑟 + ((𝐺𝑢) · 𝑍)) ∧ 𝑣 = (𝑠 + ((𝐺𝑣) · 𝑍)) ∧ ((𝑙 · 𝑢) + 𝑣) = (𝑧 + ((𝐺‘((𝑙 · 𝑢) + 𝑣)) · 𝑍)))) → (𝐺‘((𝑙 · 𝑢) + 𝑣)) = ((𝑙(.r𝐷)(𝐺𝑢))(+g𝐷)(𝐺𝑣)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3a 1087   = wceq 1542  wcel 2114  wne 2933  wrex 3062  cin 3889  wss 3890  {csn 4568  cmpt 5167  cfv 6494  crio 7318  (class class class)co 7362  Basecbs 17174  +gcplusg 17215  .rcmulr 17216  Scalarcsca 17218   ·𝑠 cvsca 17219  0gc0g 17397  SubGrpcsubg 19091  Cntzccntz 19285  LSSumclsm 19604  Abelcabl 19751  LModclmod 20850  LSubSpclss 20921  LSpanclspn 20961  LVecclvec 21093  LSHypclsh 39439
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5304  ax-pr 5372  ax-un 7684  ax-cnex 11089  ax-resscn 11090  ax-1cn 11091  ax-icn 11092  ax-addcl 11093  ax-addrcl 11094  ax-mulcl 11095  ax-mulrcl 11096  ax-mulcom 11097  ax-addass 11098  ax-mulass 11099  ax-distr 11100  ax-i2m1 11101  ax-1ne0 11102  ax-1rid 11103  ax-rnegex 11104  ax-rrecex 11105  ax-cnre 11106  ax-pre-lttri 11107  ax-pre-lttrn 11108  ax-pre-ltadd 11109  ax-pre-mulgt0 11110
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5521  df-eprel 5526  df-po 5534  df-so 5535  df-fr 5579  df-we 5581  df-xp 5632  df-rel 5633  df-cnv 5634  df-co 5635  df-dm 5636  df-rn 5637  df-res 5638  df-ima 5639  df-pred 6261  df-ord 6322  df-on 6323  df-lim 6324  df-suc 6325  df-iota 6450  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-riota 7319  df-ov 7365  df-oprab 7366  df-mpo 7367  df-om 7813  df-1st 7937  df-2nd 7938  df-tpos 8171  df-frecs 8226  df-wrecs 8257  df-recs 8306  df-rdg 8344  df-er 8638  df-en 8889  df-dom 8890  df-sdom 8891  df-pnf 11176  df-mnf 11177  df-xr 11178  df-ltxr 11179  df-le 11180  df-sub 11374  df-neg 11375  df-nn 12170  df-2 12239  df-3 12240  df-sets 17129  df-slot 17147  df-ndx 17159  df-base 17175  df-ress 17196  df-plusg 17228  df-mulr 17229  df-0g 17399  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-submnd 18747  df-grp 18907  df-minusg 18908  df-sbg 18909  df-subg 19094  df-cntz 19287  df-lsm 19606  df-cmn 19752  df-abl 19753  df-mgp 20117  df-rng 20129  df-ur 20158  df-ring 20211  df-oppr 20312  df-dvdsr 20332  df-unit 20333  df-invr 20363  df-drng 20703  df-lmod 20852  df-lss 20922  df-lsp 20962  df-lvec 21094  df-lshyp 39441
This theorem is referenced by:  lshpkrlem6  39579
  Copyright terms: Public domain W3C validator