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

Theorem pm2mpf1 22937
Description: The transformation of polynomial matrices into polynomials over matrices is a 1-1 function mapping polynomial matrices to polynomials over matrices. (Contributed by AV, 14-Oct-2019.) (Revised by AV, 6-Dec-2019.)
Hypotheses
Ref Expression
pm2mpval.p 𝑃 = (Poly1𝑅)
pm2mpval.c 𝐶 = (𝑁 Mat 𝑃)
pm2mpval.b 𝐵 = (Base‘𝐶)
pm2mpval.m = ( ·𝑠𝑄)
pm2mpval.e = (.g‘(mulGrp‘𝑄))
pm2mpval.x 𝑋 = (var1𝐴)
pm2mpval.a 𝐴 = (𝑁 Mat 𝑅)
pm2mpval.q 𝑄 = (Poly1𝐴)
pm2mpval.t 𝑇 = (𝑁 pMatToMatPoly 𝑅)
pm2mpcl.l 𝐿 = (Base‘𝑄)
Assertion
Ref Expression
pm2mpf1 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑇:𝐵1-1𝐿)

Proof of Theorem pm2mpf1
Dummy variables 𝑛 𝑘 𝑎 𝑏 𝑖 𝑗 𝑢 𝑤 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pm2mpval.p . . 3 𝑃 = (Poly1𝑅)
2 pm2mpval.c . . 3 𝐶 = (𝑁 Mat 𝑃)
3 pm2mpval.b . . 3 𝐵 = (Base‘𝐶)
4 pm2mpval.m . . 3 = ( ·𝑠𝑄)
5 pm2mpval.e . . 3 = (.g‘(mulGrp‘𝑄))
6 pm2mpval.x . . 3 𝑋 = (var1𝐴)
7 pm2mpval.a . . 3 𝐴 = (𝑁 Mat 𝑅)
8 pm2mpval.q . . 3 𝑄 = (Poly1𝐴)
9 pm2mpval.t . . 3 𝑇 = (𝑁 pMatToMatPoly 𝑅)
10 pm2mpcl.l . . 3 𝐿 = (Base‘𝑄)
111, 2, 3, 4, 5, 6, 7, 8, 9, 10pm2mpf 22936 . 2 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑇:𝐵𝐿)
127matring 22581 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)
1312adantr 485 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → 𝐴 ∈ Ring)
141, 2, 3, 4, 5, 6, 7, 8, 9, 10pm2mpcl 22935 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑢𝐵) → (𝑇𝑢) ∈ 𝐿)
15143expa 1136 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑢𝐵) → (𝑇𝑢) ∈ 𝐿)
1615adantrr 729 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑇𝑢) ∈ 𝐿)
171, 2, 3, 4, 5, 6, 7, 8, 9, 10pm2mpcl 22935 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑤𝐵) → (𝑇𝑤) ∈ 𝐿)
18173expia 1139 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑤𝐵 → (𝑇𝑤) ∈ 𝐿))
1918adantld 495 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((𝑢𝐵𝑤𝐵) → (𝑇𝑤) ∈ 𝐿))
2019imp 411 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑇𝑤) ∈ 𝐿)
21 eqid 2763 . . . . . . 7 (coe1‘(𝑇𝑢)) = (coe1‘(𝑇𝑢))
22 eqid 2763 . . . . . . 7 (coe1‘(𝑇𝑤)) = (coe1‘(𝑇𝑤))
238, 10, 21, 22ply1coe1eq 22441 . . . . . 6 ((𝐴 ∈ Ring ∧ (𝑇𝑢) ∈ 𝐿 ∧ (𝑇𝑤) ∈ 𝐿) → (∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛) ↔ (𝑇𝑢) = (𝑇𝑤)))
2423bicomd 226 . . . . 5 ((𝐴 ∈ Ring ∧ (𝑇𝑢) ∈ 𝐿 ∧ (𝑇𝑤) ∈ 𝐿) → ((𝑇𝑢) = (𝑇𝑤) ↔ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)))
2513, 16, 20, 24syl3anc 1398 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → ((𝑇𝑢) = (𝑇𝑤) ↔ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)))
26 simpll 778 . . . . . . . . . . . . . . . . . 18 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → 𝑁 ∈ Fin)
27 simplr 780 . . . . . . . . . . . . . . . . . 18 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → 𝑅 ∈ Ring)
28 simprl 782 . . . . . . . . . . . . . . . . . 18 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → 𝑢𝐵)
291, 2, 3, 4, 5, 6, 7, 8, 9pm2mpfval 22934 . . . . . . . . . . . . . . . . . 18 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑢𝐵) → (𝑇𝑢) = (𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋)))))
3026, 27, 28, 29syl3anc 1398 . . . . . . . . . . . . . . . . 17 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑇𝑢) = (𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋)))))
3130ad2antrr 738 . . . . . . . . . . . . . . . 16 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (𝑇𝑢) = (𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋)))))
3231fveq2d 6887 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (coe1‘(𝑇𝑢)) = (coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋))))))
3332fveq1d 6885 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛))
34 simplll 786 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
3528adantr 485 . . . . . . . . . . . . . . . 16 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑢𝐵)
3635anim1i 626 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (𝑢𝐵𝑛 ∈ ℕ0))
371, 2, 3, 4, 5, 6, 7, 8pm2mpf1lem 22932 . . . . . . . . . . . . . . 15 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑛 ∈ ℕ0)) → ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛) = (𝑢 decompPMat 𝑛))
3834, 36, 37syl2anc 595 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑢 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛) = (𝑢 decompPMat 𝑛))
3933, 38eqtrd 2798 . . . . . . . . . . . . 13 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑇𝑢))‘𝑛) = (𝑢 decompPMat 𝑛))
40 simprr 784 . . . . . . . . . . . . . . . . . 18 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → 𝑤𝐵)
411, 2, 3, 4, 5, 6, 7, 8, 9pm2mpfval 22934 . . . . . . . . . . . . . . . . . 18 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑤𝐵) → (𝑇𝑤) = (𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋)))))
4226, 27, 40, 41syl3anc 1398 . . . . . . . . . . . . . . . . 17 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑇𝑤) = (𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋)))))
4342fveq2d 6887 . . . . . . . . . . . . . . . 16 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (coe1‘(𝑇𝑤)) = (coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋))))))
4443fveq1d 6885 . . . . . . . . . . . . . . 15 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → ((coe1‘(𝑇𝑤))‘𝑛) = ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛))
4544ad2antrr 738 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑇𝑤))‘𝑛) = ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛))
4640adantr 485 . . . . . . . . . . . . . . . 16 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑤𝐵)
4746anim1i 626 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (𝑤𝐵𝑛 ∈ ℕ0))
481, 2, 3, 4, 5, 6, 7, 8pm2mpf1lem 22932 . . . . . . . . . . . . . . 15 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑤𝐵𝑛 ∈ ℕ0)) → ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛) = (𝑤 decompPMat 𝑛))
4934, 47, 48syl2anc 595 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑄 Σg (𝑘 ∈ ℕ0 ↦ ((𝑤 decompPMat 𝑘) (𝑘 𝑋)))))‘𝑛) = (𝑤 decompPMat 𝑛))
5045, 49eqtrd 2798 . . . . . . . . . . . . 13 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑇𝑤))‘𝑛) = (𝑤 decompPMat 𝑛))
5139, 50eqeq12d 2779 . . . . . . . . . . . 12 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛) ↔ (𝑢 decompPMat 𝑛) = (𝑤 decompPMat 𝑛)))
522, 3decpmatval 22903 . . . . . . . . . . . . . . . . 17 ((𝑢𝐵𝑛 ∈ ℕ0) → (𝑢 decompPMat 𝑛) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)))
5328, 52sylan 591 . . . . . . . . . . . . . . . 16 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → (𝑢 decompPMat 𝑛) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)))
542, 3decpmatval 22903 . . . . . . . . . . . . . . . . 17 ((𝑤𝐵𝑛 ∈ ℕ0) → (𝑤 decompPMat 𝑛) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)))
5540, 54sylan 591 . . . . . . . . . . . . . . . 16 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → (𝑤 decompPMat 𝑛) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)))
5653, 55eqeq12d 2779 . . . . . . . . . . . . . . 15 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → ((𝑢 decompPMat 𝑛) = (𝑤 decompPMat 𝑛) ↔ (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))))
57 eqid 2763 . . . . . . . . . . . . . . . . 17 (Base‘𝑅) = (Base‘𝑅)
58 eqid 2763 . . . . . . . . . . . . . . . . 17 (Base‘𝐴) = (Base‘𝐴)
59 simplll 786 . . . . . . . . . . . . . . . . 17 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → 𝑁 ∈ Fin)
60 simpllr 787 . . . . . . . . . . . . . . . . 17 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ Ring)
61 eqid 2763 . . . . . . . . . . . . . . . . . . 19 (Base‘𝑃) = (Base‘𝑃)
62 simp2 1155 . . . . . . . . . . . . . . . . . . 19 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑖𝑁)
63 simp3 1156 . . . . . . . . . . . . . . . . . . 19 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑗𝑁)
643eleq2i 2855 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑢𝐵𝑢 ∈ (Base‘𝐶))
6564birani 508 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑢𝐵𝑤𝐵) → 𝑢 ∈ (Base‘𝐶))
6665ad2antlr 739 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → 𝑢 ∈ (Base‘𝐶))
67663ad2ant1 1151 . . . . . . . . . . . . . . . . . . . 20 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑢 ∈ (Base‘𝐶))
6867, 3eleqtrrdi 2874 . . . . . . . . . . . . . . . . . . 19 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑢𝐵)
692, 61, 3, 62, 63, 68matecld 22564 . . . . . . . . . . . . . . . . . 18 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → (𝑖𝑢𝑗) ∈ (Base‘𝑃))
70 simp1r 1217 . . . . . . . . . . . . . . . . . 18 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑛 ∈ ℕ0)
71 eqid 2763 . . . . . . . . . . . . . . . . . . 19 (coe1‘(𝑖𝑢𝑗)) = (coe1‘(𝑖𝑢𝑗))
7271, 61, 1, 57coe1fvalcl 22353 . . . . . . . . . . . . . . . . . 18 (((𝑖𝑢𝑗) ∈ (Base‘𝑃) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑖𝑢𝑗))‘𝑛) ∈ (Base‘𝑅))
7369, 70, 72syl2anc 595 . . . . . . . . . . . . . . . . 17 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → ((coe1‘(𝑖𝑢𝑗))‘𝑛) ∈ (Base‘𝑅))
747, 57, 58, 59, 60, 73matbas2d 22561 . . . . . . . . . . . . . . . 16 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)) ∈ (Base‘𝐴))
753eleq2i 2855 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤𝐵𝑤 ∈ (Base‘𝐶))
7675biimpi 219 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤𝐵𝑤 ∈ (Base‘𝐶))
7776ad2antll 741 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → 𝑤 ∈ (Base‘𝐶))
7877adantr 485 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → 𝑤 ∈ (Base‘𝐶))
79783ad2ant1 1151 . . . . . . . . . . . . . . . . . . . 20 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑤 ∈ (Base‘𝐶))
8079, 3eleqtrrdi 2874 . . . . . . . . . . . . . . . . . . 19 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑤𝐵)
812, 61, 3, 62, 63, 80matecld 22564 . . . . . . . . . . . . . . . . . 18 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → (𝑖𝑤𝑗) ∈ (Base‘𝑃))
82 eqid 2763 . . . . . . . . . . . . . . . . . . 19 (coe1‘(𝑖𝑤𝑗)) = (coe1‘(𝑖𝑤𝑗))
8382, 61, 1, 57coe1fvalcl 22353 . . . . . . . . . . . . . . . . . 18 (((𝑖𝑤𝑗) ∈ (Base‘𝑃) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑖𝑤𝑗))‘𝑛) ∈ (Base‘𝑅))
8481, 70, 83syl2anc 595 . . . . . . . . . . . . . . . . 17 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → ((coe1‘(𝑖𝑤𝑗))‘𝑛) ∈ (Base‘𝑅))
857, 57, 58, 59, 60, 84matbas2d 22561 . . . . . . . . . . . . . . . 16 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)) ∈ (Base‘𝐴))
867, 58eqmat 22562 . . . . . . . . . . . . . . . 16 (((𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)) ∈ (Base‘𝐴) ∧ (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)) ∈ (Base‘𝐴)) → ((𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)) ↔ ∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)))
8774, 85, 86syl2anc 595 . . . . . . . . . . . . . . 15 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → ((𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)) ↔ ∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)))
8856, 87bitrd 282 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ 𝑛 ∈ ℕ0) → ((𝑢 decompPMat 𝑛) = (𝑤 decompPMat 𝑛) ↔ ∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)))
8988adantlr 727 . . . . . . . . . . . . 13 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((𝑢 decompPMat 𝑛) = (𝑤 decompPMat 𝑛) ↔ ∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)))
90 oveq1 7419 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑎 → (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦))
91 oveq1 7419 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑎 → (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦))
9290, 91eqeq12d 2779 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑎 → ((𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) ↔ (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)))
93 oveq2 7420 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = 𝑏 → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏))
94 oveq2 7420 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = 𝑏 → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏))
9593, 94eqeq12d 2779 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑏 → ((𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) ↔ (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏)))
9692, 95rspc2va 3594 . . . . . . . . . . . . . . . . . . 19 (((𝑎𝑁𝑏𝑁) ∧ ∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)) → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏))
97 eqidd 2764 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛)))
98 oveq12 7421 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑖 = 𝑎𝑗 = 𝑏) → (𝑖𝑢𝑗) = (𝑎𝑢𝑏))
9998fveq2d 6887 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑖 = 𝑎𝑗 = 𝑏) → (coe1‘(𝑖𝑢𝑗)) = (coe1‘(𝑎𝑢𝑏)))
10099fveq1d 6885 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑖 = 𝑎𝑗 = 𝑏) → ((coe1‘(𝑖𝑢𝑗))‘𝑛) = ((coe1‘(𝑎𝑢𝑏))‘𝑛))
101100adantl 486 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) ∧ (𝑖 = 𝑎𝑗 = 𝑏)) → ((coe1‘(𝑖𝑢𝑗))‘𝑛) = ((coe1‘(𝑎𝑢𝑏))‘𝑛))
102 simplll 786 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → 𝑎𝑁)
103 simpllr 787 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → 𝑏𝑁)
104 fvexd 6898 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) ∈ V)
10597, 101, 102, 103, 104ovmpod 7564 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = ((coe1‘(𝑎𝑢𝑏))‘𝑛))
106 eqidd 2764 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛)))
107 oveq12 7421 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑖 = 𝑎𝑗 = 𝑏) → (𝑖𝑤𝑗) = (𝑎𝑤𝑏))
108107fveq2d 6887 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑖 = 𝑎𝑗 = 𝑏) → (coe1‘(𝑖𝑤𝑗)) = (coe1‘(𝑎𝑤𝑏)))
109108fveq1d 6885 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑖 = 𝑎𝑗 = 𝑏) → ((coe1‘(𝑖𝑤𝑗))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))
110109adantl 486 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) ∧ (𝑖 = 𝑎𝑗 = 𝑏)) → ((coe1‘(𝑖𝑤𝑗))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))
111 fvexd 6898 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → ((coe1‘(𝑎𝑤𝑏))‘𝑛) ∈ V)
112106, 110, 102, 103, 111ovmpod 7564 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))
113105, 112eqeq12d 2779 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → ((𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏) ↔ ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
114113biimpd 232 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑎𝑁𝑏𝑁) ∧ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵))) ∧ 𝑛 ∈ ℕ0) → ((𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
115114exp31 424 . . . . . . . . . . . . . . . . . . . 20 ((𝑎𝑁𝑏𝑁) → (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑛 ∈ ℕ0 → ((𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))))
116115com14 97 . . . . . . . . . . . . . . . . . . 19 ((𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑏) = (𝑎(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑏) → (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑛 ∈ ℕ0 → ((𝑎𝑁𝑏𝑁) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))))
11796, 116syl 18 . . . . . . . . . . . . . . . . . 18 (((𝑎𝑁𝑏𝑁) ∧ ∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦)) → (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑛 ∈ ℕ0 → ((𝑎𝑁𝑏𝑁) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))))
118117ex 417 . . . . . . . . . . . . . . . . 17 ((𝑎𝑁𝑏𝑁) → (∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) → (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑛 ∈ ℕ0 → ((𝑎𝑁𝑏𝑁) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))))))
119118com25 100 . . . . . . . . . . . . . . . 16 ((𝑎𝑁𝑏𝑁) → ((𝑎𝑁𝑏𝑁) → (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑛 ∈ ℕ0 → (∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))))))
120119pm2.43i 53 . . . . . . . . . . . . . . 15 ((𝑎𝑁𝑏𝑁) → (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (𝑛 ∈ ℕ0 → (∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))))
121120impcom 412 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑛 ∈ ℕ0 → (∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))))
122121imp 411 . . . . . . . . . . . . 13 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (∀𝑥𝑁𝑦𝑁 (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑢𝑗))‘𝑛))𝑦) = (𝑥(𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝑤𝑗))‘𝑛))𝑦) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
12389, 122sylbid 243 . . . . . . . . . . . 12 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → ((𝑢 decompPMat 𝑛) = (𝑤 decompPMat 𝑛) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
12451, 123sylbid 243 . . . . . . . . . . 11 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) ∧ 𝑛 ∈ ℕ0) → (((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛) → ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
125124ralimdva 3177 . . . . . . . . . 10 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ (𝑎𝑁𝑏𝑁)) → (∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛) → ∀𝑛 ∈ ℕ0 ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
126125impancom 456 . . . . . . . . 9 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) → ((𝑎𝑁𝑏𝑁) → ∀𝑛 ∈ ℕ0 ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
127126imp 411 . . . . . . . 8 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → ∀𝑛 ∈ ℕ0 ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛))
12827ad2antrr 738 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑅 ∈ Ring)
129 simprl 782 . . . . . . . . . 10 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑎𝑁)
130 simprr 784 . . . . . . . . . 10 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑏𝑁)
13165ad2antlr 739 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) → 𝑢 ∈ (Base‘𝐶))
132131adantr 485 . . . . . . . . . . 11 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑢 ∈ (Base‘𝐶))
133132, 3eleqtrrdi 2874 . . . . . . . . . 10 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑢𝐵)
1342, 61, 3, 129, 130, 133matecld 22564 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎𝑢𝑏) ∈ (Base‘𝑃))
13577ad2antrr 738 . . . . . . . . . . 11 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑤 ∈ (Base‘𝐶))
136135, 3eleqtrrdi 2874 . . . . . . . . . 10 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑤𝐵)
1372, 61, 3, 129, 130, 136matecld 22564 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎𝑤𝑏) ∈ (Base‘𝑃))
138 eqid 2763 . . . . . . . . . . 11 (coe1‘(𝑎𝑢𝑏)) = (coe1‘(𝑎𝑢𝑏))
139 eqid 2763 . . . . . . . . . . 11 (coe1‘(𝑎𝑤𝑏)) = (coe1‘(𝑎𝑤𝑏))
1401, 61, 138, 139ply1coe1eq 22441 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ (𝑎𝑢𝑏) ∈ (Base‘𝑃) ∧ (𝑎𝑤𝑏) ∈ (Base‘𝑃)) → (∀𝑛 ∈ ℕ0 ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛) ↔ (𝑎𝑢𝑏) = (𝑎𝑤𝑏)))
141140bicomd 226 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝑎𝑢𝑏) ∈ (Base‘𝑃) ∧ (𝑎𝑤𝑏) ∈ (Base‘𝑃)) → ((𝑎𝑢𝑏) = (𝑎𝑤𝑏) ↔ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
142128, 134, 137, 141syl3anc 1398 . . . . . . . 8 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → ((𝑎𝑢𝑏) = (𝑎𝑤𝑏) ↔ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑎𝑢𝑏))‘𝑛) = ((coe1‘(𝑎𝑤𝑏))‘𝑛)))
143127, 142mpbird 260 . . . . . . 7 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎𝑢𝑏) = (𝑎𝑤𝑏))
144143ralrimivva 3208 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) → ∀𝑎𝑁𝑏𝑁 (𝑎𝑢𝑏) = (𝑎𝑤𝑏))
1452, 3eqmat 22562 . . . . . . 7 ((𝑢𝐵𝑤𝐵) → (𝑢 = 𝑤 ↔ ∀𝑎𝑁𝑏𝑁 (𝑎𝑢𝑏) = (𝑎𝑤𝑏)))
146145ad2antlr 739 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) → (𝑢 = 𝑤 ↔ ∀𝑎𝑁𝑏𝑁 (𝑎𝑢𝑏) = (𝑎𝑤𝑏)))
147144, 146mpbird 260 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) ∧ ∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛)) → 𝑢 = 𝑤)
148147ex 417 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → (∀𝑛 ∈ ℕ0 ((coe1‘(𝑇𝑢))‘𝑛) = ((coe1‘(𝑇𝑤))‘𝑛) → 𝑢 = 𝑤))
14925, 148sylbid 243 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑢𝐵𝑤𝐵)) → ((𝑇𝑢) = (𝑇𝑤) → 𝑢 = 𝑤))
150149ralrimivva 3208 . 2 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ∀𝑢𝐵𝑤𝐵 ((𝑇𝑢) = (𝑇𝑤) → 𝑢 = 𝑤))
151 dff13 7254 . 2 (𝑇:𝐵1-1𝐿 ↔ (𝑇:𝐵𝐿 ∧ ∀𝑢𝐵𝑤𝐵 ((𝑇𝑢) = (𝑇𝑤) → 𝑢 = 𝑤)))
15211, 150, 151sylanbrc 594 1 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑇:𝐵1-1𝐿)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  w3a 1103   = wceq 1570  wcel 2143  wral 3079  Vcvv 3455  cmpt 5193  wf 6534  1-1wf1 6535  cfv 6538  (class class class)co 7412  cmpo 7414  Fincfn 8944  0cn0 12505  Basecbs 17270   ·𝑠 cvsca 17315   Σg cgsu 17494  .gcmg 19134  mulGrpcmgp 20217  Ringcrg 20316  var1cv1 22317  Poly1cpl1 22318  coe1cco1 22319   Mat cmat 22545   decompPMat cdecpmat 22900   pMatToMatPoly cpm2mp 22930
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-tp 4595  df-op 4597  df-ot 4599  df-uni 4874  df-int 4914  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7676  df-ofr 7677  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8158  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-1o 8454  df-2o 8455  df-er 8695  df-map 8827  df-pm 8828  df-ixp 8897  df-en 8945  df-dom 8946  df-sdom 8947  df-fin 8948  df-fsupp 9323  df-sup 9403  df-oi 9473  df-card 9926  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-7 12309  df-8 12310  df-9 12311  df-n0 12506  df-z 12593  df-dec 12713  df-uz 12864  df-fz 13537  df-fzo 13685  df-seq 14040  df-hash 14369  df-struct 17208  df-sets 17225  df-slot 17243  df-ndx 17255  df-base 17271  df-ress 17292  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-hom 17335  df-cco 17336  df-0g 17495  df-gsum 17496  df-prds 17501  df-pws 17503  df-mre 17639  df-mrc 17640  df-acs 17642  df-mgm 18699  df-sgrp 18778  df-mnd 18794  df-mhm 18842  df-submnd 18843  df-grp 19004  df-minusg 19005  df-sbg 19006  df-mulg 19135  df-subg 19190  df-ghm 19285  df-cntz 19388  df-cmn 19853  df-abl 19854  df-mgp 20218  df-rng 20232  df-ur 20265  df-srg 20270  df-ring 20318  df-subrng 20632  df-subrg 20656  df-lmod 20964  df-lss 21034  df-sra 21275  df-rgmod 21276  df-dsmm 21863  df-frlm 21878  df-psr 22040  df-mvr 22041  df-mpl 22042  df-opsr 22044  df-psr1 22321  df-vr1 22322  df-ply1 22323  df-coe1 22324  df-mamu 22529  df-mat 22546  df-decpmat 22901  df-pm2mp 22931
This theorem is referenced by:  pm2mpf1o  22953
  Copyright terms: Public domain W3C validator