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

Theorem islindf4 19934
Description: A family is independent iff it has no nontrivial representations of zero. (Contributed by Stefan O'Rear, 28-Feb-2015.)
Hypotheses
Ref Expression
islindf4.b 𝐵 = (Base‘𝑊)
islindf4.r 𝑅 = (Scalar‘𝑊)
islindf4.t · = ( ·𝑠𝑊)
islindf4.z 0 = (0g𝑊)
islindf4.y 𝑌 = (0g𝑅)
islindf4.l 𝐿 = (Base‘(𝑅 freeLMod 𝐼))
Assertion
Ref Expression
islindf4 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (𝐹 LIndF 𝑊 ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0𝑥 = (𝐼 × {𝑌}))))
Distinct variable groups:   𝑥,𝐵   𝑥,𝐹   𝑥,𝐼   𝑥,𝐿   𝑥,𝑅   𝑥, ·   𝑥,𝑊   𝑥,𝑋   𝑥,𝑌   𝑥, 0

Proof of Theorem islindf4
Dummy variables 𝑗 𝑘 𝑙 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 raldifsni 4260 . . . . 5 (∀𝑙 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑙 ∈ (Base‘𝑅)((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) → 𝑙 = 𝑌))
2 simpll1 1092 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑊 ∈ LMod)
3 simprll 797 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑙 ∈ (Base‘𝑅))
4 ffvelrn 6246 . . . . . . . . . . . . . . . . . 18 ((𝐹:𝐼𝐵𝑗𝐼) → (𝐹𝑗) ∈ 𝐵)
543ad2antl3 1217 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (𝐹𝑗) ∈ 𝐵)
65adantr 479 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝐹𝑗) ∈ 𝐵)
7 islindf4.b . . . . . . . . . . . . . . . . 17 𝐵 = (Base‘𝑊)
8 islindf4.r . . . . . . . . . . . . . . . . 17 𝑅 = (Scalar‘𝑊)
9 islindf4.t . . . . . . . . . . . . . . . . 17 · = ( ·𝑠𝑊)
10 eqid 2605 . . . . . . . . . . . . . . . . 17 (invg𝑊) = (invg𝑊)
11 eqid 2605 . . . . . . . . . . . . . . . . 17 (invg𝑅) = (invg𝑅)
12 eqid 2605 . . . . . . . . . . . . . . . . 17 (Base‘𝑅) = (Base‘𝑅)
137, 8, 9, 10, 11, 12lmodvsinv 18799 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ LMod ∧ 𝑙 ∈ (Base‘𝑅) ∧ (𝐹𝑗) ∈ 𝐵) → (((invg𝑅)‘𝑙) · (𝐹𝑗)) = ((invg𝑊)‘(𝑙 · (𝐹𝑗))))
142, 3, 6, 13syl3anc 1317 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((invg𝑅)‘𝑙) · (𝐹𝑗)) = ((invg𝑊)‘(𝑙 · (𝐹𝑗))))
1514eqeq1d 2607 . . . . . . . . . . . . . 14 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) ↔ ((invg𝑊)‘(𝑙 · (𝐹𝑗))) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))))
16 lmodgrp 18635 . . . . . . . . . . . . . . . 16 (𝑊 ∈ LMod → 𝑊 ∈ Grp)
172, 16syl 17 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑊 ∈ Grp)
187, 8, 9, 12lmodvscl 18645 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ LMod ∧ 𝑙 ∈ (Base‘𝑅) ∧ (𝐹𝑗) ∈ 𝐵) → (𝑙 · (𝐹𝑗)) ∈ 𝐵)
192, 3, 6, 18syl3anc 1317 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑙 · (𝐹𝑗)) ∈ 𝐵)
20 islindf4.z . . . . . . . . . . . . . . . 16 0 = (0g𝑊)
21 lmodcmn 18676 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ LMod → 𝑊 ∈ CMnd)
222, 21syl 17 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑊 ∈ CMnd)
23 simpll2 1093 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝐼𝑋)
24 difexg 4726 . . . . . . . . . . . . . . . . 17 (𝐼𝑋 → (𝐼 ∖ {𝑗}) ∈ V)
2523, 24syl 17 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝐼 ∖ {𝑗}) ∈ V)
26 simprlr 798 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))
27 elmapi 7738 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})) → 𝑦:(𝐼 ∖ {𝑗})⟶(Base‘𝑅))
2826, 27syl 17 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑦:(𝐼 ∖ {𝑗})⟶(Base‘𝑅))
29 simpll3 1094 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝐹:𝐼𝐵)
30 difss 3694 . . . . . . . . . . . . . . . . . 18 (𝐼 ∖ {𝑗}) ⊆ 𝐼
31 fssres 5964 . . . . . . . . . . . . . . . . . 18 ((𝐹:𝐼𝐵 ∧ (𝐼 ∖ {𝑗}) ⊆ 𝐼) → (𝐹 ↾ (𝐼 ∖ {𝑗})):(𝐼 ∖ {𝑗})⟶𝐵)
3229, 30, 31sylancl 692 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝐹 ↾ (𝐼 ∖ {𝑗})):(𝐼 ∖ {𝑗})⟶𝐵)
338, 12, 9, 7, 2, 28, 32, 25lcomf 18667 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))):(𝐼 ∖ {𝑗})⟶𝐵)
34 islindf4.y . . . . . . . . . . . . . . . . 17 𝑌 = (0g𝑅)
35 simprr 791 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑦 finSupp 𝑌)
368, 12, 9, 7, 2, 28, 32, 25, 20, 34, 35lcomfsupp 18668 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))) finSupp 0 )
377, 20, 22, 25, 33, 36gsumcl 18081 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) ∈ 𝐵)
38 eqid 2605 . . . . . . . . . . . . . . . 16 (+g𝑊) = (+g𝑊)
397, 38, 20, 10grpinvid2 17236 . . . . . . . . . . . . . . 15 ((𝑊 ∈ Grp ∧ (𝑙 · (𝐹𝑗)) ∈ 𝐵 ∧ (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) ∈ 𝐵) → (((invg𝑊)‘(𝑙 · (𝐹𝑗))) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) ↔ ((𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))(+g𝑊)(𝑙 · (𝐹𝑗))) = 0 ))
4017, 19, 37, 39syl3anc 1317 . . . . . . . . . . . . . 14 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((invg𝑊)‘(𝑙 · (𝐹𝑗))) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) ↔ ((𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))(+g𝑊)(𝑙 · (𝐹𝑗))) = 0 ))
41 simplr 787 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑗𝐼)
42 fsnunf2 6331 . . . . . . . . . . . . . . . . . . 19 ((𝑦:(𝐼 ∖ {𝑗})⟶(Base‘𝑅) ∧ 𝑗𝐼𝑙 ∈ (Base‘𝑅)) → (𝑦 ∪ {⟨𝑗, 𝑙⟩}):𝐼⟶(Base‘𝑅))
4328, 41, 3, 42syl3anc 1317 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑦 ∪ {⟨𝑗, 𝑙⟩}):𝐼⟶(Base‘𝑅))
448, 12, 9, 7, 2, 43, 29, 23lcomf 18667 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹):𝐼𝐵)
45 simpr 475 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → 𝑗𝐼)
46 simpl 471 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) → 𝑙 ∈ (Base‘𝑅))
4745, 46anim12i 587 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (𝑗𝐼𝑙 ∈ (Base‘𝑅)))
48 elmapfun 7740 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})) → Fun 𝑦)
49 fdm 5946 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦:(𝐼 ∖ {𝑗})⟶(Base‘𝑅) → dom 𝑦 = (𝐼 ∖ {𝑗}))
50 neldifsnd 4258 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (dom 𝑦 = (𝐼 ∖ {𝑗}) → ¬ 𝑗 ∈ (𝐼 ∖ {𝑗}))
51 df-nel 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∉ dom 𝑦 ↔ ¬ 𝑗 ∈ dom 𝑦)
52 eleq2 2672 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (dom 𝑦 = (𝐼 ∖ {𝑗}) → (𝑗 ∈ dom 𝑦𝑗 ∈ (𝐼 ∖ {𝑗})))
5352notbid 306 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (dom 𝑦 = (𝐼 ∖ {𝑗}) → (¬ 𝑗 ∈ dom 𝑦 ↔ ¬ 𝑗 ∈ (𝐼 ∖ {𝑗})))
5451, 53syl5bb 270 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (dom 𝑦 = (𝐼 ∖ {𝑗}) → (𝑗 ∉ dom 𝑦 ↔ ¬ 𝑗 ∈ (𝐼 ∖ {𝑗})))
5550, 54mpbird 245 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (dom 𝑦 = (𝐼 ∖ {𝑗}) → 𝑗 ∉ dom 𝑦)
5649, 55syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦:(𝐼 ∖ {𝑗})⟶(Base‘𝑅) → 𝑗 ∉ dom 𝑦)
5727, 56syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})) → 𝑗 ∉ dom 𝑦)
5848, 57jca 552 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})) → (Fun 𝑦𝑗 ∉ dom 𝑦))
5958adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) → (Fun 𝑦𝑗 ∉ dom 𝑦))
6059adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (Fun 𝑦𝑗 ∉ dom 𝑦))
6147, 60jca 552 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → ((𝑗𝐼𝑙 ∈ (Base‘𝑅)) ∧ (Fun 𝑦𝑗 ∉ dom 𝑦)))
62 funsnfsupp 8155 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑗𝐼𝑙 ∈ (Base‘𝑅)) ∧ (Fun 𝑦𝑗 ∉ dom 𝑦)) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌𝑦 finSupp 𝑌))
6362bicomd 211 . . . . . . . . . . . . . . . . . . . . 21 (((𝑗𝐼𝑙 ∈ (Base‘𝑅)) ∧ (Fun 𝑦𝑗 ∉ dom 𝑦)) → (𝑦 finSupp 𝑌 ↔ (𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌))
6461, 63syl 17 . . . . . . . . . . . . . . . . . . . 20 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (𝑦 finSupp 𝑌 ↔ (𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌))
6564biimpd 217 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (𝑦 finSupp 𝑌 → (𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌))
6665impr 646 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌)
678, 12, 9, 7, 2, 43, 29, 23, 20, 34, 66lcomfsupp 18668 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) finSupp 0 )
68 incom 3762 . . . . . . . . . . . . . . . . . . 19 ((𝐼 ∖ {𝑗}) ∩ {𝑗}) = ({𝑗} ∩ (𝐼 ∖ {𝑗}))
69 disjdif 3987 . . . . . . . . . . . . . . . . . . 19 ({𝑗} ∩ (𝐼 ∖ {𝑗})) = ∅
7068, 69eqtri 2627 . . . . . . . . . . . . . . . . . 18 ((𝐼 ∖ {𝑗}) ∩ {𝑗}) = ∅
7170a1i 11 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝐼 ∖ {𝑗}) ∩ {𝑗}) = ∅)
72 difsnid 4277 . . . . . . . . . . . . . . . . . . 19 (𝑗𝐼 → ((𝐼 ∖ {𝑗}) ∪ {𝑗}) = 𝐼)
7372eqcomd 2611 . . . . . . . . . . . . . . . . . 18 (𝑗𝐼𝐼 = ((𝐼 ∖ {𝑗}) ∪ {𝑗}))
7441, 73syl 17 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝐼 = ((𝐼 ∖ {𝑗}) ∪ {𝑗}))
757, 20, 38, 22, 23, 44, 67, 71, 74gsumsplit 18093 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = ((𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ (𝐼 ∖ {𝑗})))(+g𝑊)(𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗}))))
76 vex 3171 . . . . . . . . . . . . . . . . . . . . 21 𝑦 ∈ V
77 snex 4826 . . . . . . . . . . . . . . . . . . . . 21 {⟨𝑗, 𝑙⟩} ∈ V
7876, 77unex 6827 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∈ V
79 simpl3 1058 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → 𝐹:𝐼𝐵)
80 simpl2 1057 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → 𝐼𝑋)
81 fex 6368 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐹:𝐼𝐵𝐼𝑋) → 𝐹 ∈ V)
8279, 80, 81syl2anc 690 . . . . . . . . . . . . . . . . . . . . 21 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → 𝐹 ∈ V)
8382adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝐹 ∈ V)
84 offres 7027 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∈ V ∧ 𝐹 ∈ V) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ (𝐼 ∖ {𝑗})) = (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ↾ (𝐼 ∖ {𝑗})) ∘𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))
8578, 83, 84sylancr 693 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ (𝐼 ∖ {𝑗})) = (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ↾ (𝐼 ∖ {𝑗})) ∘𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))
86 ffn 5940 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦:(𝐼 ∖ {𝑗})⟶(Base‘𝑅) → 𝑦 Fn (𝐼 ∖ {𝑗}))
8728, 86syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑦 Fn (𝐼 ∖ {𝑗}))
88 neldifsn 4257 . . . . . . . . . . . . . . . . . . . . 21 ¬ 𝑗 ∈ (𝐼 ∖ {𝑗})
89 fsnunres 6333 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦 Fn (𝐼 ∖ {𝑗}) ∧ ¬ 𝑗 ∈ (𝐼 ∖ {𝑗})) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ↾ (𝐼 ∖ {𝑗})) = 𝑦)
9087, 88, 89sylancl 692 . . . . . . . . . . . . . . . . . . . 20 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ↾ (𝐼 ∖ {𝑗})) = 𝑦)
9190oveq1d 6538 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ↾ (𝐼 ∖ {𝑗})) ∘𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))) = (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))
9285, 91eqtrd 2639 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ (𝐼 ∖ {𝑗})) = (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))
9392oveq2d 6539 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ (𝐼 ∖ {𝑗}))) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))))
94 ffn 5940 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹):𝐼𝐵 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) Fn 𝐼)
9544, 94syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) Fn 𝐼)
96 fnressn 6304 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) Fn 𝐼𝑗𝐼) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗}) = {⟨𝑗, (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗)⟩})
9795, 41, 96syl2anc 690 . . . . . . . . . . . . . . . . . . . 20 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗}) = {⟨𝑗, (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗)⟩})
98 ffn 5940 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∪ {⟨𝑗, 𝑙⟩}):𝐼⟶(Base‘𝑅) → (𝑦 ∪ {⟨𝑗, 𝑙⟩}) Fn 𝐼)
9943, 98syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑦 ∪ {⟨𝑗, 𝑙⟩}) Fn 𝐼)
100 ffn 5940 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐹:𝐼𝐵𝐹 Fn 𝐼)
10129, 100syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝐹 Fn 𝐼)
102 fnfvof 6782 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑦 ∪ {⟨𝑗, 𝑙⟩}) Fn 𝐼𝐹 Fn 𝐼) ∧ (𝐼𝑋𝑗𝐼)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗) = (((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) · (𝐹𝑗)))
10399, 101, 23, 41, 102syl22anc 1318 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗) = (((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) · (𝐹𝑗)))
104 fndm 5886 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 Fn (𝐼 ∖ {𝑗}) → dom 𝑦 = (𝐼 ∖ {𝑗}))
105104eleq2d 2668 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 Fn (𝐼 ∖ {𝑗}) → (𝑗 ∈ dom 𝑦𝑗 ∈ (𝐼 ∖ {𝑗})))
10688, 105mtbiri 315 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 Fn (𝐼 ∖ {𝑗}) → ¬ 𝑗 ∈ dom 𝑦)
107 vex 3171 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑗 ∈ V
108 vex 3171 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑙 ∈ V
109 fsnunfv 6332 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑗 ∈ V ∧ 𝑙 ∈ V ∧ ¬ 𝑗 ∈ dom 𝑦) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑙)
110107, 108, 109mp3an12 1405 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑗 ∈ dom 𝑦 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑙)
11187, 106, 1103syl 18 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑙)
112111oveq1d 6538 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) · (𝐹𝑗)) = (𝑙 · (𝐹𝑗)))
113103, 112eqtrd 2639 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗) = (𝑙 · (𝐹𝑗)))
114113opeq2d 4337 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ⟨𝑗, (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗)⟩ = ⟨𝑗, (𝑙 · (𝐹𝑗))⟩)
115114sneqd 4132 . . . . . . . . . . . . . . . . . . . 20 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → {⟨𝑗, (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)‘𝑗)⟩} = {⟨𝑗, (𝑙 · (𝐹𝑗))⟩})
116 ovex 6551 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 · (𝐹𝑗)) ∈ V
117 fmptsn 6312 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑗 ∈ V ∧ (𝑙 · (𝐹𝑗)) ∈ V) → {⟨𝑗, (𝑙 · (𝐹𝑗))⟩} = (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗))))
118107, 116, 117mp2an 703 . . . . . . . . . . . . . . . . . . . . 21 {⟨𝑗, (𝑙 · (𝐹𝑗))⟩} = (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗)))
119118a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → {⟨𝑗, (𝑙 · (𝐹𝑗))⟩} = (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗))))
12097, 115, 1193eqtrd 2643 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗}) = (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗))))
121120oveq2d 6539 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗})) = (𝑊 Σg (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗)))))
122 cmnmnd 17973 . . . . . . . . . . . . . . . . . . . 20 (𝑊 ∈ CMnd → 𝑊 ∈ Mnd)
12322, 122syl 17 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑊 ∈ Mnd)
124107a1i 11 . . . . . . . . . . . . . . . . . . 19 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑗 ∈ V)
125 eqidd 2606 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑗 → (𝑙 · (𝐹𝑗)) = (𝑙 · (𝐹𝑗)))
1267, 125gsumsn 18119 . . . . . . . . . . . . . . . . . . 19 ((𝑊 ∈ Mnd ∧ 𝑗 ∈ V ∧ (𝑙 · (𝐹𝑗)) ∈ 𝐵) → (𝑊 Σg (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗)))) = (𝑙 · (𝐹𝑗)))
127123, 124, 19, 126syl3anc 1317 . . . . . . . . . . . . . . . . . 18 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑊 Σg (𝑥 ∈ {𝑗} ↦ (𝑙 · (𝐹𝑗)))) = (𝑙 · (𝐹𝑗)))
128121, 127eqtrd 2639 . . . . . . . . . . . . . . . . 17 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗})) = (𝑙 · (𝐹𝑗)))
12993, 128oveq12d 6541 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ (𝐼 ∖ {𝑗})))(+g𝑊)(𝑊 Σg (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹) ↾ {𝑗}))) = ((𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))(+g𝑊)(𝑙 · (𝐹𝑗))))
13075, 129eqtr2d 2640 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))(+g𝑊)(𝑙 · (𝐹𝑗))) = (𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)))
131130eqeq1d 2607 . . . . . . . . . . . . . 14 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))(+g𝑊)(𝑙 · (𝐹𝑗))) = 0 ↔ (𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 ))
13215, 40, 1313bitrd 292 . . . . . . . . . . . . 13 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) ↔ (𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 ))
133111eqcomd 2611 . . . . . . . . . . . . . 14 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → 𝑙 = ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗))
134133eqeq1d 2607 . . . . . . . . . . . . 13 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (𝑙 = 𝑌 ↔ ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))
135132, 134imbi12d 332 . . . . . . . . . . . 12 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ ((𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))) ∧ 𝑦 finSupp 𝑌)) → (((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) → 𝑙 = 𝑌) ↔ ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌)))
136135anassrs 677 . . . . . . . . . . 11 (((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) ∧ 𝑦 finSupp 𝑌) → (((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) → 𝑙 = 𝑌) ↔ ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌)))
137136pm5.74da 718 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → ((𝑦 finSupp 𝑌 → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) → 𝑙 = 𝑌)) ↔ (𝑦 finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
138 impexp 460 . . . . . . . . . . 11 (((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ (𝑦 finSupp 𝑌 → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) → 𝑙 = 𝑌)))
139138a1i 11 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ (𝑦 finSupp 𝑌 → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))) → 𝑙 = 𝑌))))
14064bicomd 211 . . . . . . . . . . 11 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌𝑦 finSupp 𝑌))
141140imbi1d 329 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌)) ↔ (𝑦 finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
142137, 139, 1413bitr4d 298 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ (𝑙 ∈ (Base‘𝑅) ∧ 𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗})))) → (((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
1431422ralbidva 2966 . . . . . . . 8 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ ∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
144 breq1 4576 . . . . . . . . . . 11 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → (𝑥 finSupp 𝑌 ↔ (𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌))
145 oveq1 6530 . . . . . . . . . . . . . 14 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → (𝑥𝑓 · 𝐹) = ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹))
146145oveq2d 6539 . . . . . . . . . . . . 13 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → (𝑊 Σg (𝑥𝑓 · 𝐹)) = (𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)))
147146eqeq1d 2607 . . . . . . . . . . . 12 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 ↔ (𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 ))
148 fveq1 6083 . . . . . . . . . . . . 13 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → (𝑥𝑗) = ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗))
149148eqeq1d 2607 . . . . . . . . . . . 12 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → ((𝑥𝑗) = 𝑌 ↔ ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))
150147, 149imbi12d 332 . . . . . . . . . . 11 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → (((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌) ↔ ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌)))
151144, 150imbi12d 332 . . . . . . . . . 10 (𝑥 = (𝑦 ∪ {⟨𝑗, 𝑙⟩}) → ((𝑥 finSupp 𝑌 → ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)) ↔ ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
152151ralxpmap 7766 . . . . . . . . 9 (𝑗𝐼 → (∀𝑥 ∈ ((Base‘𝑅) ↑𝑚 𝐼)(𝑥 finSupp 𝑌 → ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)) ↔ ∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
153152adantl 480 . . . . . . . 8 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑥 ∈ ((Base‘𝑅) ↑𝑚 𝐼)(𝑥 finSupp 𝑌 → ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)) ↔ ∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 ∪ {⟨𝑗, 𝑙⟩}) finSupp 𝑌 → ((𝑊 Σg ((𝑦 ∪ {⟨𝑗, 𝑙⟩}) ∘𝑓 · 𝐹)) = 0 → ((𝑦 ∪ {⟨𝑗, 𝑙⟩})‘𝑗) = 𝑌))))
154143, 153bitr4d 269 . . . . . . 7 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ ∀𝑥 ∈ ((Base‘𝑅) ↑𝑚 𝐼)(𝑥 finSupp 𝑌 → ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌))))
155 breq1 4576 . . . . . . . 8 (𝑧 = 𝑥 → (𝑧 finSupp 𝑌𝑥 finSupp 𝑌))
156155ralrab 3330 . . . . . . 7 (∀𝑥 ∈ {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌) ↔ ∀𝑥 ∈ ((Base‘𝑅) ↑𝑚 𝐼)(𝑥 finSupp 𝑌 → ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
157154, 156syl6bbr 276 . . . . . 6 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ ∀𝑥 ∈ {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
158 resima 5334 . . . . . . . . . . . . 13 ((𝐹 ↾ (𝐼 ∖ {𝑗})) “ (𝐼 ∖ {𝑗})) = (𝐹 “ (𝐼 ∖ {𝑗}))
159158eqcomi 2614 . . . . . . . . . . . 12 (𝐹 “ (𝐼 ∖ {𝑗})) = ((𝐹 ↾ (𝐼 ∖ {𝑗})) “ (𝐼 ∖ {𝑗}))
160159fveq2i 6087 . . . . . . . . . . 11 ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) = ((LSpan‘𝑊)‘((𝐹 ↾ (𝐼 ∖ {𝑗})) “ (𝐼 ∖ {𝑗})))
161160eleq2i 2675 . . . . . . . . . 10 ((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘((𝐹 ↾ (𝐼 ∖ {𝑗})) “ (𝐼 ∖ {𝑗}))))
162 eqid 2605 . . . . . . . . . . 11 (LSpan‘𝑊) = (LSpan‘𝑊)
16379, 30, 31sylancl 692 . . . . . . . . . . 11 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (𝐹 ↾ (𝐼 ∖ {𝑗})):(𝐼 ∖ {𝑗})⟶𝐵)
164 simpl1 1056 . . . . . . . . . . 11 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → 𝑊 ∈ LMod)
165243ad2ant2 1075 . . . . . . . . . . . 12 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (𝐼 ∖ {𝑗}) ∈ V)
166165adantr 479 . . . . . . . . . . 11 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (𝐼 ∖ {𝑗}) ∈ V)
167162, 7, 12, 8, 34, 9, 163, 164, 166ellspd 19898 . . . . . . . . . 10 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘((𝐹 ↾ (𝐼 ∖ {𝑗})) “ (𝐼 ∖ {𝑗}))) ↔ ∃𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))(𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))))))
168161, 167syl5bb 270 . . . . . . . . 9 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → ((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∃𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))(𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗})))))))
169168imbi1d 329 . . . . . . . 8 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) → 𝑙 = 𝑌) ↔ (∃𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))(𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌)))
170 r19.23v 3000 . . . . . . . 8 (∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌) ↔ (∃𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))(𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌))
171169, 170syl6bbr 276 . . . . . . 7 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) → 𝑙 = 𝑌) ↔ ∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌)))
172171ralbidv 2964 . . . . . 6 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑙 ∈ (Base‘𝑅)((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) → 𝑙 = 𝑌) ↔ ∀𝑙 ∈ (Base‘𝑅)∀𝑦 ∈ ((Base‘𝑅) ↑𝑚 (𝐼 ∖ {𝑗}))((𝑦 finSupp 𝑌 ∧ (((invg𝑅)‘𝑙) · (𝐹𝑗)) = (𝑊 Σg (𝑦𝑓 · (𝐹 ↾ (𝐼 ∖ {𝑗}))))) → 𝑙 = 𝑌)))
173 fvex 6094 . . . . . . . . . . . 12 (Scalar‘𝑊) ∈ V
1748, 173eqeltri 2679 . . . . . . . . . . 11 𝑅 ∈ V
175 eqid 2605 . . . . . . . . . . . 12 (𝑅 freeLMod 𝐼) = (𝑅 freeLMod 𝐼)
176 eqid 2605 . . . . . . . . . . . 12 {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} = {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌}
177175, 12, 34, 176frlmbas 19856 . . . . . . . . . . 11 ((𝑅 ∈ V ∧ 𝐼𝑋) → {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} = (Base‘(𝑅 freeLMod 𝐼)))
178174, 177mpan 701 . . . . . . . . . 10 (𝐼𝑋 → {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} = (Base‘(𝑅 freeLMod 𝐼)))
1791783ad2ant2 1075 . . . . . . . . 9 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} = (Base‘(𝑅 freeLMod 𝐼)))
180179adantr 479 . . . . . . . 8 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} = (Base‘(𝑅 freeLMod 𝐼)))
181 islindf4.l . . . . . . . 8 𝐿 = (Base‘(𝑅 freeLMod 𝐼))
182180, 181syl6reqr 2658 . . . . . . 7 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → 𝐿 = {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌})
183182raleqdv 3116 . . . . . 6 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌) ↔ ∀𝑥 ∈ {𝑧 ∈ ((Base‘𝑅) ↑𝑚 𝐼) ∣ 𝑧 finSupp 𝑌} ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
184157, 172, 1833bitr4d 298 . . . . 5 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑙 ∈ (Base‘𝑅)((((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) → 𝑙 = 𝑌) ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
1851, 184syl5bb 270 . . . 4 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑙 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
1868lmodfgrp 18637 . . . . . . . 8 (𝑊 ∈ LMod → 𝑅 ∈ Grp)
18712, 34, 11grpinvnzcl 17252 . . . . . . . 8 ((𝑅 ∈ Grp ∧ 𝑙 ∈ ((Base‘𝑅) ∖ {𝑌})) → ((invg𝑅)‘𝑙) ∈ ((Base‘𝑅) ∖ {𝑌}))
188186, 187sylan 486 . . . . . . 7 ((𝑊 ∈ LMod ∧ 𝑙 ∈ ((Base‘𝑅) ∖ {𝑌})) → ((invg𝑅)‘𝑙) ∈ ((Base‘𝑅) ∖ {𝑌}))
18912, 34, 11grpinvnzcl 17252 . . . . . . . . 9 ((𝑅 ∈ Grp ∧ 𝑘 ∈ ((Base‘𝑅) ∖ {𝑌})) → ((invg𝑅)‘𝑘) ∈ ((Base‘𝑅) ∖ {𝑌}))
190186, 189sylan 486 . . . . . . . 8 ((𝑊 ∈ LMod ∧ 𝑘 ∈ ((Base‘𝑅) ∖ {𝑌})) → ((invg𝑅)‘𝑘) ∈ ((Base‘𝑅) ∖ {𝑌}))
191 eldifi 3689 . . . . . . . . . 10 (𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) → 𝑘 ∈ (Base‘𝑅))
19212, 11grpinvinv 17247 . . . . . . . . . 10 ((𝑅 ∈ Grp ∧ 𝑘 ∈ (Base‘𝑅)) → ((invg𝑅)‘((invg𝑅)‘𝑘)) = 𝑘)
193186, 191, 192syl2an 492 . . . . . . . . 9 ((𝑊 ∈ LMod ∧ 𝑘 ∈ ((Base‘𝑅) ∖ {𝑌})) → ((invg𝑅)‘((invg𝑅)‘𝑘)) = 𝑘)
194193eqcomd 2611 . . . . . . . 8 ((𝑊 ∈ LMod ∧ 𝑘 ∈ ((Base‘𝑅) ∖ {𝑌})) → 𝑘 = ((invg𝑅)‘((invg𝑅)‘𝑘)))
195 fveq2 6084 . . . . . . . . . 10 (𝑙 = ((invg𝑅)‘𝑘) → ((invg𝑅)‘𝑙) = ((invg𝑅)‘((invg𝑅)‘𝑘)))
196195eqeq2d 2615 . . . . . . . . 9 (𝑙 = ((invg𝑅)‘𝑘) → (𝑘 = ((invg𝑅)‘𝑙) ↔ 𝑘 = ((invg𝑅)‘((invg𝑅)‘𝑘))))
197196rspcev 3277 . . . . . . . 8 ((((invg𝑅)‘𝑘) ∈ ((Base‘𝑅) ∖ {𝑌}) ∧ 𝑘 = ((invg𝑅)‘((invg𝑅)‘𝑘))) → ∃𝑙 ∈ ((Base‘𝑅) ∖ {𝑌})𝑘 = ((invg𝑅)‘𝑙))
198190, 194, 197syl2anc 690 . . . . . . 7 ((𝑊 ∈ LMod ∧ 𝑘 ∈ ((Base‘𝑅) ∖ {𝑌})) → ∃𝑙 ∈ ((Base‘𝑅) ∖ {𝑌})𝑘 = ((invg𝑅)‘𝑙))
199 oveq1 6530 . . . . . . . . . 10 (𝑘 = ((invg𝑅)‘𝑙) → (𝑘 · (𝐹𝑗)) = (((invg𝑅)‘𝑙) · (𝐹𝑗)))
200199eleq1d 2667 . . . . . . . . 9 (𝑘 = ((invg𝑅)‘𝑙) → ((𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
201200notbid 306 . . . . . . . 8 (𝑘 = ((invg𝑅)‘𝑙) → (¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
202201adantl 480 . . . . . . 7 ((𝑊 ∈ LMod ∧ 𝑘 = ((invg𝑅)‘𝑙)) → (¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
203188, 198, 202ralxfrd 4796 . . . . . 6 (𝑊 ∈ LMod → (∀𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑙 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
2042033ad2ant1 1074 . . . . 5 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (∀𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑙 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
205204adantr 479 . . . 4 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑙 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (((invg𝑅)‘𝑙) · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
206 simplr 787 . . . . . . . 8 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ 𝑥𝐿) → 𝑗𝐼)
207 fvex 6094 . . . . . . . . . 10 (0g𝑅) ∈ V
20834, 207eqeltri 2679 . . . . . . . . 9 𝑌 ∈ V
209208fvconst2 6348 . . . . . . . 8 (𝑗𝐼 → ((𝐼 × {𝑌})‘𝑗) = 𝑌)
210206, 209syl 17 . . . . . . 7 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ 𝑥𝐿) → ((𝐼 × {𝑌})‘𝑗) = 𝑌)
211210eqeq2d 2615 . . . . . 6 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ 𝑥𝐿) → ((𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗) ↔ (𝑥𝑗) = 𝑌))
212211imbi2d 328 . . . . 5 ((((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) ∧ 𝑥𝐿) → (((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)) ↔ ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
213212ralbidva 2963 . . . 4 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)) ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = 𝑌)))
214185, 205, 2133bitr4d 298 . . 3 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑗𝐼) → (∀𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗))))
215214ralbidva 2963 . 2 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (∀𝑗𝐼𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗}))) ↔ ∀𝑗𝐼𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗))))
2167, 9, 162, 8, 12, 34islindf2 19910 . 2 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (𝐹 LIndF 𝑊 ↔ ∀𝑗𝐼𝑘 ∈ ((Base‘𝑅) ∖ {𝑌}) ¬ (𝑘 · (𝐹𝑗)) ∈ ((LSpan‘𝑊)‘(𝐹 “ (𝐼 ∖ {𝑗})))))
217175, 12, 181frlmbasf 19861 . . . . . . . 8 ((𝐼𝑋𝑥𝐿) → 𝑥:𝐼⟶(Base‘𝑅))
2182173ad2antl2 1216 . . . . . . 7 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑥𝐿) → 𝑥:𝐼⟶(Base‘𝑅))
219 ffn 5940 . . . . . . 7 (𝑥:𝐼⟶(Base‘𝑅) → 𝑥 Fn 𝐼)
220218, 219syl 17 . . . . . 6 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑥𝐿) → 𝑥 Fn 𝐼)
221 fnconstg 5987 . . . . . . 7 (𝑌 ∈ V → (𝐼 × {𝑌}) Fn 𝐼)
222208, 221ax-mp 5 . . . . . 6 (𝐼 × {𝑌}) Fn 𝐼
223 eqfnfv 6200 . . . . . 6 ((𝑥 Fn 𝐼 ∧ (𝐼 × {𝑌}) Fn 𝐼) → (𝑥 = (𝐼 × {𝑌}) ↔ ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)))
224220, 222, 223sylancl 692 . . . . 5 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑥𝐿) → (𝑥 = (𝐼 × {𝑌}) ↔ ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)))
225224imbi2d 328 . . . 4 (((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) ∧ 𝑥𝐿) → (((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0𝑥 = (𝐼 × {𝑌})) ↔ ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗))))
226225ralbidva 2963 . . 3 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0𝑥 = (𝐼 × {𝑌})) ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗))))
227 r19.21v 2938 . . . . 5 (∀𝑗𝐼 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)) ↔ ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)))
228227ralbii 2958 . . . 4 (∀𝑥𝐿𝑗𝐼 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)) ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)))
229 ralcom 3074 . . . 4 (∀𝑥𝐿𝑗𝐼 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)) ↔ ∀𝑗𝐼𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)))
230228, 229bitr3i 264 . . 3 (∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → ∀𝑗𝐼 (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)) ↔ ∀𝑗𝐼𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗)))
231226, 230syl6bb 274 . 2 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0𝑥 = (𝐼 × {𝑌})) ↔ ∀𝑗𝐼𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0 → (𝑥𝑗) = ((𝐼 × {𝑌})‘𝑗))))
232215, 216, 2313bitr4d 298 1 ((𝑊 ∈ LMod ∧ 𝐼𝑋𝐹:𝐼𝐵) → (𝐹 LIndF 𝑊 ↔ ∀𝑥𝐿 ((𝑊 Σg (𝑥𝑓 · 𝐹)) = 0𝑥 = (𝐼 × {𝑌}))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 194  wa 382  w3a 1030   = wceq 1474  wcel 1975  wnel 2776  wral 2891  wrex 2892  {crab 2895  Vcvv 3168  cdif 3532  cun 3533  cin 3534  wss 3535  c0 3869  {csn 4120  cop 4126   class class class wbr 4573  cmpt 4633   × cxp 5022  dom cdm 5024  cres 5026  cima 5027  Fun wfun 5780   Fn wfn 5781  wf 5782  cfv 5786  (class class class)co 6523  𝑓 cof 6766  𝑚 cmap 7717   finSupp cfsupp 8131  Basecbs 15637  +gcplusg 15710  Scalarcsca 15713   ·𝑠 cvsca 15714  0gc0g 15865   Σg cgsu 15866  Mndcmnd 17059  Grpcgrp 17187  invgcminusg 17188  CMndccmn 17958  LModclmod 18628  LSpanclspn 18734   freeLMod cfrlm 19847   LIndF clindf 19900
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-rep 4689  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820  ax-inf2 8394  ax-cnex 9844  ax-resscn 9845  ax-1cn 9846  ax-icn 9847  ax-addcl 9848  ax-addrcl 9849  ax-mulcl 9850  ax-mulrcl 9851  ax-mulcom 9852  ax-addass 9853  ax-mulass 9854  ax-distr 9855  ax-i2m1 9856  ax-1ne0 9857  ax-1rid 9858  ax-rnegex 9859  ax-rrecex 9860  ax-cnre 9861  ax-pre-lttri 9862  ax-pre-lttrn 9863  ax-pre-ltadd 9864  ax-pre-mulgt0 9865
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-nel 2778  df-ral 2896  df-rex 2897  df-reu 2898  df-rmo 2899  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-pss 3551  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-tp 4125  df-op 4127  df-uni 4363  df-int 4401  df-iun 4447  df-iin 4448  df-br 4574  df-opab 4634  df-mpt 4635  df-tr 4671  df-eprel 4935  df-id 4939  df-po 4945  df-so 4946  df-fr 4983  df-se 4984  df-we 4985  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-pred 5579  df-ord 5625  df-on 5626  df-lim 5627  df-suc 5628  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-isom 5795  df-riota 6485  df-ov 6526  df-oprab 6527  df-mpt2 6528  df-of 6768  df-om 6931  df-1st 7032  df-2nd 7033  df-supp 7156  df-wrecs 7267  df-recs 7328  df-rdg 7366  df-1o 7420  df-oadd 7424  df-er 7602  df-map 7719  df-ixp 7768  df-en 7815  df-dom 7816  df-sdom 7817  df-fin 7818  df-fsupp 8132  df-sup 8204  df-oi 8271  df-card 8621  df-pnf 9928  df-mnf 9929  df-xr 9930  df-ltxr 9931  df-le 9932  df-sub 10115  df-neg 10116  df-nn 10864  df-2 10922  df-3 10923  df-4 10924  df-5 10925  df-6 10926  df-7 10927  df-8 10928  df-9 10929  df-n0 11136  df-z 11207  df-dec 11322  df-uz 11516  df-fz 12149  df-fzo 12286  df-seq 12615  df-hash 12931  df-struct 15639  df-ndx 15640  df-slot 15641  df-base 15642  df-sets 15643  df-ress 15644  df-plusg 15723  df-mulr 15724  df-sca 15726  df-vsca 15727  df-ip 15728  df-tset 15729  df-ple 15730  df-ds 15733  df-hom 15735  df-cco 15736  df-0g 15867  df-gsum 15868  df-prds 15873  df-pws 15875  df-mre 16011  df-mrc 16012  df-acs 16014  df-mgm 17007  df-sgrp 17049  df-mnd 17060  df-mhm 17100  df-submnd 17101  df-grp 17190  df-minusg 17191  df-sbg 17192  df-mulg 17306  df-subg 17356  df-ghm 17423  df-cntz 17515  df-cmn 17960  df-abl 17961  df-mgp 18255  df-ur 18267  df-ring 18314  df-subrg 18543  df-lmod 18630  df-lss 18696  df-lsp 18735  df-lmhm 18785  df-lbs 18838  df-sra 18935  df-rgmod 18936  df-nzr 19021  df-dsmm 19833  df-frlm 19848  df-uvc 19879  df-lindf 19902
This theorem is referenced by:  islindf5  19935  matunitlindflem1  32374  aacllem  42315
  Copyright terms: Public domain W3C validator