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

Theorem madufval 21784
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 7294 . . . . . 6 (𝑛 = 𝑁 → (Base‘(𝑛 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑟)))
3 id 22 . . . . . . 7 (𝑛 = 𝑁𝑛 = 𝑁)
4 oveq1 7278 . . . . . . . 8 (𝑛 = 𝑁 → (𝑛 maDet 𝑟) = (𝑁 maDet 𝑟))
5 eqidd 2741 . . . . . . . . 9 (𝑛 = 𝑁 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))
63, 3, 5mpoeq123dv 7344 . . . . . . . 8 (𝑛 = 𝑁 → (𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))
74, 6fveq12d 6778 . . . . . . 7 (𝑛 = 𝑁 → ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))
83, 3, 7mpoeq123dv 7344 . . . . . 6 (𝑛 = 𝑁 → (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))))
92, 8mpteq12dv 5170 . . . . 5 (𝑛 = 𝑁 → (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))))
10 oveq2 7279 . . . . . . 7 (𝑟 = 𝑅 → (𝑁 Mat 𝑟) = (𝑁 Mat 𝑅))
1110fveq2d 6775 . . . . . 6 (𝑟 = 𝑅 → (Base‘(𝑁 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑅)))
12 oveq2 7279 . . . . . . . 8 (𝑟 = 𝑅 → (𝑁 maDet 𝑟) = (𝑁 maDet 𝑅))
13 fveq2 6771 . . . . . . . . . . 11 (𝑟 = 𝑅 → (1r𝑟) = (1r𝑅))
14 fveq2 6771 . . . . . . . . . . 11 (𝑟 = 𝑅 → (0g𝑟) = (0g𝑅))
1513, 14ifeq12d 4486 . . . . . . . . . 10 (𝑟 = 𝑅 → if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)) = if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)))
1615ifeq1d 4484 . . . . . . . . 9 (𝑟 = 𝑅 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
1716mpoeq3dv 7348 . . . . . . . 8 (𝑟 = 𝑅 → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))
1812, 17fveq12d 6778 . . . . . . 7 (𝑟 = 𝑅 → ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
1918mpoeq3dv 7348 . . . . . 6 (𝑟 = 𝑅 → (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))))
2011, 19mpteq12dv 5170 . . . . 5 (𝑟 = 𝑅 → (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))))
21 df-madu 21781 . . . . 5 maAdju = (𝑛 ∈ V, 𝑟 ∈ V ↦ (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))))
22 fvex 6784 . . . . . 6 (Base‘(𝑁 Mat 𝑅)) ∈ V
2322mptex 7096 . . . . 5 (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))) ∈ V
249, 20, 21, 23ovmpo 7427 . . . 4 ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))))
25 madufval.b . . . . . 6 𝐵 = (Base‘𝐴)
26 madufval.a . . . . . . 7 𝐴 = (𝑁 Mat 𝑅)
2726fveq2i 6774 . . . . . 6 (Base‘𝐴) = (Base‘(𝑁 Mat 𝑅))
2825, 27eqtri 2768 . . . . 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 4486 . . . . . . . . . 10 ((𝑘𝑁𝑙𝑁) → if(𝑙 = 𝑖, 1 , 0 ) = if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)))
3534ifeq1d 4484 . . . . . . . . 9 ((𝑘𝑁𝑙𝑁) → if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
3635mpoeq3ia 7347 . . . . . . . 8 (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
3729, 36fveq12i 6777 . . . . . . 7 (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))
3837a1i 11 . . . . . 6 ((𝑖𝑁𝑗𝑁) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
3938mpoeq3ia 7347 . . . . 5 (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
4028, 39mpteq12i 5185 . . . 4 (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))))
4124, 40eqtr4di 2798 . . 3 ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
4221reldmmpo 7402 . . . . 5 Rel dom maAdju
4342ovprc 7309 . . . 4 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = ∅)
44 df-mat 21553 . . . . . . . . . . 11 Mat = (𝑛 ∈ Fin, 𝑟 ∈ V ↦ ((𝑟 freeLMod (𝑛 × 𝑛)) sSet ⟨(.r‘ndx), (𝑟 maMul ⟨𝑛, 𝑛, 𝑛⟩)⟩))
4544reldmmpo 7402 . . . . . . . . . 10 Rel dom Mat
4645ovprc 7309 . . . . . . . . 9 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 Mat 𝑅) = ∅)
4726, 46eqtrid 2792 . . . . . . . 8 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐴 = ∅)
4847fveq2d 6775 . . . . . . 7 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (Base‘𝐴) = (Base‘∅))
49 base0 16915 . . . . . . 7 ∅ = (Base‘∅)
5048, 25, 493eqtr4g 2805 . . . . . 6 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐵 = ∅)
5150mpteq1d 5174 . . . . 5 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ ∅ ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
52 mpt0 6573 . . . . 5 (𝑚 ∈ ∅ ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅
5351, 52eqtrdi 2796 . . . 4 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅)
5443, 53eqtr4d 2783 . . 3 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
5541, 54pm2.61i 182 . 2 (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
561, 55eqtri 2768 1 𝐽 = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wa 396   = wceq 1542  wcel 2110  Vcvv 3431  c0 4262  ifcif 4465  cop 4573  cotp 4575  cmpt 5162   × cxp 5588  cfv 6432  (class class class)co 7271  cmpo 7273  Fincfn 8716   sSet csts 16862  ndxcnx 16892  Basecbs 16910  .rcmulr 16961  0gc0g 17148  1rcur 19735   freeLMod cfrlm 20951   maMul cmmul 21530   Mat cmat 21552   maDet cmdat 21731   maAdju cmadu 21779
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7582  ax-cnex 10928  ax-1cn 10930  ax-addcl 10932
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-pss 3911  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-br 5080  df-opab 5142  df-mpt 5163  df-tr 5197  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6201  df-ord 6268  df-on 6269  df-lim 6270  df-suc 6271  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-ov 7274  df-oprab 7275  df-mpo 7276  df-om 7707  df-2nd 7825  df-frecs 8088  df-wrecs 8119  df-recs 8193  df-rdg 8232  df-nn 11974  df-slot 16881  df-ndx 16893  df-base 16911  df-mat 21553  df-madu 21781
This theorem is referenced by:  maduval  21785  maduf  21788
  Copyright terms: Public domain W3C validator