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

Theorem frlmphl 20489
 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 2799 . 2 (𝜑 → (+g𝑌) = (+g𝑌))
4 eqidd 2799 . 2 (𝜑 → ( ·𝑠𝑌) = ( ·𝑠𝑌))
5 frlmphl.j . . 3 , = (·𝑖𝑌)
65a1i 11 . 2 (𝜑, = (·𝑖𝑌))
7 frlmphl.o . . 3 𝑂 = (0g𝑌)
87a1i 11 . 2 (𝜑𝑂 = (0g𝑌))
9 frlmphl.f . . . . 5 (𝜑𝑅 ∈ Field)
10 isfld 19522 . . . . 5 (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
119, 10sylib 221 . . . 4 (𝜑 → (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
1211simpld 498 . . 3 (𝜑𝑅 ∈ DivRing)
13 frlmphl.i . . 3 (𝜑𝐼𝑊)
14 frlmphl.y . . . 4 𝑌 = (𝑅 freeLMod 𝐼)
1514frlmsca 20461 . . 3 ((𝑅 ∈ DivRing ∧ 𝐼𝑊) → 𝑅 = (Scalar‘𝑌))
1612, 13, 15syl2anc 587 . 2 (𝜑𝑅 = (Scalar‘𝑌))
17 frlmphl.b . . 3 𝐵 = (Base‘𝑅)
1817a1i 11 . 2 (𝜑𝐵 = (Base‘𝑅))
19 eqidd 2799 . 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 19520 . . . . 5 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
2712, 26syl 17 . . . 4 (𝜑𝑅 ∈ Ring)
2814frlmlmod 20457 . . . 4 ((𝑅 ∈ Ring ∧ 𝐼𝑊) → 𝑌 ∈ LMod)
2927, 13, 28syl2anc 587 . . 3 (𝜑𝑌 ∈ LMod)
3016, 12eqeltrrd 2891 . . 3 (𝜑 → (Scalar‘𝑌) ∈ DivRing)
31 eqid 2798 . . . 4 (Scalar‘𝑌) = (Scalar‘𝑌)
3231islvec 19887 . . 3 (𝑌 ∈ LVec ↔ (𝑌 ∈ LMod ∧ (Scalar‘𝑌) ∈ DivRing))
3329, 30, 32sylanbrc 586 . 2 (𝜑𝑌 ∈ LVec)
3411simprd 499 . . 3 (𝜑𝑅 ∈ CRing)
35 frlmphl.u . . 3 ((𝜑𝑥𝐵) → ( 𝑥) = 𝑥)
3617, 22, 34, 35idsrngd 19644 . 2 (𝜑𝑅 ∈ *-Ring)
37133ad2ant1 1130 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝐼𝑊)
38273ad2ant1 1130 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝑅 ∈ Ring)
39 simp2 1134 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝑔𝑉)
40 simp3 1135 . . . . 5 ((𝜑𝑔𝑉𝑉) → 𝑉)
4114, 17, 20, 1, 5frlmipval 20487 . . . . 5 (((𝐼𝑊𝑅 ∈ Ring) ∧ (𝑔𝑉𝑉)) → (𝑔 , ) = (𝑅 Σg (𝑔f · )))
4237, 38, 39, 40, 41syl22anc 837 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑔 , ) = (𝑅 Σg (𝑔f · )))
4314, 17, 1frlmbasmap 20467 . . . . . . . . 9 ((𝐼𝑊𝑔𝑉) → 𝑔 ∈ (𝐵m 𝐼))
4437, 39, 43syl2anc 587 . . . . . . . 8 ((𝜑𝑔𝑉𝑉) → 𝑔 ∈ (𝐵m 𝐼))
45 elmapi 8426 . . . . . . . 8 (𝑔 ∈ (𝐵m 𝐼) → 𝑔:𝐼𝐵)
4644, 45syl 17 . . . . . . 7 ((𝜑𝑔𝑉𝑉) → 𝑔:𝐼𝐵)
4746ffnd 6493 . . . . . 6 ((𝜑𝑔𝑉𝑉) → 𝑔 Fn 𝐼)
4814, 17, 1frlmbasmap 20467 . . . . . . . . 9 ((𝐼𝑊𝑉) → ∈ (𝐵m 𝐼))
4937, 40, 48syl2anc 587 . . . . . . . 8 ((𝜑𝑔𝑉𝑉) → ∈ (𝐵m 𝐼))
50 elmapi 8426 . . . . . . . 8 ( ∈ (𝐵m 𝐼) → :𝐼𝐵)
5149, 50syl 17 . . . . . . 7 ((𝜑𝑔𝑉𝑉) → :𝐼𝐵)
5251ffnd 6493 . . . . . 6 ((𝜑𝑔𝑉𝑉) → Fn 𝐼)
53 inidm 4147 . . . . . 6 (𝐼𝐼) = 𝐼
54 eqidd 2799 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑔𝑥) = (𝑔𝑥))
55 eqidd 2799 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑥) = (𝑥))
5647, 52, 37, 37, 53, 54, 55offval 7405 . . . . 5 ((𝜑𝑔𝑉𝑉) → (𝑔f · ) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))
5756oveq2d 7158 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑔f · )) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
5842, 57eqtrd 2833 . . 3 ((𝜑𝑔𝑉𝑉) → (𝑔 , ) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
59 ringcmn 19345 . . . . . 6 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
6027, 59syl 17 . . . . 5 (𝜑𝑅 ∈ CMnd)
61603ad2ant1 1130 . . . 4 ((𝜑𝑔𝑉𝑉) → 𝑅 ∈ CMnd)
6238adantr 484 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → 𝑅 ∈ Ring)
6346ffvelrnda 6835 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑔𝑥) ∈ 𝐵)
6451ffvelrnda 6835 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → (𝑥) ∈ 𝐵)
6517, 20ringcl 19325 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝑔𝑥) ∈ 𝐵 ∧ (𝑥) ∈ 𝐵) → ((𝑔𝑥) · (𝑥)) ∈ 𝐵)
6662, 63, 64, 65syl3anc 1368 . . . . 5 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → ((𝑔𝑥) · (𝑥)) ∈ 𝐵)
6766fmpttd 6863 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))):𝐼𝐵)
68 frlmphl.m . . . . 5 ((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) → 𝑔 = 𝑂)
6914, 17, 20, 1, 5, 7, 24, 22, 9, 68, 35, 13frlmphllem 20488 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))) finSupp 0 )
7017, 24, 61, 37, 67, 69gsumcl 19046 . . 3 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))) ∈ 𝐵)
7158, 70eqeltrd 2890 . 2 ((𝜑𝑔𝑉𝑉) → (𝑔 , ) ∈ 𝐵)
72 eqid 2798 . . . 4 (+g𝑅) = (+g𝑅)
73603ad2ant1 1130 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑅 ∈ CMnd)
74133ad2ant1 1130 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝐼𝑊)
75273ad2ant1 1130 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑅 ∈ Ring)
7675adantr 484 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑅 ∈ Ring)
77 simp2 1134 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑘𝐵)
7877adantr 484 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑘𝐵)
79 simp31 1206 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑔𝑉)
8074, 79, 43syl2anc 587 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑔 ∈ (𝐵m 𝐼))
8180, 45syl 17 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑔:𝐼𝐵)
8281ffvelrnda 6835 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑔𝑥) ∈ 𝐵)
83 simp33 1208 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖𝑉)
8414, 17, 1frlmbasmap 20467 . . . . . . . . 9 ((𝐼𝑊𝑖𝑉) → 𝑖 ∈ (𝐵m 𝐼))
8574, 83, 84syl2anc 587 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖 ∈ (𝐵m 𝐼))
86 elmapi 8426 . . . . . . . 8 (𝑖 ∈ (𝐵m 𝐼) → 𝑖:𝐼𝐵)
8785, 86syl 17 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖:𝐼𝐵)
8887ffvelrnda 6835 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑖𝑥) ∈ 𝐵)
8917, 20ringcl 19325 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝑔𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵) → ((𝑔𝑥) · (𝑖𝑥)) ∈ 𝐵)
9076, 82, 88, 89syl3anc 1368 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑔𝑥) · (𝑖𝑥)) ∈ 𝐵)
9117, 20ringcl 19325 . . . . 5 ((𝑅 ∈ Ring ∧ 𝑘𝐵 ∧ ((𝑔𝑥) · (𝑖𝑥)) ∈ 𝐵) → (𝑘 · ((𝑔𝑥) · (𝑖𝑥))) ∈ 𝐵)
9276, 78, 90, 91syl3anc 1368 . . . 4 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑘 · ((𝑔𝑥) · (𝑖𝑥))) ∈ 𝐵)
93 simp32 1207 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑉)
9474, 93, 48syl2anc 587 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ∈ (𝐵m 𝐼))
9594, 50syl 17 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → :𝐼𝐵)
9695ffvelrnda 6835 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑥) ∈ 𝐵)
9717, 20ringcl 19325 . . . . 5 ((𝑅 ∈ Ring ∧ (𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵) → ((𝑥) · (𝑖𝑥)) ∈ 𝐵)
9876, 96, 88, 97syl3anc 1368 . . . 4 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑥) · (𝑖𝑥)) ∈ 𝐵)
99 eqidd 2799 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
100 eqidd 2799 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))) = (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))
101 fveq2 6652 . . . . . . . . 9 (𝑥 = 𝑦 → (𝑔𝑥) = (𝑔𝑦))
102101oveq2d 7158 . . . . . . . 8 (𝑥 = 𝑦 → (𝑘 · (𝑔𝑥)) = (𝑘 · (𝑔𝑦)))
103102cbvmptv 5136 . . . . . . 7 (𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) = (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦)))
104103oveq1i 7152 . . . . . 6 ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) = ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) ∘f · 𝑖)
10517, 20ringcl 19325 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝑘𝐵 ∧ (𝑔𝑥) ∈ 𝐵) → (𝑘 · (𝑔𝑥)) ∈ 𝐵)
10676, 78, 82, 105syl3anc 1368 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑘 · (𝑔𝑥)) ∈ 𝐵)
107106fmpttd 6863 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))):𝐼𝐵)
108107ffnd 6493 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) Fn 𝐼)
109103fneq1i 6425 . . . . . . . . 9 ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) Fn 𝐼 ↔ (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) Fn 𝐼)
110108, 109sylib 221 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) Fn 𝐼)
11187ffnd 6493 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖 Fn 𝐼)
112 eqidd 2799 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) = (𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))))
113 simpr 488 . . . . . . . . . . 11 ((((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) ∧ 𝑦 = 𝑥) → 𝑦 = 𝑥)
114113fveq2d 6656 . . . . . . . . . 10 ((((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) ∧ 𝑦 = 𝑥) → (𝑔𝑦) = (𝑔𝑥))
115114oveq2d 7158 . . . . . . . . 9 ((((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) ∧ 𝑦 = 𝑥) → (𝑘 · (𝑔𝑦)) = (𝑘 · (𝑔𝑥)))
116 simpr 488 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑥𝐼)
117 ovexd 7177 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑘 · (𝑔𝑥)) ∈ V)
118112, 115, 116, 117fvmptd 6759 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦)))‘𝑥) = (𝑘 · (𝑔𝑥)))
119 eqidd 2799 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑖𝑥) = (𝑖𝑥))
120110, 111, 74, 74, 53, 118, 119offval 7405 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) ∘f · 𝑖) = (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥)) · (𝑖𝑥))))
12117, 20ringass 19328 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝑘𝐵 ∧ (𝑔𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵)) → ((𝑘 · (𝑔𝑥)) · (𝑖𝑥)) = (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))
12276, 78, 82, 88, 121syl13anc 1369 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑘 · (𝑔𝑥)) · (𝑖𝑥)) = (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))
123122mpteq2dva 5128 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥)) · (𝑖𝑥))) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
124120, 123eqtrd 2833 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑦𝐼 ↦ (𝑘 · (𝑔𝑦))) ∘f · 𝑖) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
125104, 124syl5eq 2845 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) = (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))
126 ovexd 7177 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) ∈ V)
127 funmpt 6367 . . . . . . 7 Fun (𝑧𝐼 ↦ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) · (𝑖𝑧)))
128 eqidd 2799 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑧𝐼) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) = ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧))
129 eqidd 2799 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑧𝐼) → (𝑖𝑧) = (𝑖𝑧))
130108, 111, 74, 74, 53, 128, 129offval 7405 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) = (𝑧𝐼 ↦ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) · (𝑖𝑧))))
131130funeqd 6351 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (Fun ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) ↔ Fun (𝑧𝐼 ↦ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥)))‘𝑧) · (𝑖𝑧)))))
132127, 131mpbiri 261 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → Fun ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖))
133 simp3 1135 . . . . . . . . 9 ((𝑔𝑉𝑉𝑖𝑉) → 𝑖𝑉)
13413, 133anim12i 615 . . . . . . . 8 ((𝜑 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝐼𝑊𝑖𝑉))
1351343adant2 1128 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝐼𝑊𝑖𝑉))
13614, 24, 1frlmbasfsupp 20466 . . . . . . 7 ((𝐼𝑊𝑖𝑉) → 𝑖 finSupp 0 )
137135, 136syl 17 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑖 finSupp 0 )
13817, 24ring0cl 19333 . . . . . . . 8 (𝑅 ∈ Ring → 0𝐵)
13975, 138syl 17 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 0𝐵)
14017, 20, 24ringrz 19352 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝑦𝐵) → (𝑦 · 0 ) = 0 )
14175, 140sylan 583 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑦𝐵) → (𝑦 · 0 ) = 0 )
14274, 139, 107, 87, 141suppofss2d 7867 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) supp 0 ) ⊆ (𝑖 supp 0 ))
143 fsuppsssupp 8848 . . . . . 6 (((((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) ∈ V ∧ Fun ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖)) ∧ (𝑖 finSupp 0 ∧ (((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) supp 0 ) ⊆ (𝑖 supp 0 ))) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) finSupp 0 )
144126, 132, 137, 142, 143syl22anc 837 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑥𝐼 ↦ (𝑘 · (𝑔𝑥))) ∘f · 𝑖) finSupp 0 )
145125, 144eqbrtrrd 5057 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))) finSupp 0 )
146 simp1 1133 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝜑)
147 eleq1w 2872 . . . . . . . . 9 (𝑔 = → (𝑔𝑉𝑉))
148 id 22 . . . . . . . . . . 11 (𝑔 = 𝑔 = )
149148, 148oveq12d 7160 . . . . . . . . . 10 (𝑔 = → (𝑔 , 𝑔) = ( , ))
150149eqeq1d 2800 . . . . . . . . 9 (𝑔 = → ((𝑔 , 𝑔) = 0 ↔ ( , ) = 0 ))
151147, 1503anbi23d 1436 . . . . . . . 8 (𝑔 = → ((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) ↔ (𝜑𝑉 ∧ ( , ) = 0 )))
152 eqeq1 2802 . . . . . . . 8 (𝑔 = → (𝑔 = 𝑂 = 𝑂))
153151, 152imbi12d 348 . . . . . . 7 (𝑔 = → (((𝜑𝑔𝑉 ∧ (𝑔 , 𝑔) = 0 ) → 𝑔 = 𝑂) ↔ ((𝜑𝑉 ∧ ( , ) = 0 ) → = 𝑂)))
154153, 68chvarvv 2005 . . . . . 6 ((𝜑𝑉 ∧ ( , ) = 0 ) → = 𝑂)
15514, 17, 20, 1, 5, 7, 24, 22, 9, 154, 35, 13frlmphllem 20488 . . . . 5 ((𝜑𝑉𝑖𝑉) → (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))) finSupp 0 )
156146, 93, 83, 155syl3anc 1368 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))) finSupp 0 )
15717, 24, 72, 73, 74, 92, 98, 99, 100, 145, 156gsummptfsadd 19055 . . 3 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))) = ((𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))(+g𝑅)(𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))))
15814, 17, 20frlmip 20486 . . . . . . . . 9 ((𝐼𝑊𝑅 ∈ DivRing) → (𝑔 ∈ (𝐵m 𝐼), ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))) = (·𝑖𝑌))
15913, 12, 158syl2anc 587 . . . . . . . 8 (𝜑 → (𝑔 ∈ (𝐵m 𝐼), ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))) = (·𝑖𝑌))
1605, 159eqtr4id 2852 . . . . . . 7 (𝜑, = (𝑔 ∈ (𝐵m 𝐼), ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))))
161 fveq1 6651 . . . . . . . . . . 11 (𝑒 = 𝑔 → (𝑒𝑥) = (𝑔𝑥))
162161oveq1d 7157 . . . . . . . . . 10 (𝑒 = 𝑔 → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑔𝑥) · (𝑓𝑥)))
163162mpteq2dv 5129 . . . . . . . . 9 (𝑒 = 𝑔 → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥))))
164163oveq2d 7158 . . . . . . . 8 (𝑒 = 𝑔 → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥)))))
165 fveq1 6651 . . . . . . . . . . 11 (𝑓 = → (𝑓𝑥) = (𝑥))
166165oveq2d 7158 . . . . . . . . . 10 (𝑓 = → ((𝑔𝑥) · (𝑓𝑥)) = ((𝑔𝑥) · (𝑥)))
167166mpteq2dv 5129 . . . . . . . . 9 (𝑓 = → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))
168167oveq2d 7158 . . . . . . . 8 (𝑓 = → (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
169164, 168cbvmpov 7235 . . . . . . 7 (𝑒 ∈ (𝐵m 𝐼), 𝑓 ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))) = (𝑔 ∈ (𝐵m 𝐼), ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
170160, 169eqtr4di 2851 . . . . . 6 (𝜑, = (𝑒 ∈ (𝐵m 𝐼), 𝑓 ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))))
1711703ad2ant1 1130 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → , = (𝑒 ∈ (𝐵m 𝐼), 𝑓 ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))))
172 simprl 770 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → 𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)))
173172fveq1d 6654 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑒𝑥) = (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥))
174 simprr 772 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → 𝑓 = 𝑖)
175174fveq1d 6654 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑓𝑥) = (𝑖𝑥))
176173, 175oveq12d 7160 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → ((𝑒𝑥) · (𝑓𝑥)) = ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))
177176mpteq2dv 5129 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥))))
178177oveq2d 7158 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∧ 𝑓 = 𝑖)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))))
179293ad2ant1 1130 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑌 ∈ LMod)
180163ad2ant1 1130 . . . . . . . . . . 11 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑅 = (Scalar‘𝑌))
181180fveq2d 6656 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (Base‘𝑅) = (Base‘(Scalar‘𝑌)))
18217, 181syl5eq 2845 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝐵 = (Base‘(Scalar‘𝑌)))
18377, 182eleqtrd 2892 . . . . . . . 8 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → 𝑘 ∈ (Base‘(Scalar‘𝑌)))
184 eqid 2798 . . . . . . . . 9 ( ·𝑠𝑌) = ( ·𝑠𝑌)
185 eqid 2798 . . . . . . . . 9 (Base‘(Scalar‘𝑌)) = (Base‘(Scalar‘𝑌))
1861, 31, 184, 185lmodvscl 19662 . . . . . . . 8 ((𝑌 ∈ LMod ∧ 𝑘 ∈ (Base‘(Scalar‘𝑌)) ∧ 𝑔𝑉) → (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉)
187179, 183, 79, 186syl3anc 1368 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉)
188 eqid 2798 . . . . . . . 8 (+g𝑌) = (+g𝑌)
1891, 188lmodvacl 19659 . . . . . . 7 ((𝑌 ∈ LMod ∧ (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉𝑉) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ 𝑉)
190179, 187, 93, 189syl3anc 1368 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ 𝑉)
19114, 17, 1frlmbasmap 20467 . . . . . 6 ((𝐼𝑊 ∧ ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ 𝑉) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ (𝐵m 𝐼))
19274, 190, 191syl2anc 587 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) ∈ (𝐵m 𝐼))
193 ovexd 7177 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))) ∈ V)
194171, 178, 192, 85, 193ovmpod 7289 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))))
19514, 1, 75, 74, 187, 93, 72, 188frlmplusgval 20472 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) = ((𝑘( ·𝑠𝑌)𝑔) ∘f (+g𝑅)))
19614, 17, 1frlmbasmap 20467 . . . . . . . . . . . . 13 ((𝐼𝑊 ∧ (𝑘( ·𝑠𝑌)𝑔) ∈ 𝑉) → (𝑘( ·𝑠𝑌)𝑔) ∈ (𝐵m 𝐼))
19774, 187, 196syl2anc 587 . . . . . . . . . . . 12 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘( ·𝑠𝑌)𝑔) ∈ (𝐵m 𝐼))
198 elmapi 8426 . . . . . . . . . . . 12 ((𝑘( ·𝑠𝑌)𝑔) ∈ (𝐵m 𝐼) → (𝑘( ·𝑠𝑌)𝑔):𝐼𝐵)
199 ffn 6492 . . . . . . . . . . . 12 ((𝑘( ·𝑠𝑌)𝑔):𝐼𝐵 → (𝑘( ·𝑠𝑌)𝑔) Fn 𝐼)
200197, 198, 1993syl 18 . . . . . . . . . . 11 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘( ·𝑠𝑌)𝑔) Fn 𝐼)
20195ffnd 6493 . . . . . . . . . . 11 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → Fn 𝐼)
20274adantr 484 . . . . . . . . . . . 12 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝐼𝑊)
20379adantr 484 . . . . . . . . . . . 12 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → 𝑔𝑉)
20414, 1, 17, 202, 78, 203, 116, 184, 20frlmvscaval 20476 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑘( ·𝑠𝑌)𝑔)‘𝑥) = (𝑘 · (𝑔𝑥)))
205 eqidd 2799 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (𝑥) = (𝑥))
206200, 201, 74, 74, 53, 204, 205offval 7405 . . . . . . . . . 10 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔) ∘f (+g𝑅)) = (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥))))
207195, 206eqtrd 2833 . . . . . . . . 9 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) = (𝑥𝐼 ↦ ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥))))
208 ovexd 7177 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) ∈ V)
209207, 208fvmpt2d 6765 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) = ((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)))
210209oveq1d 7157 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)) = (((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) · (𝑖𝑥)))
21117, 72, 20ringdir 19331 . . . . . . . 8 ((𝑅 ∈ Ring ∧ ((𝑘 · (𝑔𝑥)) ∈ 𝐵 ∧ (𝑥) ∈ 𝐵 ∧ (𝑖𝑥) ∈ 𝐵)) → (((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) · (𝑖𝑥)) = (((𝑘 · (𝑔𝑥)) · (𝑖𝑥))(+g𝑅)((𝑥) · (𝑖𝑥))))
21276, 106, 96, 88, 211syl13anc 1369 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (((𝑘 · (𝑔𝑥))(+g𝑅)(𝑥)) · (𝑖𝑥)) = (((𝑘 · (𝑔𝑥)) · (𝑖𝑥))(+g𝑅)((𝑥) · (𝑖𝑥))))
213122oveq1d 7157 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → (((𝑘 · (𝑔𝑥)) · (𝑖𝑥))(+g𝑅)((𝑥) · (𝑖𝑥))) = ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))
214210, 212, 2133eqtrd 2837 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ 𝑥𝐼) → ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)) = ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))
215214mpteq2dva 5128 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥))) = (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥)))))
216215oveq2d 7158 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((((𝑘( ·𝑠𝑌)𝑔)(+g𝑌))‘𝑥) · (𝑖𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))))
217194, 216eqtrd 2833 . . 3 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑘 · ((𝑔𝑥) · (𝑖𝑥)))(+g𝑅)((𝑥) · (𝑖𝑥))))))
218 simprl 770 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → 𝑒 = 𝑔)
219218fveq1d 6654 . . . . . . . . . 10 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑒𝑥) = (𝑔𝑥))
220 simprr 772 . . . . . . . . . . 11 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → 𝑓 = 𝑖)
221220fveq1d 6654 . . . . . . . . . 10 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑓𝑥) = (𝑖𝑥))
222219, 221oveq12d 7160 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑔𝑥) · (𝑖𝑥)))
223222mpteq2dv 5129 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))))
224223oveq2d 7158 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑔𝑓 = 𝑖)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥)))))
225 ovexd 7177 . . . . . . 7 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥)))) ∈ V)
226171, 224, 80, 85, 225ovmpod 7289 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑔 , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥)))))
227226oveq2d 7158 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘 · (𝑔 , 𝑖)) = (𝑘 · (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))))))
22814, 17, 20, 1, 5, 7, 24, 22, 9, 68, 35, 13frlmphllem 20488 . . . . . . 7 ((𝜑𝑔𝑉𝑖𝑉) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))) finSupp 0 )
229146, 79, 83, 228syl3anc 1368 . . . . . 6 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))) finSupp 0 )
23017, 24, 72, 20, 75, 74, 77, 90, 229gsummulc2 19371 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))) = (𝑘 · (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑖𝑥))))))
231227, 230eqtr4d 2836 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑘 · (𝑔 , 𝑖)) = (𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥))))))
232 simprl 770 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → 𝑒 = )
233232fveq1d 6654 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑒𝑥) = (𝑥))
234 simprr 772 . . . . . . . . 9 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → 𝑓 = 𝑖)
235234fveq1d 6654 . . . . . . . 8 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑓𝑥) = (𝑖𝑥))
236233, 235oveq12d 7160 . . . . . . 7 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑥) · (𝑖𝑥)))
237236mpteq2dv 5129 . . . . . 6 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))
238237oveq2d 7158 . . . . 5 (((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) ∧ (𝑒 = 𝑓 = 𝑖)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥)))))
239 ovexd 7177 . . . . 5 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥)))) ∈ V)
240171, 238, 94, 85, 239ovmpod 7289 . . . 4 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ( , 𝑖) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥)))))
241231, 240oveq12d 7160 . . 3 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → ((𝑘 · (𝑔 , 𝑖))(+g𝑅)( , 𝑖)) = ((𝑅 Σg (𝑥𝐼 ↦ (𝑘 · ((𝑔𝑥) · (𝑖𝑥)))))(+g𝑅)(𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑖𝑥))))))
242157, 217, 2413eqtr4d 2843 . 2 ((𝜑𝑘𝐵 ∧ (𝑔𝑉𝑉𝑖𝑉)) → (((𝑘( ·𝑠𝑌)𝑔)(+g𝑌)) , 𝑖) = ((𝑘 · (𝑔 , 𝑖))(+g𝑅)( , 𝑖)))
243343ad2ant1 1130 . . . . . . 7 ((𝜑𝑔𝑉𝑉) → 𝑅 ∈ CRing)
244243adantr 484 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → 𝑅 ∈ CRing)
24517, 20crngcom 19326 . . . . . 6 ((𝑅 ∈ CRing ∧ (𝑥) ∈ 𝐵 ∧ (𝑔𝑥) ∈ 𝐵) → ((𝑥) · (𝑔𝑥)) = ((𝑔𝑥) · (𝑥)))
246244, 64, 63, 245syl3anc 1368 . . . . 5 (((𝜑𝑔𝑉𝑉) ∧ 𝑥𝐼) → ((𝑥) · (𝑔𝑥)) = ((𝑔𝑥) · (𝑥)))
247246mpteq2dva 5128 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥))) = (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥))))
248247oveq2d 7158 . . 3 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
2491703ad2ant1 1130 . . . 4 ((𝜑𝑔𝑉𝑉) → , = (𝑒 ∈ (𝐵m 𝐼), 𝑓 ∈ (𝐵m 𝐼) ↦ (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))))))
250 simprl 770 . . . . . . . 8 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → 𝑒 = )
251250fveq1d 6654 . . . . . . 7 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑒𝑥) = (𝑥))
252 simprr 772 . . . . . . . 8 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → 𝑓 = 𝑔)
253252fveq1d 6654 . . . . . . 7 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑓𝑥) = (𝑔𝑥))
254251, 253oveq12d 7160 . . . . . 6 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → ((𝑒𝑥) · (𝑓𝑥)) = ((𝑥) · (𝑔𝑥)))
255254mpteq2dv 5129 . . . . 5 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥))) = (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥))))
256255oveq2d 7158 . . . 4 (((𝜑𝑔𝑉𝑉) ∧ (𝑒 = 𝑓 = 𝑔)) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑒𝑥) · (𝑓𝑥)))) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))))
257 ovexd 7177 . . . 4 ((𝜑𝑔𝑉𝑉) → (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))) ∈ V)
258249, 256, 49, 44, 257ovmpod 7289 . . 3 ((𝜑𝑔𝑉𝑉) → ( , 𝑔) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑥) · (𝑔𝑥)))))
259 fveq2 6652 . . . . . 6 (𝑥 = (𝑔 , ) → ( 𝑥) = ( ‘(𝑔 , )))
260 id 22 . . . . . 6 (𝑥 = (𝑔 , ) → 𝑥 = (𝑔 , ))
261259, 260eqeq12d 2814 . . . . 5 (𝑥 = (𝑔 , ) → (( 𝑥) = 𝑥 ↔ ( ‘(𝑔 , )) = (𝑔 , )))
26235ralrimiva 3149 . . . . . 6 (𝜑 → ∀𝑥𝐵 ( 𝑥) = 𝑥)
2632623ad2ant1 1130 . . . . 5 ((𝜑𝑔𝑉𝑉) → ∀𝑥𝐵 ( 𝑥) = 𝑥)
264261, 263, 71rspcdva 3573 . . . 4 ((𝜑𝑔𝑉𝑉) → ( ‘(𝑔 , )) = (𝑔 , ))
265264, 58eqtrd 2833 . . 3 ((𝜑𝑔𝑉𝑉) → ( ‘(𝑔 , )) = (𝑅 Σg (𝑥𝐼 ↦ ((𝑔𝑥) · (𝑥)))))
266248, 258, 2653eqtr4rd 2844 . 2 ((𝜑𝑔𝑉𝑉) → ( ‘(𝑔 , )) = ( , 𝑔))
2672, 3, 4, 6, 8, 16, 18, 19, 21, 23, 25, 33, 36, 71, 242, 68, 266isphld 20362 1 (𝜑𝑌 ∈ PreHil)
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111  ∀wral 3106  Vcvv 3441   ⊆ wss 3882   class class class wbr 5033   ↦ cmpt 5113  Fun wfun 6323   Fn wfn 6324  ⟶wf 6325  ‘cfv 6329  (class class class)co 7142   ∈ cmpo 7144   ∘f cof 7395   supp csupp 7823   ↑m cmap 8404   finSupp cfsupp 8832  Basecbs 16492  +gcplusg 16574  .rcmulr 16575  *𝑟cstv 16576  Scalarcsca 16577   ·𝑠 cvsca 16578  ·𝑖cip 16579  0gc0g 16722   Σg cgsu 16723  CMndccmn 18916  Ringcrg 19308  CRingccrg 19309  DivRingcdr 19513  Fieldcfield 19514  LModclmod 19645  LVecclvec 19885  PreHilcphl 20332   freeLMod cfrlm 20454 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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5157  ax-sep 5170  ax-nul 5177  ax-pow 5234  ax-pr 5298  ax-un 7451  ax-cnex 10597  ax-resscn 10598  ax-1cn 10599  ax-icn 10600  ax-addcl 10601  ax-addrcl 10602  ax-mulcl 10603  ax-mulrcl 10604  ax-mulcom 10605  ax-addass 10606  ax-mulass 10607  ax-distr 10608  ax-i2m1 10609  ax-1ne0 10610  ax-1rid 10611  ax-rnegex 10612  ax-rrecex 10613  ax-cnre 10614  ax-pre-lttri 10615  ax-pre-lttrn 10616  ax-pre-ltadd 10617  ax-pre-mulgt0 10618 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3722  df-csb 3830  df-dif 3885  df-un 3887  df-in 3889  df-ss 3899  df-pss 3901  df-nul 4246  df-if 4428  df-pw 4501  df-sn 4528  df-pr 4530  df-tp 4532  df-op 4534  df-uni 4804  df-int 4842  df-iun 4886  df-br 5034  df-opab 5096  df-mpt 5114  df-tr 5140  df-id 5428  df-eprel 5433  df-po 5441  df-so 5442  df-fr 5481  df-se 5482  df-we 5483  df-xp 5528  df-rel 5529  df-cnv 5530  df-co 5531  df-dm 5532  df-rn 5533  df-res 5534  df-ima 5535  df-pred 6121  df-ord 6167  df-on 6168  df-lim 6169  df-suc 6170  df-iota 6288  df-fun 6331  df-fn 6332  df-f 6333  df-f1 6334  df-fo 6335  df-f1o 6336  df-fv 6337  df-isom 6338  df-riota 7100  df-ov 7145  df-oprab 7146  df-mpo 7147  df-of 7397  df-om 7571  df-1st 7681  df-2nd 7682  df-supp 7824  df-tpos 7890  df-wrecs 7945  df-recs 8006  df-rdg 8044  df-1o 8100  df-oadd 8104  df-er 8287  df-map 8406  df-ixp 8460  df-en 8508  df-dom 8509  df-sdom 8510  df-fin 8511  df-fsupp 8833  df-sup 8905  df-oi 8973  df-card 9367  df-pnf 10681  df-mnf 10682  df-xr 10683  df-ltxr 10684  df-le 10685  df-sub 10876  df-neg 10877  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11987  df-dec 12104  df-uz 12249  df-fz 12903  df-fzo 13046  df-seq 13382  df-hash 13704  df-struct 16494  df-ndx 16495  df-slot 16496  df-base 16498  df-sets 16499  df-ress 16500  df-plusg 16587  df-mulr 16588  df-sca 16590  df-vsca 16591  df-ip 16592  df-tset 16593  df-ple 16594  df-ds 16596  df-hom 16598  df-cco 16599  df-0g 16724  df-gsum 16725  df-prds 16730  df-pws 16732  df-mgm 17861  df-sgrp 17910  df-mnd 17921  df-mhm 17965  df-submnd 17966  df-grp 18115  df-minusg 18116  df-sbg 18117  df-subg 18286  df-ghm 18366  df-cntz 18457  df-cmn 18918  df-abl 18919  df-mgp 19251  df-ur 19263  df-ring 19310  df-cring 19311  df-oppr 19387  df-rnghom 19481  df-drng 19515  df-field 19516  df-subrg 19544  df-staf 19627  df-srng 19628  df-lmod 19647  df-lss 19715  df-lmhm 19805  df-lvec 19886  df-sra 19955  df-rgmod 19956  df-phl 20334  df-dsmm 20440  df-frlm 20455 This theorem is referenced by:  rrxcph  24034
 Copyright terms: Public domain W3C validator