Theorem maduval 22548

Description: Second 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
maduval	⊢ (𝑀 ∈ 𝐵 → (𝐽‘𝑀) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))))

Distinct variable groups:   𝑖,𝑁,𝑗,𝑘,𝑙   𝑅,𝑖,𝑗,𝑘,𝑙   𝑖,𝑀,𝑗,𝑘,𝑙

Allowed substitution hints:   𝐴(𝑖,𝑗,𝑘,𝑙)   𝐵(𝑖,𝑗,𝑘,𝑙)   𝐷(𝑖,𝑗,𝑘,𝑙)   1 (𝑖,𝑗,𝑘,𝑙)   𝐽(𝑖,𝑗,𝑘,𝑙)   0 (𝑖,𝑗,𝑘,𝑙)

Proof of Theorem maduval

Dummy variable 𝑚 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		madufval.a	. . . . 5 ⊢ 𝐴 = (𝑁 Mat 𝑅)
2		madufval.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐴)
3	1, 2	matrcl 22322	. . . 4 ⊢ (𝑀 ∈ 𝐵 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V))
4	3	simpld 494	. . 3 ⊢ (𝑀 ∈ 𝐵 → 𝑁 ∈ Fin)
5		mpoexga 8004	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑁 ∈ Fin) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))) ∈ V)
6	4, 4, 5	syl2anc 584	. 2 ⊢ (𝑀 ∈ 𝐵 → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))) ∈ V)
7		oveq 7347	. . . . . . . 8 ⊢ (𝑚 = 𝑀 → (𝑘𝑚𝑙) = (𝑘𝑀𝑙))
8	7	ifeq2d 4491	. . . . . . 7 ⊢ (𝑚 = 𝑀 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙)))
9	8	mpoeq3dv 7420	. . . . . 6 ⊢ (𝑚 = 𝑀 → (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))
10	9	3ad2ant1 1133	. . . . 5 ⊢ ((𝑚 = 𝑀 ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))
11	10	fveq2d 6821	. . . 4 ⊢ ((𝑚 = 𝑀 ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙)))))
12	11	mpoeq3dva 7418	. . 3 ⊢ (𝑚 = 𝑀 → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))))
13		madufval.d	. . . 4 ⊢ 𝐷 = (𝑁 maDet 𝑅)
14		madufval.j	. . . 4 ⊢ 𝐽 = (𝑁 maAdju 𝑅)
15		madufval.o	. . . 4 ⊢ 1 = (1r‘𝑅)
16		madufval.z	. . . 4 ⊢ 0 = (0g‘𝑅)
17	1, 13, 14, 2, 15, 16	madufval 22547	. . 3 ⊢ 𝐽 = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))
18	12, 17	fvmptg 6922	. 2 ⊢ ((𝑀 ∈ 𝐵 ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))) ∈ V) → (𝐽‘𝑀) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))))
19	6, 18	mpdan 687	1 ⊢ (𝑀 ∈ 𝐵 → (𝐽‘𝑀) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑀𝑙))))))

Syntax hints:   → wi 4   ∧ w3a 1086   = wceq 1541   ∈ wcel 2111  Vcvv 3436  ifcif 4470  ‘cfv 6476  (class class class)co 7341   ∈ cmpo 7343  Fincfn 8864  Basecbs 17115  0_gc0g 17338  1_rcur 20094   Mat cmat 22317   maDet cmdat 22494   maAdju cmadu 22542

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-rep 5212  ax-sep 5229  ax-nul 5239  ax-pow 5298  ax-pr 5365  ax-un 7663  ax-cnex 11057  ax-1cn 11059  ax-addcl 11061

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3917  df-nul 4279  df-if 4471  df-pw 4547  df-sn 4572  df-pr 4574  df-op 4578  df-uni 4855  df-iun 4938  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5506  df-eprel 5511  df-po 5519  df-so 5520  df-fr 5564  df-we 5566  df-xp 5617  df-rel 5618  df-cnv 5619  df-co 5620  df-dm 5621  df-rn 5622  df-res 5623  df-ima 5624  df-pred 6243  df-ord 6304  df-on 6305  df-lim 6306  df-suc 6307  df-iota 6432  df-fun 6478  df-fn 6479  df-f 6480  df-f1 6481  df-fo 6482  df-f1o 6483  df-fv 6484  df-ov 7344  df-oprab 7345  df-mpo 7346  df-om 7792  df-1st 7916  df-2nd 7917  df-frecs 8206  df-wrecs 8237  df-recs 8286  df-rdg 8324  df-nn 12121  df-slot 17088  df-ndx 17100  df-base 17116  df-mat 22318  df-madu 22544

This theorem is referenced by:  maducoeval  22549