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

Theorem madufval 22844
Description: First substitution for the adjunct (cofactor) matrix. (Contributed by SO, 11-Jul-2018.)
Hypotheses
Ref Expression
madufval.a 𝐴 = (𝑁 Mat 𝑅)
madufval.d 𝐷 = (𝑁 maDet 𝑅)
madufval.j 𝐽 = (𝑁 maAdju 𝑅)
madufval.b 𝐵 = (Base‘𝐴)
madufval.o 1 = (1r𝑅)
madufval.z 0 = (0g𝑅)
Assertion
Ref Expression
madufval 𝐽 = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
Distinct variable groups:   𝑚,𝑁,𝑖,𝑗,𝑘,𝑙   𝑅,𝑚,𝑖,𝑗,𝑘,𝑙   𝐵,𝑚
Allowed substitution hints:   𝐴(𝑖, 𝑗, 𝑘, 𝑚, 𝑙)   𝐵(𝑖, 𝑗, 𝑘, 𝑙)   𝐷(𝑖, 𝑗, 𝑘, 𝑚, 𝑙)   1 (𝑖, 𝑗, 𝑘, 𝑚, 𝑙)   𝐽(𝑖, 𝑗, 𝑘, 𝑚, 𝑙)   0 (𝑖, 𝑗, 𝑘, 𝑚, 𝑙)

Proof of Theorem madufval
Dummy variables 𝑛 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 madufval.j . 2 𝐽 = (𝑁 maAdju 𝑅)
2 fvoveq1 7442 . . . . . 6 (𝑛 = 𝑁 → (Base‘(𝑛 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑟)))
3 id 23 . . . . . . 7 (𝑛 = 𝑁𝑛 = 𝑁)
4 oveq1 7426 . . . . . . . 8 (𝑛 = 𝑁 → (𝑛 maDet 𝑟) = (𝑁 maDet 𝑟))
5 eqidd 2766 . . . . . . . . 9 (𝑛 = 𝑁 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))
63, 3, 5mpoeq123dv 7494 . . . . . . . 8 (𝑛 = 𝑁 → (𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))
74, 6fveq12d 6892 . . . . . . 7 (𝑛 = 𝑁 → ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))
83, 3, 7mpoeq123dv 7494 . . . . . 6 (𝑛 = 𝑁 → (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))))
92, 8mpteq12dv 5200 . . . . 5 (𝑛 = 𝑁 → (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))))
10 oveq2 7427 . . . . . . 7 (𝑟 = 𝑅 → (𝑁 Mat 𝑟) = (𝑁 Mat 𝑅))
1110fveq2d 6889 . . . . . 6 (𝑟 = 𝑅 → (Base‘(𝑁 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑅)))
12 oveq2 7427 . . . . . . . 8 (𝑟 = 𝑅 → (𝑁 maDet 𝑟) = (𝑁 maDet 𝑅))
13 fveq2 6885 . . . . . . . . . . 11 (𝑟 = 𝑅 → (1r𝑟) = (1r𝑅))
14 fveq2 6885 . . . . . . . . . . 11 (𝑟 = 𝑅 → (0g𝑟) = (0g𝑅))
1513, 14ifeq12d 4511 . . . . . . . . . 10 (𝑟 = 𝑅 → if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)) = if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)))
1615ifeq1d 4509 . . . . . . . . 9 (𝑟 = 𝑅 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
1716mpoeq3dv 7498 . . . . . . . 8 (𝑟 = 𝑅 → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))
1812, 17fveq12d 6892 . . . . . . 7 (𝑟 = 𝑅 → ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
1918mpoeq3dv 7498 . . . . . 6 (𝑟 = 𝑅 → (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))))
2011, 19mpteq12dv 5200 . . . . 5 (𝑟 = 𝑅 → (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))))
21 df-madu 22841 . . . . 5 maAdju = (𝑛 ∈ V, 𝑟 ∈ V ↦ (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))))
22 fvex 6898 . . . . . 6 (Base‘(𝑁 Mat 𝑅)) ∈ V
2322mptex 7228 . . . . 5 (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))) ∈ V
249, 20, 21, 23ovmpo 7579 . . . 4 ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))))
25 madufval.b . . . . . 6 𝐵 = (Base‘𝐴)
26 madufval.a . . . . . . 7 𝐴 = (𝑁 Mat 𝑅)
2726fveq2i 6888 . . . . . 6 (Base‘𝐴) = (Base‘(𝑁 Mat 𝑅))
2825, 27eqtri 2788 . . . . 5 𝐵 = (Base‘(𝑁 Mat 𝑅))
29 madufval.d . . . . . . . 8 𝐷 = (𝑁 maDet 𝑅)
30 madufval.o . . . . . . . . . . . 12 1 = (1r𝑅)
3130a1i 11 . . . . . . . . . . 11 ((𝑘𝑁𝑙𝑁) → 1 = (1r𝑅))
32 madufval.z . . . . . . . . . . . 12 0 = (0g𝑅)
3332a1i 11 . . . . . . . . . . 11 ((𝑘𝑁𝑙𝑁) → 0 = (0g𝑅))
3431, 33ifeq12d 4511 . . . . . . . . . 10 ((𝑘𝑁𝑙𝑁) → if(𝑙 = 𝑖, 1 , 0 ) = if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)))
3534ifeq1d 4509 . . . . . . . . 9 ((𝑘𝑁𝑙𝑁) → if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
3635mpoeq3ia 7497 . . . . . . . 8 (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
3729, 36fveq12i 6891 . . . . . . 7 (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))
3837a1i 11 . . . . . 6 ((𝑖𝑁𝑗𝑁) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
3938mpoeq3ia 7497 . . . . 5 (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
4028, 39mpteq12i 5210 . . . 4 (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))))
4124, 40eqtr4di 2818 . . 3 ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
4221reldmmpo 7553 . . . . 5 Rel dom maAdju
4342ovprc 7457 . . . 4 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = ∅)
44 df-mat 22615 . . . . . . . . . . 11 Mat = (𝑛 ∈ Fin, 𝑟 ∈ V ↦ ((𝑟 freeLMod (𝑛 × 𝑛)) sSet ⟨(.r‘ndx), (𝑟 maMul ⟨𝑛, 𝑛, 𝑛⟩)⟩))
4544reldmmpo 7553 . . . . . . . . . 10 Rel dom Mat
4645ovprc 7457 . . . . . . . . 9 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 Mat 𝑅) = ∅)
4726, 46eqtrid 2812 . . . . . . . 8 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐴 = ∅)
4847fveq2d 6889 . . . . . . 7 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (Base‘𝐴) = (Base‘∅))
49 base0 17296 . . . . . . 7 ∅ = (Base‘∅)
5048, 25, 493eqtr4g 2825 . . . . . 6 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐵 = ∅)
5150mpteq1d 5203 . . . . 5 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ ∅ ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
52 mpt0 6681 . . . . 5 (𝑚 ∈ ∅ ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅
5351, 52eqtrdi 2816 . . . 4 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅)
5443, 53eqtr4d 2803 . . 3 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
5541, 54pm2.61i 184 . 2 (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
561, 55eqtri 2788 1 𝐽 = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wa 401   = wceq 1570  wcel 2146  Vcvv 3457  c0 4286  ifcif 4489  cop 4597  cotp 4599  cmpt 5194   × cxp 5661  cfv 6540  (class class class)co 7419  cmpo 7421  Fincfn 8949   sSet csts 17245  ndxcnx 17275  Basecbs 17291  .rcmulr 17333  0gc0g 17514  1rcur 20307   freeLMod cfrlm 21946   maMul cmmul 22597   Mat cmat 22614   maDet cmdat 22791   maAdju cmadu 22839
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-1cn 11173  ax-addcl 11175
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  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 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-nn 12249  df-slot 17264  df-ndx 17276  df-base 17292  df-mat 22615  df-madu 22841
This theorem is used by:  maduval  22845  maduf  22848
  Copyright terms: Public domain W3C validator