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

Theorem madufval 22685
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 7414 . . . . . 6 (𝑛 = 𝑁 → (Base‘(𝑛 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑟)))
3 id 22 . . . . . . 7 (𝑛 = 𝑁𝑛 = 𝑁)
4 oveq1 7398 . . . . . . . 8 (𝑛 = 𝑁 → (𝑛 maDet 𝑟) = (𝑁 maDet 𝑟))
5 eqidd 2762 . . . . . . . . 9 (𝑛 = 𝑁 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))
63, 3, 5mpoeq123dv 7466 . . . . . . . 8 (𝑛 = 𝑁 → (𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))
74, 6fveq12d 6869 . . . . . . 7 (𝑛 = 𝑁 → ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))
83, 3, 7mpoeq123dv 7466 . . . . . 6 (𝑛 = 𝑁 → (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))))
92, 8mpteq12dv 5184 . . . . 5 (𝑛 = 𝑁 → (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))))
10 oveq2 7399 . . . . . . 7 (𝑟 = 𝑅 → (𝑁 Mat 𝑟) = (𝑁 Mat 𝑅))
1110fveq2d 6866 . . . . . 6 (𝑟 = 𝑅 → (Base‘(𝑁 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑅)))
12 oveq2 7399 . . . . . . . 8 (𝑟 = 𝑅 → (𝑁 maDet 𝑟) = (𝑁 maDet 𝑅))
13 fveq2 6862 . . . . . . . . . . 11 (𝑟 = 𝑅 → (1r𝑟) = (1r𝑅))
14 fveq2 6862 . . . . . . . . . . 11 (𝑟 = 𝑅 → (0g𝑟) = (0g𝑅))
1513, 14ifeq12d 4499 . . . . . . . . . 10 (𝑟 = 𝑅 → if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)) = if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)))
1615ifeq1d 4497 . . . . . . . . 9 (𝑟 = 𝑅 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
1716mpoeq3dv 7470 . . . . . . . 8 (𝑟 = 𝑅 → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))
1812, 17fveq12d 6869 . . . . . . 7 (𝑟 = 𝑅 → ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
1918mpoeq3dv 7470 . . . . . 6 (𝑟 = 𝑅 → (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))))
2011, 19mpteq12dv 5184 . . . . 5 (𝑟 = 𝑅 → (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))))
21 df-madu 22682 . . . . 5 maAdju = (𝑛 ∈ V, 𝑟 ∈ V ↦ (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖𝑛, 𝑗𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘𝑛, 𝑙𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑟), (0g𝑟)), (𝑘𝑚𝑙)))))))
22 fvex 6875 . . . . . 6 (Base‘(𝑁 Mat 𝑅)) ∈ V
2322mptex 7202 . . . . 5 (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))) ∈ V
249, 20, 21, 23ovmpo 7551 . . . 4 ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))))
25 madufval.b . . . . . 6 𝐵 = (Base‘𝐴)
26 madufval.a . . . . . . 7 𝐴 = (𝑁 Mat 𝑅)
2726fveq2i 6865 . . . . . 6 (Base‘𝐴) = (Base‘(𝑁 Mat 𝑅))
2825, 27eqtri 2784 . . . . 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 4499 . . . . . . . . . 10 ((𝑘𝑁𝑙𝑁) → if(𝑙 = 𝑖, 1 , 0 ) = if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)))
3534ifeq1d 4497 . . . . . . . . 9 ((𝑘𝑁𝑙𝑁) → if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
3635mpoeq3ia 7469 . . . . . . . 8 (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))
3729, 36fveq12i 6868 . . . . . . 7 (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))
3837a1i 11 . . . . . 6 ((𝑖𝑁𝑗𝑁) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
3938mpoeq3ia 7469 . . . . 5 (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))) = (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙)))))
4028, 39mpteq12i 5194 . . . 4 (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖𝑁, 𝑗𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r𝑅), (0g𝑅)), (𝑘𝑚𝑙))))))
4124, 40eqtr4di 2814 . . 3 ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
4221reldmmpo 7525 . . . . 5 Rel dom maAdju
4342ovprc 7429 . . . 4 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = ∅)
44 df-mat 22456 . . . . . . . . . . 11 Mat = (𝑛 ∈ Fin, 𝑟 ∈ V ↦ ((𝑟 freeLMod (𝑛 × 𝑛)) sSet ⟨(.r‘ndx), (𝑟 maMul ⟨𝑛, 𝑛, 𝑛⟩)⟩))
4544reldmmpo 7525 . . . . . . . . . 10 Rel dom Mat
4645ovprc 7429 . . . . . . . . 9 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 Mat 𝑅) = ∅)
4726, 46eqtrid 2808 . . . . . . . 8 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐴 = ∅)
4847fveq2d 6866 . . . . . . 7 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (Base‘𝐴) = (Base‘∅))
49 base0 17241 . . . . . . 7 ∅ = (Base‘∅)
5048, 25, 493eqtr4g 2821 . . . . . 6 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐵 = ∅)
5150mpteq1d 5187 . . . . 5 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ ∅ ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
52 mpt0 6658 . . . . 5 (𝑚 ∈ ∅ ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅
5351, 52eqtrdi 2812 . . . 4 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅)
5443, 53eqtr4d 2799 . . 3 (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))))
5541, 54pm2.61i 183 . 2 (𝑁 maAdju 𝑅) = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
561, 55eqtri 2784 1 𝐽 = (𝑚𝐵 ↦ (𝑖𝑁, 𝑗𝑁 ↦ (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wa 399   = wceq 1559  wcel 2141  Vcvv 3453  c0 4283  ifcif 4477  cop 4585  cotp 4587  cmpt 5178   × cxp 5641  cfv 6516  (class class class)co 7391  cmpo 7393  Fincfn 8921   sSet csts 17190  ndxcnx 17220  Basecbs 17236  .rcmulr 17278  0gc0g 17459  1rcur 20218   freeLMod cfrlm 21786   maMul cmmul 22438   Mat cmat 22455   maDet cmdat 22632   maAdju cmadu 22680
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713  ax-cnex 11123  ax-1cn 11125  ax-addcl 11127
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6283  df-ord 6344  df-on 6345  df-lim 6346  df-suc 6347  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-ov 7394  df-oprab 7395  df-mpo 7396  df-om 7842  df-2nd 7966  df-frecs 8256  df-wrecs 8287  df-recs 8336  df-rdg 8375  df-nn 12205  df-slot 17209  df-ndx 17221  df-base 17237  df-mat 22456  df-madu 22682
This theorem is referenced by:  maduval  22686  maduf  22689
  Copyright terms: Public domain W3C validator