Theorem marepvfval 22605

Description: First substitution for the definition of the function replacing a column of a matrix by a vector. (Contributed by AV, 14-Feb-2019.) (Revised by AV, 26-Feb-2019.) (Proof shortened by AV, 2-Mar-2024.)

Hypotheses

Ref	Expression
marepvfval.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
marepvfval.b	⊢ 𝐵 = (Base‘𝐴)
marepvfval.q	⊢ 𝑄 = (𝑁 matRepV 𝑅)
marepvfval.v	⊢ 𝑉 = ((Base‘𝑅) ↑m 𝑁)

Assertion

Ref	Expression
marepvfval	⊢ 𝑄 = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)))))

Distinct variable groups:   𝐵,𝑚,𝑣   𝑖,𝑁,𝑗,𝑘,𝑚,𝑣   𝑅,𝑖,𝑗,𝑘,𝑚,𝑣   𝑚,𝑉,𝑣

Allowed substitution hints:   𝐴(𝑣,𝑖,𝑗,𝑘,𝑚)   𝐵(𝑖,𝑗,𝑘)   𝑄(𝑣,𝑖,𝑗,𝑘,𝑚)   𝑉(𝑖,𝑗,𝑘)

Proof of Theorem marepvfval

Dummy variables 𝑛 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		marepvfval.q	. 2 ⊢ 𝑄 = (𝑁 matRepV 𝑅)
2		marepvfval.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐴)
3	2	fvexi 6877	. . . . 5 ⊢ 𝐵 ∈ V
4		marepvfval.v	. . . . . . 7 ⊢ 𝑉 = ((Base‘𝑅) ↑m 𝑁)
5	4	ovexi 7426	. . . . . 6 ⊢ 𝑉 ∈ V
6	5	a1i 11	. . . . 5 ⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝑉 ∈ V)
7		mpoexga 8054	. . . . 5 ⊢ ((𝐵 ∈ V ∧ 𝑉 ∈ V) → (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))) ∈ V)
8	3, 6, 7	sylancr 596	. . . 4 ⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))) ∈ V)
9		oveq12 7401	. . . . . . . . 9 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (𝑛 Mat 𝑟) = (𝑁 Mat 𝑅))
10		marepvfval.a	. . . . . . . . 9 ⊢ 𝐴 = (𝑁 Mat 𝑅)
11	9, 10	eqtr4di 2814	. . . . . . . 8 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (𝑛 Mat 𝑟) = 𝐴)
12	11	fveq2d 6867	. . . . . . 7 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (Base‘(𝑛 Mat 𝑟)) = (Base‘𝐴))
13	12, 2	eqtr4di 2814	. . . . . 6 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (Base‘(𝑛 Mat 𝑟)) = 𝐵)
14		fveq2 6863	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
15	14	adantl 485	. . . . . . . 8 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (Base‘𝑟) = (Base‘𝑅))
16		simpl 486	. . . . . . . 8 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → 𝑛 = 𝑁)
17	15, 16	oveq12d 7410	. . . . . . 7 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → ((Base‘𝑟) ↑m 𝑛) = ((Base‘𝑅) ↑m 𝑁))
18	17, 4	eqtr4di 2814	. . . . . 6 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → ((Base‘𝑟) ↑m 𝑛) = 𝑉)
19		eqidd 2762	. . . . . . . 8 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)) = if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)))
20	16, 16, 19	mpoeq123dv 7467	. . . . . . 7 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))
21	16, 20	mpteq12dv 5186	. . . . . 6 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (𝑘 ∈ 𝑛 ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)))) = (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)))))
22	13, 18, 21	mpoeq123dv 7467	. . . . 5 ⊢ ((𝑛 = 𝑁 ∧ 𝑟 = 𝑅) → (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)), 𝑣 ∈ ((Base‘𝑟) ↑m 𝑛) ↦ (𝑘 ∈ 𝑛 ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))) = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))))
23		df-marepv 22599	. . . . 5 ⊢ matRepV = (𝑛 ∈ V, 𝑟 ∈ V ↦ (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)), 𝑣 ∈ ((Base‘𝑟) ↑m 𝑛) ↦ (𝑘 ∈ 𝑛 ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))))
24	22, 23	ovmpoga 7546	. . . 4 ⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V ∧ (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))) ∈ V) → (𝑁 matRepV 𝑅) = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))))
25	8, 24	mpd3an3 1482	. . 3 ⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 matRepV 𝑅) = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))))
26	23	mpondm0 7632	. . . 4 ⊢ (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 matRepV 𝑅) = ∅)
27	10	fveq2i 6866	. . . . . . . 8 ⊢ (Base‘𝐴) = (Base‘(𝑁 Mat 𝑅))
28	2, 27	eqtri 2784	. . . . . . 7 ⊢ 𝐵 = (Base‘(𝑁 Mat 𝑅))
29		matbas0pc 22449	. . . . . . 7 ⊢ (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (Base‘(𝑁 Mat 𝑅)) = ∅)
30	28, 29	eqtrid 2808	. . . . . 6 ⊢ (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐵 = ∅)
31	30	orcd 884	. . . . 5 ⊢ (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝐵 = ∅ ∨ 𝑉 = ∅))
32		0mpo0 7475	. . . . 5 ⊢ ((𝐵 = ∅ ∨ 𝑉 = ∅) → (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))) = ∅)
33	31, 32	syl 17	. . . 4 ⊢ (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))) = ∅)
34	26, 33	eqtr4d 2799	. . 3 ⊢ (¬ (𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 matRepV 𝑅) = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗))))))
35	25, 34	pm2.61i 183	. 2 ⊢ (𝑁 matRepV 𝑅) = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)))))
36	1, 35	eqtri 2784	1 ⊢ 𝑄 = (𝑚 ∈ 𝐵, 𝑣 ∈ 𝑉 ↦ (𝑘 ∈ 𝑁 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑗 = 𝑘, (𝑣‘𝑖), (𝑖𝑚𝑗)))))

Syntax hints:  ¬ wn 3   ∧ wa 399   ∨ wo 858   = wceq 1559   ∈ wcel 2141  Vcvv 3453  ∅c0 4285  ifcif 4479   ↦ cmpt 5180  ‘cfv 6517  (class class class)co 7392   ∈ cmpo 7394   ↑_m cmap 8803  Basecbs 17228   Mat cmat 22447   matRepV cmatrepV 22597

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 5226  ax-sep 5245  ax-nul 5255  ax-pow 5321  ax-pr 5389  ax-un 7714  ax-cnex 11126  ax-1cn 11128  ax-addcl 11130

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 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-iun 4950  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5540  df-eprel 5545  df-po 5553  df-so 5554  df-fr 5598  df-we 5600  df-xp 5651  df-rel 5652  df-cnv 5653  df-co 5654  df-dm 5655  df-rn 5656  df-res 5657  df-ima 5658  df-pred 6284  df-ord 6345  df-on 6346  df-lim 6347  df-suc 6348  df-iota 6473  df-fun 6519  df-fn 6520  df-f 6521  df-f1 6522  df-fo 6523  df-f1o 6524  df-fv 6525  df-ov 7395  df-oprab 7396  df-mpo 7397  df-om 7843  df-1st 7966  df-2nd 7967  df-frecs 8257  df-wrecs 8288  df-recs 8337  df-rdg 8376  df-nn 12208  df-slot 17201  df-ndx 17213  df-base 17229  df-mat 22448  df-marepv 22599

This theorem is referenced by:  marepvval0  22606