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

Theorem m2cpminvid2lem 21046
Description: Lemma for m2cpminvid2 21047. (Contributed by AV, 12-Nov-2019.) (Revised by AV, 14-Dec-2019.)
Hypotheses
Ref Expression
m2cpminvid2lem.s 𝑆 = (𝑁 ConstPolyMat 𝑅)
m2cpminvid2lem.p 𝑃 = (Poly1𝑅)
Assertion
Ref Expression
m2cpminvid2lem (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → ∀𝑛 ∈ ℕ0 ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
Distinct variable groups:   𝑛,𝑀   𝑛,𝑁   𝑃,𝑛   𝑅,𝑛   𝑆,𝑛   𝑥,𝑛   𝑦,𝑛
Allowed substitution hints:   𝑃(𝑥,𝑦)   𝑅(𝑥,𝑦)   𝑆(𝑥,𝑦)   𝑀(𝑥,𝑦)   𝑁(𝑥,𝑦)

Proof of Theorem m2cpminvid2lem
Dummy variables 𝑖 𝑗 𝑘 𝑙 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 m2cpminvid2lem.s . . . . . . . 8 𝑆 = (𝑁 ConstPolyMat 𝑅)
2 m2cpminvid2lem.p . . . . . . . 8 𝑃 = (Poly1𝑅)
3 eqid 2795 . . . . . . . 8 (𝑁 Mat 𝑃) = (𝑁 Mat 𝑃)
4 eqid 2795 . . . . . . . 8 (Base‘(𝑁 Mat 𝑃)) = (Base‘(𝑁 Mat 𝑃))
51, 2, 3, 4cpmatelimp 21004 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑀𝑆 → (𝑀 ∈ (Base‘(𝑁 Mat 𝑃)) ∧ ∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅))))
653impia 1110 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) → (𝑀 ∈ (Base‘(𝑁 Mat 𝑃)) ∧ ∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅)))
76simprd 496 . . . . 5 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) → ∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅))
87adantr 481 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → ∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅))
9 fvoveq1 7039 . . . . . . . . . 10 (𝑖 = 𝑥 → (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑥𝑀𝑗)))
109fveq1d 6540 . . . . . . . . 9 (𝑖 = 𝑥 → ((coe1‘(𝑖𝑀𝑗))‘𝑘) = ((coe1‘(𝑥𝑀𝑗))‘𝑘))
1110eqeq1d 2797 . . . . . . . 8 (𝑖 = 𝑥 → (((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅) ↔ ((coe1‘(𝑥𝑀𝑗))‘𝑘) = (0g𝑅)))
1211ralbidv 3164 . . . . . . 7 (𝑖 = 𝑥 → (∀𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅) ↔ ∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑗))‘𝑘) = (0g𝑅)))
13 oveq2 7024 . . . . . . . . . . 11 (𝑗 = 𝑦 → (𝑥𝑀𝑗) = (𝑥𝑀𝑦))
1413fveq2d 6542 . . . . . . . . . 10 (𝑗 = 𝑦 → (coe1‘(𝑥𝑀𝑗)) = (coe1‘(𝑥𝑀𝑦)))
1514fveq1d 6540 . . . . . . . . 9 (𝑗 = 𝑦 → ((coe1‘(𝑥𝑀𝑗))‘𝑘) = ((coe1‘(𝑥𝑀𝑦))‘𝑘))
1615eqeq1d 2797 . . . . . . . 8 (𝑗 = 𝑦 → (((coe1‘(𝑥𝑀𝑗))‘𝑘) = (0g𝑅) ↔ ((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅)))
1716ralbidv 3164 . . . . . . 7 (𝑗 = 𝑦 → (∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑗))‘𝑘) = (0g𝑅) ↔ ∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅)))
1812, 17rspc2v 3572 . . . . . 6 ((𝑥𝑁𝑦𝑁) → (∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅) → ∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅)))
1918adantl 482 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅) → ∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅)))
20 fveqeq2 6547 . . . . . . 7 (𝑘 = 𝑛 → (((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅) ↔ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅)))
2120cbvralv 3403 . . . . . 6 (∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅) ↔ ∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅))
22 simpl2 1185 . . . . . . . . . . . . . . . . 17 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → 𝑅 ∈ Ring)
23 eqid 2795 . . . . . . . . . . . . . . . . . . 19 (Base‘𝑃) = (Base‘𝑃)
24 simprl 767 . . . . . . . . . . . . . . . . . . 19 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → 𝑥𝑁)
25 simprr 769 . . . . . . . . . . . . . . . . . . 19 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → 𝑦𝑁)
261, 2, 3, 4cpmatpmat 21002 . . . . . . . . . . . . . . . . . . . 20 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) → 𝑀 ∈ (Base‘(𝑁 Mat 𝑃)))
2726adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → 𝑀 ∈ (Base‘(𝑁 Mat 𝑃)))
283, 23, 4, 24, 25, 27matecld 20719 . . . . . . . . . . . . . . . . . 18 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (𝑥𝑀𝑦) ∈ (Base‘𝑃))
29 0nn0 11760 . . . . . . . . . . . . . . . . . 18 0 ∈ ℕ0
30 eqid 2795 . . . . . . . . . . . . . . . . . . 19 (coe1‘(𝑥𝑀𝑦)) = (coe1‘(𝑥𝑀𝑦))
31 eqid 2795 . . . . . . . . . . . . . . . . . . 19 (Base‘𝑅) = (Base‘𝑅)
3230, 23, 2, 31coe1fvalcl 20063 . . . . . . . . . . . . . . . . . 18 (((𝑥𝑀𝑦) ∈ (Base‘𝑃) ∧ 0 ∈ ℕ0) → ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅))
3328, 29, 32sylancl 586 . . . . . . . . . . . . . . . . 17 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅))
3422, 33jca 512 . . . . . . . . . . . . . . . 16 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (𝑅 ∈ Ring ∧ ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅)))
3534adantr 481 . . . . . . . . . . . . . . 15 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → (𝑅 ∈ Ring ∧ ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅)))
36 eqid 2795 . . . . . . . . . . . . . . . 16 (algSc‘𝑃) = (algSc‘𝑃)
37 eqid 2795 . . . . . . . . . . . . . . . 16 (0g𝑅) = (0g𝑅)
382, 36, 31, 37coe1scl 20138 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Ring ∧ ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅)) → (coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0))) = (𝑙 ∈ ℕ0 ↦ if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅))))
3935, 38syl 17 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → (coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0))) = (𝑙 ∈ ℕ0 ↦ if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅))))
4039fveq1d 6540 . . . . . . . . . . . . 13 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((𝑙 ∈ ℕ0 ↦ if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)))‘𝑛))
41 eqidd 2796 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → (𝑙 ∈ ℕ0 ↦ if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅))) = (𝑙 ∈ ℕ0 ↦ if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅))))
42 eqeq1 2799 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑛 → (𝑙 = 0 ↔ 𝑛 = 0))
4342ifbid 4403 . . . . . . . . . . . . . . 15 (𝑙 = 𝑛 → if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)) = if(𝑛 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)))
4443adantl 482 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) ∧ 𝑙 = 𝑛) → if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)) = if(𝑛 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)))
45 nnnn0 11752 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → 𝑛 ∈ ℕ0)
4645adantl 482 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ0)
47 fvex 6551 . . . . . . . . . . . . . . . 16 ((coe1‘(𝑥𝑀𝑦))‘0) ∈ V
48 fvex 6551 . . . . . . . . . . . . . . . 16 (0g𝑅) ∈ V
4947, 48ifex 4429 . . . . . . . . . . . . . . 15 if(𝑛 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)) ∈ V
5049a1i 11 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → if(𝑛 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)) ∈ V)
5141, 44, 46, 50fvmptd 6641 . . . . . . . . . . . . 13 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → ((𝑙 ∈ ℕ0 ↦ if(𝑙 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)))‘𝑛) = if(𝑛 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)))
52 nnne0 11519 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → 𝑛 ≠ 0)
5352neneqd 2989 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ¬ 𝑛 = 0)
5453adantl 482 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → ¬ 𝑛 = 0)
5554iffalsed 4392 . . . . . . . . . . . . 13 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → if(𝑛 = 0, ((coe1‘(𝑥𝑀𝑦))‘0), (0g𝑅)) = (0g𝑅))
5640, 51, 553eqtrd 2835 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = (0g𝑅))
57 eqcom 2802 . . . . . . . . . . . . 13 (((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅) ↔ (0g𝑅) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
5857biimpi 217 . . . . . . . . . . . 12 (((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅) → (0g𝑅) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
5956, 58sylan9eq 2851 . . . . . . . . . . 11 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) ∧ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅)) → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
6059ex 413 . . . . . . . . . 10 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ 𝑛 ∈ ℕ) → (((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅) → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛)))
6160ralimdva 3144 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅) → ∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛)))
6261imp 407 . . . . . . . 8 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ ∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅)) → ∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
6334adantr 481 . . . . . . . . 9 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ ∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅)) → (𝑅 ∈ Ring ∧ ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅)))
642, 36, 31ply1sclid 20139 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅)) → ((coe1‘(𝑥𝑀𝑦))‘0) = ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0))
6564eqcomd 2801 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ ((coe1‘(𝑥𝑀𝑦))‘0) ∈ (Base‘𝑅)) → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))
6663, 65syl 17 . . . . . . . 8 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ ∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅)) → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))
6762, 66jca 512 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) ∧ ∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅)) → (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0)))
6867ex 413 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑛 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑛) = (0g𝑅) → (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))))
6921, 68syl5bi 243 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑘 ∈ ℕ ((coe1‘(𝑥𝑀𝑦))‘𝑘) = (0g𝑅) → (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))))
7019, 69syld 47 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑖𝑁𝑗𝑁𝑘 ∈ ℕ ((coe1‘(𝑖𝑀𝑗))‘𝑘) = (0g𝑅) → (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))))
718, 70mpd 15 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0)))
72 c0ex 10481 . . . 4 0 ∈ V
73 fveq2 6538 . . . . . 6 (𝑛 = 0 → ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0))
74 fveq2 6538 . . . . . 6 (𝑛 = 0 → ((coe1‘(𝑥𝑀𝑦))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘0))
7573, 74eqeq12d 2810 . . . . 5 (𝑛 = 0 → (((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ↔ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0)))
7675ralunsn 4731 . . . 4 (0 ∈ V → (∀𝑛 ∈ (ℕ ∪ {0})((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ↔ (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))))
7772, 76mp1i 13 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → (∀𝑛 ∈ (ℕ ∪ {0})((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ↔ (∀𝑛 ∈ ℕ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ∧ ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘0) = ((coe1‘(𝑥𝑀𝑦))‘0))))
7871, 77mpbird 258 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → ∀𝑛 ∈ (ℕ ∪ {0})((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
79 df-n0 11746 . . 3 0 = (ℕ ∪ {0})
8079raleqi 3373 . 2 (∀𝑛 ∈ ℕ0 ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛) ↔ ∀𝑛 ∈ (ℕ ∪ {0})((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
8178, 80sylibr 235 1 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝑆) ∧ (𝑥𝑁𝑦𝑁)) → ∀𝑛 ∈ ℕ0 ((coe1‘((algSc‘𝑃)‘((coe1‘(𝑥𝑀𝑦))‘0)))‘𝑛) = ((coe1‘(𝑥𝑀𝑦))‘𝑛))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1080   = wceq 1522  wcel 2081  wral 3105  Vcvv 3437  cun 3857  ifcif 4381  {csn 4472  cmpt 5041  cfv 6225  (class class class)co 7016  Fincfn 8357  0cc0 10383  cn 11486  0cn0 11745  Basecbs 16312  0gc0g 16542  Ringcrg 18987  algSccascl 19773  Poly1cpl1 20028  coe1cco1 20029   Mat cmat 20700   ConstPolyMat ccpmat 20995
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-cnex 10439  ax-resscn 10440  ax-1cn 10441  ax-icn 10442  ax-addcl 10443  ax-addrcl 10444  ax-mulcl 10445  ax-mulrcl 10446  ax-mulcom 10447  ax-addass 10448  ax-mulass 10449  ax-distr 10450  ax-i2m1 10451  ax-1ne0 10452  ax-1rid 10453  ax-rnegex 10454  ax-rrecex 10455  ax-cnre 10456  ax-pre-lttri 10457  ax-pre-lttrn 10458  ax-pre-ltadd 10459  ax-pre-mulgt0 10460
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-nel 3091  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-ot 4481  df-uni 4746  df-int 4783  df-iun 4827  df-iin 4828  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-se 5403  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-isom 6234  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-of 7267  df-ofr 7268  df-om 7437  df-1st 7545  df-2nd 7546  df-supp 7682  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-1o 7953  df-2o 7954  df-oadd 7957  df-er 8139  df-map 8258  df-pm 8259  df-ixp 8311  df-en 8358  df-dom 8359  df-sdom 8360  df-fin 8361  df-fsupp 8680  df-sup 8752  df-oi 8820  df-card 9214  df-pnf 10523  df-mnf 10524  df-xr 10525  df-ltxr 10526  df-le 10527  df-sub 10719  df-neg 10720  df-nn 11487  df-2 11548  df-3 11549  df-4 11550  df-5 11551  df-6 11552  df-7 11553  df-8 11554  df-9 11555  df-n0 11746  df-z 11830  df-dec 11948  df-uz 12094  df-fz 12743  df-fzo 12884  df-seq 13220  df-hash 13541  df-struct 16314  df-ndx 16315  df-slot 16316  df-base 16318  df-sets 16319  df-ress 16320  df-plusg 16407  df-mulr 16408  df-sca 16410  df-vsca 16411  df-ip 16412  df-tset 16413  df-ple 16414  df-ds 16416  df-hom 16418  df-cco 16419  df-0g 16544  df-gsum 16545  df-prds 16550  df-pws 16552  df-mre 16686  df-mrc 16687  df-acs 16689  df-mgm 17681  df-sgrp 17723  df-mnd 17734  df-mhm 17774  df-submnd 17775  df-grp 17864  df-minusg 17865  df-sbg 17866  df-mulg 17982  df-subg 18030  df-ghm 18097  df-cntz 18188  df-cmn 18635  df-abl 18636  df-mgp 18930  df-ur 18942  df-ring 18989  df-subrg 19223  df-lmod 19326  df-lss 19394  df-sra 19634  df-rgmod 19635  df-ascl 19776  df-psr 19824  df-mvr 19825  df-mpl 19826  df-opsr 19828  df-psr1 20031  df-vr1 20032  df-ply1 20033  df-coe1 20034  df-dsmm 20558  df-frlm 20573  df-mat 20701  df-cpmat 20998
This theorem is referenced by:  m2cpminvid2  21047
  Copyright terms: Public domain W3C validator