Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  frlmphl Structured version   Visualization version   GIF version

Theorem frlmphl 20627
 Description: Conditions for a free module to be a pre-Hilbert space. (Contributed by Thierry Arnoux, 21-Jun-2019.) (Proof shortened by AV, 21-Jul-2019.)
Hypotheses
Ref Expression
frlmphl.y 𝑌 = (𝑅 freeLMod 𝐼)
frlmphl.b 𝐵 = (Base‘𝑅)
frlmphl.t · = (.r𝑅)
frlmphl.v 𝑉 = (Base‘𝑌)
frlmphl.j , = (·𝑖𝑌)
frlmphl.o 𝑂 = (0g𝑌)
frlmphl.0 0 = (0g𝑅)
frlmphl.s = (*𝑟𝑅)
frlmphl.f (𝜑𝑅 ∈ Field)
frlmphl.m ((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) → 𝑔 = 𝑂)
frlmphl.u ((𝜑𝑥𝐵) → ( 𝑥) = 𝑥)
frlmphl.i (𝜑𝐼𝑊)
Assertion
Ref Expression
frlmphl (𝜑𝑌 ∈ PreHil)
Distinct variable groups:   𝐵,𝑔,𝑥   𝑔,𝐼,𝑥   𝑅,𝑔,𝑥   𝑔,𝑉,𝑥   𝑔,𝑊,𝑥   · ,𝑔,𝑥   𝑔,𝑌,𝑥   0 ,𝑔,𝑥   𝜑,𝑔,𝑥   , ,𝑔,𝑥   𝑔,𝑂   𝑥,
Allowed substitution hints:   (𝑔)   𝑂(𝑥)

Proof of Theorem frlmphl
Dummy variables 𝑓 𝑒 𝑖 𝑦 𝑧 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 frlmphl.v . . 3 𝑉 = (Base‘𝑌)
21a1i 11 . 2 (𝜑𝑉 = (Base‘𝑌))
3 eqidd 2779 . 2 (𝜑 → (+g𝑌) = (+g𝑌))
4 eqidd 2779 . 2 (𝜑 → ( ·𝑠𝑌) = ( ·𝑠𝑌))
5 frlmphl.j . . 3 , = (·𝑖𝑌)
65a1i 11 . 2 (𝜑, = (·𝑖𝑌))
7 frlmphl.o . . 3 𝑂 = (0g𝑌)
87a1i 11 . 2 (𝜑𝑂 = (0g𝑌))
9 frlmphl.f . . . . 5 (𝜑𝑅 ∈ Field)
10 isfld 19234 . . . . 5 (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
119, 10sylib 210 . . . 4 (𝜑 → (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
1211simpld 487 . . 3 (𝜑𝑅 ∈ DivRing)
13 frlmphl.i . . 3 (𝜑𝐼𝑊)
14 frlmphl.y . . . 4 𝑌 = (𝑅 freeLMod 𝐼)
1514frlmsca 20599 . . 3 ((𝑅 ∈ DivRing ∧ 𝐼𝑊) → 𝑅 = (Scalar‘𝑌))
1612, 13, 15syl2anc 576 . 2 (𝜑𝑅 = (Scalar‘𝑌))
17 frlmphl.b . . 3 𝐵 = (Base‘𝑅)
1817a1i 11 . 2 (𝜑𝐵 = (Base‘𝑅))
19 eqidd 2779 . 2 (𝜑 → (+g𝑅) = (+g𝑅))
20 frlmphl.t . . 3 · = (.r𝑅)
2120a1i 11 . 2 (𝜑· = (.r𝑅))
22 frlmphl.s . . 3 = (*𝑟𝑅)
2322a1i 11 . 2 (𝜑 = (*𝑟𝑅))
24 frlmphl.0 . . 3 0 = (0g𝑅)
2524a1i 11 . 2 (𝜑0 = (0g𝑅))
26 drngring 19232 . . . . 5 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
2712, 26syl 17 . . . 4 (𝜑𝑅 ∈ Ring)
2814frlmlmod 20595 . . . 4 ((𝑅 ∈ Ring ∧ 𝐼𝑊) → 𝑌 ∈ LMod)
2927, 13, 28syl2anc 576 . . 3 (𝜑𝑌 ∈ LMod)
3016, 12eqeltrrd 2867 . . 3 (𝜑 → (Scalar‘𝑌) ∈ DivRing)
31 eqid 2778 . . . 4 (Scalar‘𝑌) = (Scalar‘𝑌)
3231islvec 19598 . . 3 (𝑌 ∈ LVec ↔ (𝑌 ∈ LMod ∧ (Scalar‘𝑌) ∈ DivRing))
3329, 30, 32sylanbrc 575 . 2 (𝜑𝑌 ∈ LVec)
3411simprd 488 . . 3 (𝜑𝑅 ∈ CRing)
35 frlmphl.u . . 3 ((𝜑𝑥𝐵) → ( 𝑥) = 𝑥)
3617, 22, 34, 35idsrngd 19355 . 2 (𝜑𝑅 ∈ *-Ring)
37133ad2ant1 1113 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝐼𝑊)
38273ad2ant1 1113 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝑅 ∈ Ring)
39 simp2 1117 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝑔𝑉)
40 simp3 1118 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝑉)
4114, 17, 20, 1, 5frlmipval 20625 . . . . 5 (((𝐼𝑊𝑅 ∈ Ring) ∧ (𝑔𝑉𝑉)) → (𝑔 , ) = (𝑅 Σg (𝑔𝑓 · )))
4237, 38, 39, 40, 41syl22anc 826 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑔 , ) = (𝑅 Σg (𝑔𝑓 · )))
4314, 17, 1frlmbasmap 20605 . . . . . . . . 9 ((𝐼𝑊𝑔𝑉) → 𝑔 ∈ (𝐵𝑚 𝐼))
4437, 39, 43syl2anc 576 . . . . . . . 8 ((𝜑𝑔𝑉𝑉) → 𝑔 ∈ (𝐵𝑚 𝐼))
45 elmapi 8228 . . . . . . . 8 (𝑔 ∈ (𝐵𝑚 𝐼) → 𝑔:𝐼𝐵)
4644, 45syl 17 . . . . . . 7 ((𝜑𝑔𝑉𝑉) → 𝑔:𝐼𝐵)
4746ffnd 6345 . . . . . 6 ((𝜑𝑔𝑉𝑉) → 𝑔 Fn 𝐼)
4814, 17, 1frlmbasmap 20605 . . . . . . . . 9 ((𝐼𝑊𝑉) → ∈ (𝐵𝑚 𝐼))
4937, 40, 48syl2anc 576 . . . . . . . 8 ((𝜑𝑔𝑉𝑉) → ∈ (𝐵𝑚 𝐼))
50 elmapi 8228 . . . . . . . 8 ( ∈ (𝐵𝑚 𝐼) → :𝐼𝐵)
5149, 50syl 17 . . . . . . 7 ((𝜑𝑔𝑉𝑉) → :𝐼𝐵)
5251ffnd 6345 . . . . . 6 ((𝜑𝑔𝑉𝑉) → Fn 𝐼)
53 inidm 4082 . . . . . 6 (𝐼𝐼) = 𝐼
54 eqidd 2779 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑔𝑥) = (𝑔𝑥))
55 eqidd 2779 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑥) = (𝑥))
5647, 52, 37, 37, 53, 54, 55offval 7234 . . . . 5 ((𝜑𝑔𝑉𝑉) → (𝑔𝑓 · ) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))
5756oveq2d 6992 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑔𝑓 · )) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
5842, 57eqtrd 2814 . . 3 ((𝜑𝑔𝑉𝑉) → (𝑔 , ) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
59 ringcmn 19054 . . . . . 6 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
6027, 59syl 17 . . . . 5 (𝜑𝑅 ∈ CMnd)
61603ad2ant1 1113 . . . 4 ((𝜑𝑔𝑉𝑉) → 𝑅 ∈ CMnd)
6238adantr 473 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → 𝑅 ∈ Ring)
6346ffvelrnda 6676 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑔𝑥) ∈ 𝐵)
6451ffvelrnda 6676 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑥) ∈ 𝐵)
6517, 20ringcl 19034 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝑔𝑥) ∈ 𝐵 ∧ (𝑥) ∈ 𝐵) → ((𝑔𝑥) · (𝑥)) ∈ 𝐵)
6662, 63, 64, 65syl3anc 1351 . . . . 5 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → ((𝑔𝑥) · (𝑥)) ∈ 𝐵)
6766fmpttd 6702 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))):𝐼𝐵)
68 frlmphl.m . . . . 5 ((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) → 𝑔 = 𝑂)
6914, 17, 20, 1, 5, 7, 24, 22, 9, 68, 35, 13frlmphllem 20626 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))) finSupp 0 )
7017, 24, 61, 37, 67, 69gsumcl 18789 . . 3 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))) ∈ 𝐵)
7158, 70eqeltrd 2866 . 2 ((𝜑𝑔𝑉𝑉) → (𝑔 , ) ∈ 𝐵)
72 eqid 2778 . . . 4 (+g𝑅) = (+g𝑅)
73603ad2ant1 1113 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑅 ∈ CMnd)
74133ad2ant1 1113 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝐼𝑊)
75273ad2ant1 1113 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑅 ∈ Ring)
7675adantr 473 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑅 ∈ Ring)
77 simp2 1117 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑘𝐵)
7877adantr 473 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑘𝐵)
79 simp31 1189 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑔𝑉)
8074, 79, 43syl2anc 576 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑔 ∈ (𝐵𝑚 𝐼))
8180, 45syl 17 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑔:𝐼𝐵)
8281ffvelrnda 6676 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑔𝑥) ∈ 𝐵)
83 simp33 1191 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖𝑉)
8414, 17, 1frlmbasmap 20605 . . . . . . . . 9 ((𝐼𝑊𝑖𝑉) → 𝑖 ∈ (𝐵𝑚 𝐼))
8574, 83, 84syl2anc 576 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖 ∈ (𝐵𝑚 𝐼))
86 elmapi 8228 . . . . . . . 8 (𝑖 ∈ (𝐵𝑚 𝐼) → 𝑖:𝐼𝐵)
8785, 86syl 17 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖:𝐼𝐵)
8887ffvelrnda 6676 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑖𝑥) ∈ 𝐵)
8917, 20ringcl 19034 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝑔𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵) → ((𝑔𝑥) · (𝑖𝑥)) ∈ 𝐵)
9076, 82, 88, 89syl3anc 1351 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑔𝑥) · (𝑖𝑥)) ∈ 𝐵)
9117, 20ringcl 19034 . . . . 5 ((𝑅 ∈ Ring ∧ 𝑘𝐵 ∧ ((𝑔𝑥) · (𝑖𝑥)) ∈ 𝐵) → (𝑘 · ((𝑔𝑥) · (𝑖𝑥))) ∈ 𝐵)
9276, 78, 90, 91syl3anc 1351 . . . 4 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑘 · ((𝑔𝑥) · (𝑖𝑥))) ∈ 𝐵)
93 simp32 1190 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑉)
9474, 93, 48syl2anc 576 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ∈ (𝐵𝑚 𝐼))
9594, 50syl 17 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → :𝐼𝐵)
9695ffvelrnda 6676 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑥) ∈ 𝐵)
9717, 20ringcl 19034 . . . . 5 ((𝑅 ∈ Ring ∧ (𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵) → ((𝑥) · (𝑖𝑥)) ∈ 𝐵)
9876, 96, 88, 97syl3anc 1351 . . . 4 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑥) · (𝑖𝑥)) ∈ 𝐵)
99 eqidd 2779 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
100 eqidd 2779 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))) = (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))
101 fveq2 6499 . . . . . . . . 9 (𝑥 = 𝑦 → (𝑔𝑥) = (𝑔𝑦))
102101oveq2d 6992 . . . . . . . 8 (𝑥 = 𝑦 → (𝑘 · (𝑔𝑥)) = (𝑘 · (𝑔𝑦)))
103102cbvmptv 5028 . . . . . . 7 (𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) = (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦)))
104103oveq1i 6986 . . . . . 6 ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) = ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) ∘𝑓 · 𝑖)
10517, 20ringcl 19034 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝑘𝐵 ∧ (𝑔𝑥) ∈ 𝐵) → (𝑘 · (𝑔𝑥)) ∈ 𝐵)
10676, 78, 82, 105syl3anc 1351 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑘 · (𝑔𝑥)) ∈ 𝐵)
107106fmpttd 6702 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))):𝐼𝐵)
108107ffnd 6345 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) Fn 𝐼)
109103fneq1i 6283 . . . . . . . . 9 ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) Fn 𝐼 ↔ (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) Fn 𝐼)
110108, 109sylib 210 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) Fn 𝐼)
11187ffnd 6345 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖 Fn 𝐼)
112 eqidd 2779 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) = (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))))
113 simpr 477 . . . . . . . . . . 11 ((((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) ∧ 𝑦 = 𝑥) → 𝑦 = 𝑥)
114113fveq2d 6503 . . . . . . . . . 10 ((((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) ∧ 𝑦 = 𝑥) → (𝑔𝑦) = (𝑔𝑥))
115114oveq2d 6992 . . . . . . . . 9 ((((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) ∧ 𝑦 = 𝑥) → (𝑘 · (𝑔𝑦)) = (𝑘 · (𝑔𝑥)))
116 simpr 477 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑥𝐼)
117 ovexd 7010 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑘 · (𝑔𝑥)) ∈ V)
118112, 115, 116, 117fvmptd 6601 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦)))‘𝑥) = (𝑘 · (𝑔𝑥)))
119 eqidd 2779 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑖𝑥) = (𝑖𝑥))
120110, 111, 74, 74, 53, 118, 119offval 7234 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) ∘𝑓 · 𝑖) = (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥)) · (𝑖𝑥))))
12117, 20ringass 19037 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝑘𝐵 ∧ (𝑔𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵)) → ((𝑘 · (𝑔𝑥)) · (𝑖𝑥)) = (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))
12276, 78, 82, 88, 121syl13anc 1352 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑘 · (𝑔𝑥)) · (𝑖𝑥)) = (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))
123122mpteq2dva 5022 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥)) · (𝑖𝑥))) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
124120, 123eqtrd 2814 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) ∘𝑓 · 𝑖) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
125104, 124syl5eq 2826 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
126 ovexd 7010 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) ∈ V)
127 funmpt 6226 . . . . . . 7 Fun (𝑧𝐼 ↦ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) · (𝑖𝑧)))
128 eqidd 2779 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑧𝐼) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) = ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧))
129 eqidd 2779 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑧𝐼) → (𝑖𝑧) = (𝑖𝑧))
130108, 111, 74, 74, 53, 128, 129offval 7234 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) = (𝑧𝐼 ↦ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) · (𝑖𝑧))))
131130funeqd 6210 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (Fun ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) ↔ Fun (𝑧𝐼 ↦ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) · (𝑖𝑧)))))
132127, 131mpbiri 250 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → Fun ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖))
133 simp3 1118 . . . . . . . . 9 ((𝑔𝑉𝑉𝑖𝑉) → 𝑖𝑉)
13413, 133anim12i 603 . . . . . . . 8 ((𝜑 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝐼𝑊𝑖𝑉))
1351343adant2 1111 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝐼𝑊𝑖𝑉))
13614, 24, 1frlmbasfsupp 20604 . . . . . . 7 ((𝐼𝑊𝑖𝑉) → 𝑖 finSupp 0 )
137135, 136syl 17 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖 finSupp 0 )
13817, 24ring0cl 19042 . . . . . . . 8 (𝑅 ∈ Ring → 0𝐵)
13975, 138syl 17 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 0𝐵)
14017, 20, 24ringrz 19061 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝑦𝐵) → (𝑦 · 0 ) = 0 )
14175, 140sylan 572 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑦𝐵) → (𝑦 · 0 ) = 0 )
14274, 139, 107, 87, 141suppofss2d 7672 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) supp 0 ) ⊆ (𝑖 supp 0 ))
143 fsuppsssupp 8644 . . . . . 6 (((((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) ∈ V ∧ Fun ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖)) ∧ (𝑖 finSupp 0 ∧ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) supp 0 ) ⊆ (𝑖 supp 0 ))) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) finSupp 0 )
144126, 132, 137, 142, 143syl22anc 826 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘𝑓 · 𝑖) finSupp 0 )
145125, 144eqbrtrrd 4953 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))) finSupp 0 )
146 simp1 1116 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝜑)
147 eleq1w 2848 . . . . . . . . 9 (𝑔 = → (𝑔𝑉𝑉))
148 id 22 . . . . . . . . . . 11 (𝑔 = 𝑔 = )
149148, 148oveq12d 6994 . . . . . . . . . 10 (𝑔 = → (𝑔 , 𝑔) = ( , ))
150149eqeq1d 2780 . . . . . . . . 9 (𝑔 = → ((𝑔 , 𝑔) = 0 ↔ ( , ) = 0 ))
151147, 1503anbi23d 1418 . . . . . . . 8 (𝑔 = → ((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) ↔ (𝜑𝑉 ∧ ( , ) = 0 )))
152 eqeq1 2782 . . . . . . . 8 (𝑔 = → (𝑔 = 𝑂 = 𝑂))
153151, 152imbi12d 337 . . . . . . 7 (𝑔 = → (((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) → 𝑔 = 𝑂) ↔ ((𝜑𝑉 ∧ ( , ) = 0 ) → = 𝑂)))
154153, 68chvarv 2327 . . . . . 6 ((𝜑𝑉 ∧ ( , ) = 0 ) → = 𝑂)
15514, 17, 20, 1, 5, 7, 24, 22, 9, 154, 35, 13frlmphllem 20626 . . . . 5 ((𝜑𝑉𝑖𝑉) → (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))) finSupp 0 )
156146, 93, 83, 155syl3anc 1351 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))) finSupp 0 )
15717, 24, 72, 73, 74, 92, 98, 99, 100, 145, 156gsummptfsadd 18797 . . 3 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))) = ((𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))(+g𝑅)(𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))))
15814, 17, 20frlmip 20624 . . . . . . . . 9 ((𝐼𝑊𝑅 ∈ DivRing) → (𝑔 ∈ (𝐵𝑚 𝐼), ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))) = (·𝑖𝑌))
15913, 12, 158syl2anc 576 . . . . . . . 8 (𝜑 → (𝑔 ∈ (𝐵𝑚 𝐼), ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))) = (·𝑖𝑌))
160159, 5syl6reqr 2833 . . . . . . 7 (𝜑, = (𝑔 ∈ (𝐵𝑚 𝐼), ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))))
161 fveq1 6498 . . . . . . . . . . 11 (𝑒 = 𝑔 → (𝑒𝑥) = (𝑔𝑥))
162161oveq1d 6991 . . . . . . . . . 10 (𝑒 = 𝑔 → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑔𝑥) · (𝑓𝑥)))
163162mpteq2dv 5023 . . . . . . . . 9 (𝑒 = 𝑔 → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥))))
164163oveq2d 6992 . . . . . . . 8 (𝑒 = 𝑔 → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥)))))
165 fveq1 6498 . . . . . . . . . . 11 (𝑓 = → (𝑓𝑥) = (𝑥))
166165oveq2d 6992 . . . . . . . . . 10 (𝑓 = → ((𝑔𝑥) · (𝑓𝑥)) = ((𝑔𝑥) · (𝑥)))
167166mpteq2dv 5023 . . . . . . . . 9 (𝑓 = → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))
168167oveq2d 6992 . . . . . . . 8 (𝑓 = → (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
169164, 168cbvmpov 7065 . . . . . . 7 (𝑒 ∈ (𝐵𝑚 𝐼), 𝑓 ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))) = (𝑔 ∈ (𝐵𝑚 𝐼), ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
170160, 169syl6eqr 2832 . . . . . 6 (𝜑, = (𝑒 ∈ (𝐵𝑚 𝐼), 𝑓 ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))))
1711703ad2ant1 1113 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → , = (𝑒 ∈ (𝐵𝑚 𝐼), 𝑓 ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))))
172 simprl 758 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → 𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)))
173172fveq1d 6501 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑒𝑥) = (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥))
174 simprr 760 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → 𝑓 = 𝑖)
175174fveq1d 6501 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑓𝑥) = (𝑖𝑥))
176173, 175oveq12d 6994 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → ((𝑒𝑥) · (𝑓𝑥)) = ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))
177176mpteq2dv 5023 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥))))
178177oveq2d 6992 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))))
179293ad2ant1 1113 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑌 ∈ LMod)
180163ad2ant1 1113 . . . . . . . . . . 11 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑅 = (Scalar‘𝑌))
181180fveq2d 6503 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (Base‘𝑅) = (Base‘(Scalar‘𝑌)))
18217, 181syl5eq 2826 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝐵 = (Base‘(Scalar‘𝑌)))
18377, 182eleqtrd 2868 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑘 ∈ (Base‘(Scalar‘𝑌)))
184 eqid 2778 . . . . . . . . 9 ( ·𝑠𝑌) = ( ·𝑠𝑌)
185 eqid 2778 . . . . . . . . 9 (Base‘(Scalar‘𝑌)) = (Base‘(Scalar‘𝑌))
1861, 31, 184, 185lmodvscl 19373 . . . . . . . 8 ((𝑌 ∈ LMod ∧ 𝑘 ∈ (Base‘(Scalar‘𝑌)) ∧ 𝑔𝑉) → (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉)
187179, 183, 79, 186syl3anc 1351 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉)
188 eqid 2778 . . . . . . . 8 (+g𝑌) = (+g𝑌)
1891, 188lmodvacl 19370 . . . . . . 7 ((𝑌 ∈ LMod ∧ (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉𝑉) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ 𝑉)
190179, 187, 93, 189syl3anc 1351 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ 𝑉)
19114, 17, 1frlmbasmap 20605 . . . . . 6 ((𝐼𝑊 ∧ ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ 𝑉) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ (𝐵𝑚 𝐼))
19274, 190, 191syl2anc 576 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ (𝐵𝑚 𝐼))
193 ovexd 7010 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))) ∈ V)
194171, 178, 192, 85, 193ovmpod 7118 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))))
19514, 1, 75, 74, 187, 93, 72, 188frlmplusgval 20610 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) = ((𝑘( ·𝑠𝑌)𝑔) ∘𝑓 (+g𝑅)))
19614, 17, 1frlmbasmap 20605 . . . . . . . . . . . . 13 ((𝐼𝑊 ∧ (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉) → (𝑘( ·𝑠𝑌)𝑔) ∈ (𝐵𝑚 𝐼))
19774, 187, 196syl2anc 576 . . . . . . . . . . . 12 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘( ·𝑠𝑌)𝑔) ∈ (𝐵𝑚 𝐼))
198 elmapi 8228 . . . . . . . . . . . 12 ((𝑘( ·𝑠𝑌)𝑔) ∈ (𝐵𝑚 𝐼) → (𝑘( ·𝑠𝑌)𝑔):𝐼𝐵)
199 ffn 6344 . . . . . . . . . . . 12 ((𝑘( ·𝑠𝑌)𝑔):𝐼𝐵 → (𝑘( ·𝑠𝑌)𝑔) Fn 𝐼)
200197, 198, 1993syl 18 . . . . . . . . . . 11 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘( ·𝑠𝑌)𝑔) Fn 𝐼)
20195ffnd 6345 . . . . . . . . . . 11 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → Fn 𝐼)
20274adantr 473 . . . . . . . . . . . 12 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝐼𝑊)
20379adantr 473 . . . . . . . . . . . 12 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑔𝑉)
20414, 1, 17, 202, 78, 203, 116, 184, 20frlmvscaval 20614 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑘( ·𝑠𝑌)𝑔)‘𝑥) = (𝑘 · (𝑔𝑥)))
205 eqidd 2779 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑥) = (𝑥))
206200, 201, 74, 74, 53, 204, 205offval 7234 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔) ∘𝑓 (+g𝑅)) = (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥))))
207195, 206eqtrd 2814 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) = (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥))))
208 ovexd 7010 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) ∈ V)
209207, 208fvmpt2d 6607 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) = ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)))
210209oveq1d 6991 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)) = (((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) · (𝑖𝑥)))
21117, 72, 20ringdir 19040 . . . . . . . 8 ((𝑅 ∈ Ring ∧ ((𝑘 · (𝑔𝑥)) ∈ 𝐵 ∧ (𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵)) → (((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) · (𝑖𝑥)) = (((𝑘 · (𝑔𝑥)) · (𝑖𝑥))(+g𝑅)((𝑥) · (𝑖𝑥))))
21276, 106, 96, 88, 211syl13anc 1352 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) · (𝑖𝑥)) = (((𝑘 · (𝑔𝑥)) · (𝑖𝑥))(+g𝑅)((𝑥) · (𝑖𝑥))))
213122oveq1d 6991 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (((𝑘 · (𝑔𝑥)) · (𝑖𝑥))(+g𝑅)((𝑥) · (𝑖𝑥))) = ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))
214210, 212, 2133eqtrd 2818 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)) = ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))
215214mpteq2dva 5022 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥))) = (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥)))))
216215oveq2d 6992 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))))
217194, 216eqtrd 2814 . . 3 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))))
218 simprl 758 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → 𝑒 = 𝑔)
219218fveq1d 6501 . . . . . . . . . 10 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑒𝑥) = (𝑔𝑥))
220 simprr 760 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → 𝑓 = 𝑖)
221220fveq1d 6501 . . . . . . . . . 10 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑓𝑥) = (𝑖𝑥))
222219, 221oveq12d 6994 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑔𝑥) · (𝑖𝑥)))
223222mpteq2dv 5023 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))))
224223oveq2d 6992 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥)))))
225 ovexd 7010 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥)))) ∈ V)
226171, 224, 80, 85, 225ovmpod 7118 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑔 , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥)))))
227226oveq2d 6992 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘 · (𝑔 , 𝑖)) = (𝑘 · (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))))))
22814, 17, 20, 1, 5, 7, 24, 22, 9, 68, 35, 13frlmphllem 20626 . . . . . . 7 ((𝜑𝑔𝑉𝑖𝑉) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))) finSupp 0 )
229146, 79, 83, 228syl3anc 1351 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))) finSupp 0 )
23017, 24, 72, 20, 75, 74, 77, 90, 229gsummulc2 19080 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))) = (𝑘 · (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))))))
231227, 230eqtr4d 2817 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘 · (𝑔 , 𝑖)) = (𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))))
232 simprl 758 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → 𝑒 = )
233232fveq1d 6501 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑒𝑥) = (𝑥))
234 simprr 760 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → 𝑓 = 𝑖)
235234fveq1d 6501 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑓𝑥) = (𝑖𝑥))
236233, 235oveq12d 6994 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑥) · (𝑖𝑥)))
237236mpteq2dv 5023 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))
238237oveq2d 6992 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥)))))
239 ovexd 7010 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥)))) ∈ V)
240171, 238, 94, 85, 239ovmpod 7118 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ( , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥)))))
241231, 240oveq12d 6994 . . 3 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘 · (𝑔 , 𝑖))(+g𝑅)( , 𝑖)) = ((𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))(+g𝑅)(𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))))
242157, 217, 2413eqtr4d 2824 . 2 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) , 𝑖) = ((𝑘 · (𝑔 , 𝑖))(+g𝑅)( , 𝑖)))
243343ad2ant1 1113 . . . . . . 7 ((𝜑𝑔𝑉𝑉) → 𝑅 ∈ CRing)
244243adantr 473 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → 𝑅 ∈ CRing)
24517, 20crngcom 19035 . . . . . 6 ((𝑅 ∈ CRing ∧ (𝑥) ∈ 𝐵 ∧ (𝑔𝑥) ∈ 𝐵) → ((𝑥) · (𝑔𝑥)) = ((𝑔𝑥) · (𝑥)))
246244, 64, 63, 245syl3anc 1351 . . . . 5 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → ((𝑥) · (𝑔𝑥)) = ((𝑔𝑥) · (𝑥)))
247246mpteq2dva 5022 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))
248247oveq2d 6992 . . 3 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
2491703ad2ant1 1113 . . . 4 ((𝜑𝑔𝑉𝑉) → , = (𝑒 ∈ (𝐵𝑚 𝐼), 𝑓 ∈ (𝐵𝑚 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))))
250 simprl 758 . . . . . . . 8 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → 𝑒 = )
251250fveq1d 6501 . . . . . . 7 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑒𝑥) = (𝑥))
252 simprr 760 . . . . . . . 8 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → 𝑓 = 𝑔)
253252fveq1d 6501 . . . . . . 7 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑓𝑥) = (𝑔𝑥))
254251, 253oveq12d 6994 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑥) · (𝑔𝑥)))
255254mpteq2dv 5023 . . . . 5 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥))))
256255oveq2d 6992 . . . 4 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))))
257 ovexd 7010 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))) ∈ V)
258249, 256, 49, 44, 257ovmpod 7118 . . 3 ((𝜑𝑔𝑉𝑉) → ( , 𝑔) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))))
259 fveq2 6499 . . . . . 6 (𝑥 = (𝑔 , ) → ( 𝑥) = ( ‘(𝑔 , )))
260 id 22 . . . . . 6 (𝑥 = (𝑔 , ) → 𝑥 = (𝑔 , ))
261259, 260eqeq12d 2793 . . . . 5 (𝑥 = (𝑔 , ) → (( 𝑥) = 𝑥 ↔ ( ‘(𝑔 , )) = (𝑔 , )))
26235ralrimiva 3132 . . . . . 6 (𝜑 → ∀𝑥𝐵 ( 𝑥) = 𝑥)
2632623ad2ant1 1113 . . . . 5 ((𝜑𝑔𝑉𝑉) → ∀𝑥𝐵 ( 𝑥) = 𝑥)
264261, 263, 71rspcdva 3541 . . . 4 ((𝜑𝑔𝑉𝑉) → ( ‘(𝑔 , )) = (𝑔 , ))
265264, 58eqtrd 2814 . . 3 ((𝜑𝑔𝑉𝑉) → ( ‘(𝑔 , )) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
266248, 258, 2653eqtr4rd 2825 . 2 ((𝜑𝑔𝑉𝑉) → ( ‘(𝑔 , )) = ( , 𝑔))
2672, 3, 4, 6, 8, 16, 18, 19, 21, 23, 25, 33, 36, 71, 242, 68, 266isphld 20500 1 (𝜑𝑌 ∈ PreHil)
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 387   ∧ w3a 1068   = wceq 1507   ∈ wcel 2050  ∀wral 3088  Vcvv 3415   ⊆ wss 3829   class class class wbr 4929   ↦ cmpt 5008  Fun wfun 6182   Fn wfn 6183  ⟶wf 6184  ‘cfv 6188  (class class class)co 6976   ∈ cmpo 6978   ∘𝑓 cof 7225   supp csupp 7633   ↑𝑚 cmap 8206   finSupp cfsupp 8628  Basecbs 16339  +gcplusg 16421  .rcmulr 16422  *𝑟cstv 16423  Scalarcsca 16424   ·𝑠 cvsca 16425  ·𝑖cip 16426  0gc0g 16569   Σg cgsu 16570  CMndccmn 18666  Ringcrg 19020  CRingccrg 19021  DivRingcdr 19225  Fieldcfield 19226  LModclmod 19356  LVecclvec 19596  PreHilcphl 20470   freeLMod cfrlm 20592 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5049  ax-sep 5060  ax-nul 5067  ax-pow 5119  ax-pr 5186  ax-un 7279  ax-cnex 10391  ax-resscn 10392  ax-1cn 10393  ax-icn 10394  ax-addcl 10395  ax-addrcl 10396  ax-mulcl 10397  ax-mulrcl 10398  ax-mulcom 10399  ax-addass 10400  ax-mulass 10401  ax-distr 10402  ax-i2m1 10403  ax-1ne0 10404  ax-1rid 10405  ax-rnegex 10406  ax-rrecex 10407  ax-cnre 10408  ax-pre-lttri 10409  ax-pre-lttrn 10410  ax-pre-ltadd 10411  ax-pre-mulgt0 10412 This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-nel 3074  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3682  df-csb 3787  df-dif 3832  df-un 3834  df-in 3836  df-ss 3843  df-pss 3845  df-nul 4179  df-if 4351  df-pw 4424  df-sn 4442  df-pr 4444  df-tp 4446  df-op 4448  df-uni 4713  df-int 4750  df-iun 4794  df-br 4930  df-opab 4992  df-mpt 5009  df-tr 5031  df-id 5312  df-eprel 5317  df-po 5326  df-so 5327  df-fr 5366  df-se 5367  df-we 5368  df-xp 5413  df-rel 5414  df-cnv 5415  df-co 5416  df-dm 5417  df-rn 5418  df-res 5419  df-ima 5420  df-pred 5986  df-ord 6032  df-on 6033  df-lim 6034  df-suc 6035  df-iota 6152  df-fun 6190  df-fn 6191  df-f 6192  df-f1 6193  df-fo 6194  df-f1o 6195  df-fv 6196  df-isom 6197  df-riota 6937  df-ov 6979  df-oprab 6980  df-mpo 6981  df-of 7227  df-om 7397  df-1st 7501  df-2nd 7502  df-supp 7634  df-tpos 7695  df-wrecs 7750  df-recs 7812  df-rdg 7850  df-1o 7905  df-oadd 7909  df-er 8089  df-map 8208  df-ixp 8260  df-en 8307  df-dom 8308  df-sdom 8309  df-fin 8310  df-fsupp 8629  df-sup 8701  df-oi 8769  df-card 9162  df-pnf 10476  df-mnf 10477  df-xr 10478  df-ltxr 10479  df-le 10480  df-sub 10672  df-neg 10673  df-nn 11440  df-2 11503  df-3 11504  df-4 11505  df-5 11506  df-6 11507  df-7 11508  df-8 11509  df-9 11510  df-n0 11708  df-z 11794  df-dec 11912  df-uz 12059  df-fz 12709  df-fzo 12850  df-seq 13185  df-hash 13506  df-struct 16341  df-ndx 16342  df-slot 16343  df-base 16345  df-sets 16346  df-ress 16347  df-plusg 16434  df-mulr 16435  df-sca 16437  df-vsca 16438  df-ip 16439  df-tset 16440  df-ple 16441  df-ds 16443  df-hom 16445  df-cco 16446  df-0g 16571  df-gsum 16572  df-prds 16577  df-pws 16579  df-mgm 17710  df-sgrp 17752  df-mnd 17763  df-mhm 17803  df-submnd 17804  df-grp 17894  df-minusg 17895  df-sbg 17896  df-subg 18060  df-ghm 18127  df-cntz 18218  df-cmn 18668  df-abl 18669  df-mgp 18963  df-ur 18975  df-ring 19022  df-cring 19023  df-oppr 19096  df-rnghom 19190  df-drng 19227  df-field 19228  df-subrg 19256  df-staf 19338  df-srng 19339  df-lmod 19358  df-lss 19426  df-lmhm 19516  df-lvec 19597  df-sra 19666  df-rgmod 19667  df-phl 20472  df-dsmm 20578  df-frlm 20593 This theorem is referenced by:  rrxcph  23698
 Copyright terms: Public domain W3C validator