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

Theorem scmatval 21876
Description: The set of ๐‘ x ๐‘ scalar matrices over (a ring) ๐‘…. (Contributed by AV, 18-Dec-2019.)
Hypotheses
Ref Expression
scmatval.k ๐พ = (Baseโ€˜๐‘…)
scmatval.a ๐ด = (๐‘ Mat ๐‘…)
scmatval.b ๐ต = (Baseโ€˜๐ด)
scmatval.1 1 = (1rโ€˜๐ด)
scmatval.t ยท = ( ยท๐‘  โ€˜๐ด)
scmatval.s ๐‘† = (๐‘ ScMat ๐‘…)
Assertion
Ref Expression
scmatval ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘† = {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )})
Distinct variable groups:   ๐ต,๐‘š   ๐พ,๐‘   ๐‘,๐‘,๐‘š   ๐‘…,๐‘,๐‘š
Allowed substitution hints:   ๐ด(๐‘š,๐‘)   ๐ต(๐‘)   ๐‘†(๐‘š,๐‘)   ยท (๐‘š,๐‘)   1 (๐‘š,๐‘)   ๐พ(๐‘š)   ๐‘‰(๐‘š,๐‘)

Proof of Theorem scmatval
Dummy variables ๐‘› ๐‘Ÿ ๐‘Ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 scmatval.s . 2 ๐‘† = (๐‘ ScMat ๐‘…)
2 df-scmat 21863 . . . 4 ScMat = (๐‘› โˆˆ Fin, ๐‘Ÿ โˆˆ V โ†ฆ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒ{๐‘š โˆˆ (Baseโ€˜๐‘Ž) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž))})
32a1i 11 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ScMat = (๐‘› โˆˆ Fin, ๐‘Ÿ โˆˆ V โ†ฆ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒ{๐‘š โˆˆ (Baseโ€˜๐‘Ž) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž))}))
4 ovexd 7396 . . . . 5 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ (๐‘› Mat ๐‘Ÿ) โˆˆ V)
5 fveq2 6846 . . . . . . 7 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (Baseโ€˜๐‘Ž) = (Baseโ€˜(๐‘› Mat ๐‘Ÿ)))
6 fveq2 6846 . . . . . . . . . 10 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ ( ยท๐‘  โ€˜๐‘Ž) = ( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ)))
7 eqidd 2734 . . . . . . . . . 10 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ ๐‘ = ๐‘)
8 fveq2 6846 . . . . . . . . . 10 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (1rโ€˜๐‘Ž) = (1rโ€˜(๐‘› Mat ๐‘Ÿ)))
96, 7, 8oveq123d 7382 . . . . . . . . 9 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž)) = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ))))
109eqeq2d 2744 . . . . . . . 8 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž)) โ†” ๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))))
1110rexbidv 3172 . . . . . . 7 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ (โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž)) โ†” โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))))
125, 11rabeqbidv 3423 . . . . . 6 (๐‘Ž = (๐‘› Mat ๐‘Ÿ) โ†’ {๐‘š โˆˆ (Baseโ€˜๐‘Ž) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž))} = {๐‘š โˆˆ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))})
1312adantl 483 . . . . 5 ((((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โˆง ๐‘Ž = (๐‘› Mat ๐‘Ÿ)) โ†’ {๐‘š โˆˆ (Baseโ€˜๐‘Ž) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž))} = {๐‘š โˆˆ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))})
144, 13csbied 3897 . . . 4 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒ{๐‘š โˆˆ (Baseโ€˜๐‘Ž) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž))} = {๐‘š โˆˆ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))})
15 oveq12 7370 . . . . . . . 8 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘› Mat ๐‘Ÿ) = (๐‘ Mat ๐‘…))
1615fveq2d 6850 . . . . . . 7 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) = (Baseโ€˜(๐‘ Mat ๐‘…)))
17 scmatval.b . . . . . . . 8 ๐ต = (Baseโ€˜๐ด)
18 scmatval.a . . . . . . . . 9 ๐ด = (๐‘ Mat ๐‘…)
1918fveq2i 6849 . . . . . . . 8 (Baseโ€˜๐ด) = (Baseโ€˜(๐‘ Mat ๐‘…))
2017, 19eqtri 2761 . . . . . . 7 ๐ต = (Baseโ€˜(๐‘ Mat ๐‘…))
2116, 20eqtr4di 2791 . . . . . 6 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) = ๐ต)
22 fveq2 6846 . . . . . . . . 9 (๐‘Ÿ = ๐‘… โ†’ (Baseโ€˜๐‘Ÿ) = (Baseโ€˜๐‘…))
23 scmatval.k . . . . . . . . 9 ๐พ = (Baseโ€˜๐‘…)
2422, 23eqtr4di 2791 . . . . . . . 8 (๐‘Ÿ = ๐‘… โ†’ (Baseโ€˜๐‘Ÿ) = ๐พ)
2524adantl 483 . . . . . . 7 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (Baseโ€˜๐‘Ÿ) = ๐พ)
2615fveq2d 6850 . . . . . . . . . 10 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ)) = ( ยท๐‘  โ€˜(๐‘ Mat ๐‘…)))
27 scmatval.t . . . . . . . . . . 11 ยท = ( ยท๐‘  โ€˜๐ด)
2818fveq2i 6849 . . . . . . . . . . 11 ( ยท๐‘  โ€˜๐ด) = ( ยท๐‘  โ€˜(๐‘ Mat ๐‘…))
2927, 28eqtri 2761 . . . . . . . . . 10 ยท = ( ยท๐‘  โ€˜(๐‘ Mat ๐‘…))
3026, 29eqtr4di 2791 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ)) = ยท )
31 eqidd 2734 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ ๐‘ = ๐‘)
3215fveq2d 6850 . . . . . . . . . 10 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (1rโ€˜(๐‘› Mat ๐‘Ÿ)) = (1rโ€˜(๐‘ Mat ๐‘…)))
33 scmatval.1 . . . . . . . . . . 11 1 = (1rโ€˜๐ด)
3418fveq2i 6849 . . . . . . . . . . 11 (1rโ€˜๐ด) = (1rโ€˜(๐‘ Mat ๐‘…))
3533, 34eqtri 2761 . . . . . . . . . 10 1 = (1rโ€˜(๐‘ Mat ๐‘…))
3632, 35eqtr4di 2791 . . . . . . . . 9 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (1rโ€˜(๐‘› Mat ๐‘Ÿ)) = 1 )
3730, 31, 36oveq123d 7382 . . . . . . . 8 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ))) = (๐‘ ยท 1 ))
3837eqeq2d 2744 . . . . . . 7 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ))) โ†” ๐‘š = (๐‘ ยท 1 )))
3925, 38rexeqbidv 3319 . . . . . 6 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ (โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ))) โ†” โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )))
4021, 39rabeqbidv 3423 . . . . 5 ((๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…) โ†’ {๐‘š โˆˆ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))} = {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )})
4140adantl 483 . . . 4 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ {๐‘š โˆˆ (Baseโ€˜(๐‘› Mat ๐‘Ÿ)) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜(๐‘› Mat ๐‘Ÿ))(1rโ€˜(๐‘› Mat ๐‘Ÿ)))} = {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )})
4214, 41eqtrd 2773 . . 3 (((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โˆง (๐‘› = ๐‘ โˆง ๐‘Ÿ = ๐‘…)) โ†’ โฆ‹(๐‘› Mat ๐‘Ÿ) / ๐‘ŽโฆŒ{๐‘š โˆˆ (Baseโ€˜๐‘Ž) โˆฃ โˆƒ๐‘ โˆˆ (Baseโ€˜๐‘Ÿ)๐‘š = (๐‘( ยท๐‘  โ€˜๐‘Ž)(1rโ€˜๐‘Ž))} = {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )})
43 simpl 484 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘ โˆˆ Fin)
44 elex 3465 . . . 4 (๐‘… โˆˆ ๐‘‰ โ†’ ๐‘… โˆˆ V)
4544adantl 483 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘… โˆˆ V)
4617fvexi 6860 . . . . 5 ๐ต โˆˆ V
4746rabex 5293 . . . 4 {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )} โˆˆ V
4847a1i 11 . . 3 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )} โˆˆ V)
493, 42, 43, 45, 48ovmpod 7511 . 2 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ (๐‘ ScMat ๐‘…) = {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )})
501, 49eqtrid 2785 1 ((๐‘ โˆˆ Fin โˆง ๐‘… โˆˆ ๐‘‰) โ†’ ๐‘† = {๐‘š โˆˆ ๐ต โˆฃ โˆƒ๐‘ โˆˆ ๐พ ๐‘š = (๐‘ ยท 1 )})
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 397   = wceq 1542   โˆˆ wcel 2107  โˆƒwrex 3070  {crab 3406  Vcvv 3447  โฆ‹csb 3859  โ€˜cfv 6500  (class class class)co 7361   โˆˆ cmpo 7363  Fincfn 8889  Basecbs 17091   ยท๐‘  cvsca 17145  1rcur 19921   Mat cmat 21777   ScMat cscmat 21861
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5260  ax-nul 5267  ax-pr 5388
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3407  df-v 3449  df-sbc 3744  df-csb 3860  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-nul 4287  df-if 4491  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4870  df-br 5110  df-opab 5172  df-id 5535  df-xp 5643  df-rel 5644  df-cnv 5645  df-co 5646  df-dm 5647  df-iota 6452  df-fun 6502  df-fv 6508  df-ov 7364  df-oprab 7365  df-mpo 7366  df-scmat 21863
This theorem is referenced by:  scmatel  21877  scmatmats  21883  scmatlss  21897
  Copyright terms: Public domain W3C validator