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

Theorem decpmatid 20769
Description: The matrix consisting of the coefficients in the polynomial entries of the identity matrix is an identity or a zero matrix. (Contributed by AV, 28-Sep-2019.) (Revised by AV, 2-Dec-2019.)
Hypotheses
Ref Expression
decpmatid.p 𝑃 = (Poly1𝑅)
decpmatid.c 𝐶 = (𝑁 Mat 𝑃)
decpmatid.i 𝐼 = (1r𝐶)
decpmatid.a 𝐴 = (𝑁 Mat 𝑅)
decpmatid.0 0 = (0g𝐴)
decpmatid.1 1 = (1r𝐴)
Assertion
Ref Expression
decpmatid ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (𝐼 decompPMat 𝐾) = if(𝐾 = 0, 1 , 0 ))

Proof of Theorem decpmatid
Dummy variables 𝑖 𝑗 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 decpmatid.p . . . . . 6 𝑃 = (Poly1𝑅)
2 decpmatid.c . . . . . 6 𝐶 = (𝑁 Mat 𝑃)
31, 2pmatring 20692 . . . . 5 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐶 ∈ Ring)
433adant3 1126 . . . 4 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 𝐶 ∈ Ring)
5 eqid 2752 . . . . 5 (Base‘𝐶) = (Base‘𝐶)
6 decpmatid.i . . . . 5 𝐼 = (1r𝐶)
75, 6ringidcl 18760 . . . 4 (𝐶 ∈ Ring → 𝐼 ∈ (Base‘𝐶))
84, 7syl 17 . . 3 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 𝐼 ∈ (Base‘𝐶))
9 simp3 1132 . . 3 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 𝐾 ∈ ℕ0)
102, 5decpmatval 20764 . . 3 ((𝐼 ∈ (Base‘𝐶) ∧ 𝐾 ∈ ℕ0) → (𝐼 decompPMat 𝐾) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝐼𝑗))‘𝐾)))
118, 9, 10syl2anc 696 . 2 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (𝐼 decompPMat 𝐾) = (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝐼𝑗))‘𝐾)))
12 eqid 2752 . . . . . . 7 (0g𝑃) = (0g𝑃)
13 eqid 2752 . . . . . . 7 (1r𝑃) = (1r𝑃)
14 simp11 1243 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑁 ∈ Fin)
15 simp12 1244 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑅 ∈ Ring)
16 simp2 1131 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑖𝑁)
17 simp3 1132 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → 𝑗𝑁)
181, 2, 12, 13, 14, 15, 16, 17, 6pmat1ovd 20696 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → (𝑖𝐼𝑗) = if(𝑖 = 𝑗, (1r𝑃), (0g𝑃)))
1918fveq2d 6348 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → (coe1‘(𝑖𝐼𝑗)) = (coe1‘if(𝑖 = 𝑗, (1r𝑃), (0g𝑃))))
2019fveq1d 6346 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → ((coe1‘(𝑖𝐼𝑗))‘𝐾) = ((coe1‘if(𝑖 = 𝑗, (1r𝑃), (0g𝑃)))‘𝐾))
21 fvif 6357 . . . . . . 7 (coe1‘if(𝑖 = 𝑗, (1r𝑃), (0g𝑃))) = if(𝑖 = 𝑗, (coe1‘(1r𝑃)), (coe1‘(0g𝑃)))
2221fveq1i 6345 . . . . . 6 ((coe1‘if(𝑖 = 𝑗, (1r𝑃), (0g𝑃)))‘𝐾) = (if(𝑖 = 𝑗, (coe1‘(1r𝑃)), (coe1‘(0g𝑃)))‘𝐾)
23 iffv 6358 . . . . . 6 (if(𝑖 = 𝑗, (coe1‘(1r𝑃)), (coe1‘(0g𝑃)))‘𝐾) = if(𝑖 = 𝑗, ((coe1‘(1r𝑃))‘𝐾), ((coe1‘(0g𝑃))‘𝐾))
2422, 23eqtri 2774 . . . . 5 ((coe1‘if(𝑖 = 𝑗, (1r𝑃), (0g𝑃)))‘𝐾) = if(𝑖 = 𝑗, ((coe1‘(1r𝑃))‘𝐾), ((coe1‘(0g𝑃))‘𝐾))
25 eqid 2752 . . . . . . . . . . . . 13 (var1𝑅) = (var1𝑅)
26 eqid 2752 . . . . . . . . . . . . 13 (mulGrp‘𝑃) = (mulGrp‘𝑃)
27 eqid 2752 . . . . . . . . . . . . 13 (.g‘(mulGrp‘𝑃)) = (.g‘(mulGrp‘𝑃))
281, 25, 26, 27ply1idvr1 19857 . . . . . . . . . . . 12 (𝑅 ∈ Ring → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) = (1r𝑃))
29283ad2ant2 1128 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) = (1r𝑃))
3029eqcomd 2758 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (1r𝑃) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
3130fveq2d 6348 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (coe1‘(1r𝑃)) = (coe1‘(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
3231fveq1d 6346 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((coe1‘(1r𝑃))‘𝐾) = ((coe1‘(0(.g‘(mulGrp‘𝑃))(var1𝑅)))‘𝐾))
331ply1lmod 19816 . . . . . . . . . . . . 13 (𝑅 ∈ Ring → 𝑃 ∈ LMod)
34333ad2ant2 1128 . . . . . . . . . . . 12 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 𝑃 ∈ LMod)
35 0nn0 11491 . . . . . . . . . . . . . 14 0 ∈ ℕ0
36 eqid 2752 . . . . . . . . . . . . . . 15 (Base‘𝑃) = (Base‘𝑃)
371, 25, 26, 27, 36ply1moncl 19835 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ 0 ∈ ℕ0) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ (Base‘𝑃))
3835, 37mpan2 709 . . . . . . . . . . . . 13 (𝑅 ∈ Ring → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ (Base‘𝑃))
39383ad2ant2 1128 . . . . . . . . . . . 12 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ (Base‘𝑃))
40 eqid 2752 . . . . . . . . . . . . 13 (Scalar‘𝑃) = (Scalar‘𝑃)
41 eqid 2752 . . . . . . . . . . . . 13 ( ·𝑠𝑃) = ( ·𝑠𝑃)
42 eqid 2752 . . . . . . . . . . . . 13 (1r‘(Scalar‘𝑃)) = (1r‘(Scalar‘𝑃))
4336, 40, 41, 42lmodvs1 19085 . . . . . . . . . . . 12 ((𝑃 ∈ LMod ∧ (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ (Base‘𝑃)) → ((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
4434, 39, 43syl2anc 696 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
4544eqcomd 2758 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) = ((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
4645fveq2d 6348 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (coe1‘(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (coe1‘((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))))
4746fveq1d 6346 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((coe1‘(0(.g‘(mulGrp‘𝑃))(var1𝑅)))‘𝐾) = ((coe1‘((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))‘𝐾))
48 simp2 1131 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 𝑅 ∈ Ring)
491ply1sca 19817 . . . . . . . . . . . . . 14 (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
50493ad2ant2 1128 . . . . . . . . . . . . 13 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 𝑅 = (Scalar‘𝑃))
5150eqcomd 2758 . . . . . . . . . . . 12 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (Scalar‘𝑃) = 𝑅)
5251fveq2d 6348 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (1r‘(Scalar‘𝑃)) = (1r𝑅))
53 eqid 2752 . . . . . . . . . . . . 13 (Base‘𝑅) = (Base‘𝑅)
54 eqid 2752 . . . . . . . . . . . . 13 (1r𝑅) = (1r𝑅)
5553, 54ringidcl 18760 . . . . . . . . . . . 12 (𝑅 ∈ Ring → (1r𝑅) ∈ (Base‘𝑅))
56553ad2ant2 1128 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (1r𝑅) ∈ (Base‘𝑅))
5752, 56eqeltrd 2831 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (1r‘(Scalar‘𝑃)) ∈ (Base‘𝑅))
5835a1i 11 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 0 ∈ ℕ0)
59 eqid 2752 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
6059, 53, 1, 25, 41, 26, 27coe1tm 19837 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ (1r‘(Scalar‘𝑃)) ∈ (Base‘𝑅) ∧ 0 ∈ ℕ0) → (coe1‘((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = (𝑘 ∈ ℕ0 ↦ if(𝑘 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅))))
6148, 57, 58, 60syl3anc 1473 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (coe1‘((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = (𝑘 ∈ ℕ0 ↦ if(𝑘 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅))))
62 eqeq1 2756 . . . . . . . . . . 11 (𝑘 = 𝐾 → (𝑘 = 0 ↔ 𝐾 = 0))
6362ifbid 4244 . . . . . . . . . 10 (𝑘 = 𝐾 → if(𝑘 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) = if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)))
6463adantl 473 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑘 = 𝐾) → if(𝑘 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) = if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)))
65 fvex 6354 . . . . . . . . . . 11 (1r‘(Scalar‘𝑃)) ∈ V
66 fvex 6354 . . . . . . . . . . 11 (0g𝑅) ∈ V
6765, 66ifex 4292 . . . . . . . . . 10 if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) ∈ V
6867a1i 11 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) ∈ V)
6961, 64, 9, 68fvmptd 6442 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((coe1‘((1r‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))‘𝐾) = if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)))
7032, 47, 693eqtrd 2790 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((coe1‘(1r𝑃))‘𝐾) = if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)))
711, 12, 59coe1z 19827 . . . . . . . . . 10 (𝑅 ∈ Ring → (coe1‘(0g𝑃)) = (ℕ0 × {(0g𝑅)}))
72713ad2ant2 1128 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (coe1‘(0g𝑃)) = (ℕ0 × {(0g𝑅)}))
7372fveq1d 6346 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((coe1‘(0g𝑃))‘𝐾) = ((ℕ0 × {(0g𝑅)})‘𝐾))
7466a1i 11 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (0g𝑅) ∈ V)
75 fvconst2g 6623 . . . . . . . . 9 (((0g𝑅) ∈ V ∧ 𝐾 ∈ ℕ0) → ((ℕ0 × {(0g𝑅)})‘𝐾) = (0g𝑅))
7674, 9, 75syl2anc 696 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((ℕ0 × {(0g𝑅)})‘𝐾) = (0g𝑅))
7773, 76eqtrd 2786 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → ((coe1‘(0g𝑃))‘𝐾) = (0g𝑅))
7870, 77ifeq12d 4242 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → if(𝑖 = 𝑗, ((coe1‘(1r𝑃))‘𝐾), ((coe1‘(0g𝑃))‘𝐾)) = if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)))
79783ad2ant1 1127 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → if(𝑖 = 𝑗, ((coe1‘(1r𝑃))‘𝐾), ((coe1‘(0g𝑃))‘𝐾)) = if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)))
8024, 79syl5eq 2798 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → ((coe1‘if(𝑖 = 𝑗, (1r𝑃), (0g𝑃)))‘𝐾) = if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)))
8120, 80eqtrd 2786 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) ∧ 𝑖𝑁𝑗𝑁) → ((coe1‘(𝑖𝐼𝑗))‘𝐾) = if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)))
8281mpt2eq3dva 6876 . 2 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (𝑖𝑁, 𝑗𝑁 ↦ ((coe1‘(𝑖𝐼𝑗))‘𝐾)) = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))))
8350adantl 473 . . . . . . . . 9 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → 𝑅 = (Scalar‘𝑃))
8483eqcomd 2758 . . . . . . . 8 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (Scalar‘𝑃) = 𝑅)
8584fveq2d 6348 . . . . . . 7 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (1r‘(Scalar‘𝑃)) = (1r𝑅))
8685ifeq1d 4240 . . . . . 6 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → if(𝑖 = 𝑗, (1r‘(Scalar‘𝑃)), (0g𝑅)) = if(𝑖 = 𝑗, (1r𝑅), (0g𝑅)))
8786mpt2eq3dv 6878 . . . . 5 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r‘(Scalar‘𝑃)), (0g𝑅))) = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r𝑅), (0g𝑅))))
88 iftrue 4228 . . . . . . . 8 (𝐾 = 0 → if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) = (1r‘(Scalar‘𝑃)))
8988ifeq1d 4240 . . . . . . 7 (𝐾 = 0 → if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)) = if(𝑖 = 𝑗, (1r‘(Scalar‘𝑃)), (0g𝑅)))
9089adantr 472 . . . . . 6 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)) = if(𝑖 = 𝑗, (1r‘(Scalar‘𝑃)), (0g𝑅)))
9190mpt2eq3dv 6878 . . . . 5 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r‘(Scalar‘𝑃)), (0g𝑅))))
92 decpmatid.1 . . . . . . . 8 1 = (1r𝐴)
93 decpmatid.a . . . . . . . . 9 𝐴 = (𝑁 Mat 𝑅)
9493, 54, 59mat1 20447 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (1r𝐴) = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r𝑅), (0g𝑅))))
9592, 94syl5eq 2798 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 1 = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r𝑅), (0g𝑅))))
96953adant3 1126 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → 1 = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r𝑅), (0g𝑅))))
9796adantl 473 . . . . 5 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → 1 = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (1r𝑅), (0g𝑅))))
9887, 91, 973eqtr4d 2796 . . . 4 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = 1 )
99 iftrue 4228 . . . . . 6 (𝐾 = 0 → if(𝐾 = 0, 1 , 0 ) = 1 )
10099eqcomd 2758 . . . . 5 (𝐾 = 0 → 1 = if(𝐾 = 0, 1 , 0 ))
101100adantr 472 . . . 4 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → 1 = if(𝐾 = 0, 1 , 0 ))
10298, 101eqtrd 2786 . . 3 ((𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = if(𝐾 = 0, 1 , 0 ))
103 ifid 4261 . . . . . . 7 if(𝑖 = 𝑗, (0g𝑅), (0g𝑅)) = (0g𝑅)
104103a1i 11 . . . . . 6 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → if(𝑖 = 𝑗, (0g𝑅), (0g𝑅)) = (0g𝑅))
105104mpt2eq3dv 6878 . . . . 5 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (0g𝑅), (0g𝑅))) = (𝑖𝑁, 𝑗𝑁 ↦ (0g𝑅)))
106 iffalse 4231 . . . . . . . 8 𝐾 = 0 → if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) = (0g𝑅))
107106adantr 472 . . . . . . 7 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)) = (0g𝑅))
108107ifeq1d 4240 . . . . . 6 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅)) = if(𝑖 = 𝑗, (0g𝑅), (0g𝑅)))
109108mpt2eq3dv 6878 . . . . 5 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, (0g𝑅), (0g𝑅))))
110 3simpa 1142 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
111110adantl 473 . . . . . 6 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
112 decpmatid.0 . . . . . . 7 0 = (0g𝐴)
11393, 59mat0op 20419 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (0g𝐴) = (𝑖𝑁, 𝑗𝑁 ↦ (0g𝑅)))
114112, 113syl5eq 2798 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 0 = (𝑖𝑁, 𝑗𝑁 ↦ (0g𝑅)))
115111, 114syl 17 . . . . 5 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → 0 = (𝑖𝑁, 𝑗𝑁 ↦ (0g𝑅)))
116105, 109, 1153eqtr4d 2796 . . . 4 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = 0 )
117 iffalse 4231 . . . . . 6 𝐾 = 0 → if(𝐾 = 0, 1 , 0 ) = 0 )
118117eqcomd 2758 . . . . 5 𝐾 = 0 → 0 = if(𝐾 = 0, 1 , 0 ))
119118adantr 472 . . . 4 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → 0 = if(𝐾 = 0, 1 , 0 ))
120116, 119eqtrd 2786 . . 3 ((¬ 𝐾 = 0 ∧ (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0)) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = if(𝐾 = 0, 1 , 0 ))
121102, 120pm2.61ian 866 . 2 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (𝑖𝑁, 𝑗𝑁 ↦ if(𝑖 = 𝑗, if(𝐾 = 0, (1r‘(Scalar‘𝑃)), (0g𝑅)), (0g𝑅))) = if(𝐾 = 0, 1 , 0 ))
12211, 82, 1213eqtrd 2790 1 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐾 ∈ ℕ0) → (𝐼 decompPMat 𝐾) = if(𝐾 = 0, 1 , 0 ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 383  w3a 1072   = wceq 1624  wcel 2131  Vcvv 3332  ifcif 4222  {csn 4313  cmpt 4873   × cxp 5256  cfv 6041  (class class class)co 6805  cmpt2 6807  Fincfn 8113  0cc0 10120  0cn0 11476  Basecbs 16051  Scalarcsca 16138   ·𝑠 cvsca 16139  0gc0g 16294  .gcmg 17733  mulGrpcmgp 18681  1rcur 18693  Ringcrg 18739  LModclmod 19057  var1cv1 19740  Poly1cpl1 19741  coe1cco1 19742   Mat cmat 20407   decompPMat cdecpmat 20761
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1863  ax-4 1878  ax-5 1980  ax-6 2046  ax-7 2082  ax-8 2133  ax-9 2140  ax-10 2160  ax-11 2175  ax-12 2188  ax-13 2383  ax-ext 2732  ax-rep 4915  ax-sep 4925  ax-nul 4933  ax-pow 4984  ax-pr 5047  ax-un 7106  ax-inf2 8703  ax-cnex 10176  ax-resscn 10177  ax-1cn 10178  ax-icn 10179  ax-addcl 10180  ax-addrcl 10181  ax-mulcl 10182  ax-mulrcl 10183  ax-mulcom 10184  ax-addass 10185  ax-mulass 10186  ax-distr 10187  ax-i2m1 10188  ax-1ne0 10189  ax-1rid 10190  ax-rnegex 10191  ax-rrecex 10192  ax-cnre 10193  ax-pre-lttri 10194  ax-pre-lttrn 10195  ax-pre-ltadd 10196  ax-pre-mulgt0 10197
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1627  df-ex 1846  df-nf 1851  df-sb 2039  df-eu 2603  df-mo 2604  df-clab 2739  df-cleq 2745  df-clel 2748  df-nfc 2883  df-ne 2925  df-nel 3028  df-ral 3047  df-rex 3048  df-reu 3049  df-rmo 3050  df-rab 3051  df-v 3334  df-sbc 3569  df-csb 3667  df-dif 3710  df-un 3712  df-in 3714  df-ss 3721  df-pss 3723  df-nul 4051  df-if 4223  df-pw 4296  df-sn 4314  df-pr 4316  df-tp 4318  df-op 4320  df-ot 4322  df-uni 4581  df-int 4620  df-iun 4666  df-iin 4667  df-br 4797  df-opab 4857  df-mpt 4874  df-tr 4897  df-id 5166  df-eprel 5171  df-po 5179  df-so 5180  df-fr 5217  df-se 5218  df-we 5219  df-xp 5264  df-rel 5265  df-cnv 5266  df-co 5267  df-dm 5268  df-rn 5269  df-res 5270  df-ima 5271  df-pred 5833  df-ord 5879  df-on 5880  df-lim 5881  df-suc 5882  df-iota 6004  df-fun 6043  df-fn 6044  df-f 6045  df-f1 6046  df-fo 6047  df-f1o 6048  df-fv 6049  df-isom 6050  df-riota 6766  df-ov 6808  df-oprab 6809  df-mpt2 6810  df-of 7054  df-ofr 7055  df-om 7223  df-1st 7325  df-2nd 7326  df-supp 7456  df-wrecs 7568  df-recs 7629  df-rdg 7667  df-1o 7721  df-2o 7722  df-oadd 7725  df-er 7903  df-map 8017  df-pm 8018  df-ixp 8067  df-en 8114  df-dom 8115  df-sdom 8116  df-fin 8117  df-fsupp 8433  df-sup 8505  df-oi 8572  df-card 8947  df-pnf 10260  df-mnf 10261  df-xr 10262  df-ltxr 10263  df-le 10264  df-sub 10452  df-neg 10453  df-nn 11205  df-2 11263  df-3 11264  df-4 11265  df-5 11266  df-6 11267  df-7 11268  df-8 11269  df-9 11270  df-n0 11477  df-z 11562  df-dec 11678  df-uz 11872  df-fz 12512  df-fzo 12652  df-seq 12988  df-hash 13304  df-struct 16053  df-ndx 16054  df-slot 16055  df-base 16057  df-sets 16058  df-ress 16059  df-plusg 16148  df-mulr 16149  df-sca 16151  df-vsca 16152  df-ip 16153  df-tset 16154  df-ple 16155  df-ds 16158  df-hom 16160  df-cco 16161  df-0g 16296  df-gsum 16297  df-prds 16302  df-pws 16304  df-mre 16440  df-mrc 16441  df-acs 16443  df-mgm 17435  df-sgrp 17477  df-mnd 17488  df-mhm 17528  df-submnd 17529  df-grp 17618  df-minusg 17619  df-sbg 17620  df-mulg 17734  df-subg 17784  df-ghm 17851  df-cntz 17942  df-cmn 18387  df-abl 18388  df-mgp 18682  df-ur 18694  df-ring 18741  df-subrg 18972  df-lmod 19059  df-lss 19127  df-sra 19366  df-rgmod 19367  df-ascl 19508  df-psr 19550  df-mvr 19551  df-mpl 19552  df-opsr 19554  df-psr1 19744  df-vr1 19745  df-ply1 19746  df-coe1 19747  df-dsmm 20270  df-frlm 20285  df-mamu 20384  df-mat 20408  df-decpmat 20762
This theorem is referenced by:  idpm2idmp  20800
  Copyright terms: Public domain W3C validator