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

Theorem scmatval 20678
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 20665 . . . 4 ScMat = (𝑛 ∈ Fin, 𝑟 ∈ V ↦ (𝑛 Mat 𝑟) / 𝑎{𝑚 ∈ (Base‘𝑎) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎))})
32a1i 11 . . 3 ((𝑁 ∈ Fin ∧ 𝑅𝑉) → ScMat = (𝑛 ∈ Fin, 𝑟 ∈ V ↦ (𝑛 Mat 𝑟) / 𝑎{𝑚 ∈ (Base‘𝑎) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎))}))
4 ovexd 6939 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅𝑉) ∧ (𝑛 = 𝑁𝑟 = 𝑅)) → (𝑛 Mat 𝑟) ∈ V)
5 fveq2 6433 . . . . . . 7 (𝑎 = (𝑛 Mat 𝑟) → (Base‘𝑎) = (Base‘(𝑛 Mat 𝑟)))
6 fveq2 6433 . . . . . . . . . 10 (𝑎 = (𝑛 Mat 𝑟) → ( ·𝑠𝑎) = ( ·𝑠 ‘(𝑛 Mat 𝑟)))
7 eqidd 2826 . . . . . . . . . 10 (𝑎 = (𝑛 Mat 𝑟) → 𝑐 = 𝑐)
8 fveq2 6433 . . . . . . . . . 10 (𝑎 = (𝑛 Mat 𝑟) → (1r𝑎) = (1r‘(𝑛 Mat 𝑟)))
96, 7, 8oveq123d 6926 . . . . . . . . 9 (𝑎 = (𝑛 Mat 𝑟) → (𝑐( ·𝑠𝑎)(1r𝑎)) = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟))))
109eqeq2d 2835 . . . . . . . 8 (𝑎 = (𝑛 Mat 𝑟) → (𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎)) ↔ 𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))))
1110rexbidv 3262 . . . . . . 7 (𝑎 = (𝑛 Mat 𝑟) → (∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎)) ↔ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))))
125, 11rabeqbidv 3408 . . . . . 6 (𝑎 = (𝑛 Mat 𝑟) → {𝑚 ∈ (Base‘𝑎) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎))} = {𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))})
1312adantl 475 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅𝑉) ∧ (𝑛 = 𝑁𝑟 = 𝑅)) ∧ 𝑎 = (𝑛 Mat 𝑟)) → {𝑚 ∈ (Base‘𝑎) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎))} = {𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))})
144, 13csbied 3784 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅𝑉) ∧ (𝑛 = 𝑁𝑟 = 𝑅)) → (𝑛 Mat 𝑟) / 𝑎{𝑚 ∈ (Base‘𝑎) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎))} = {𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))})
15 oveq12 6914 . . . . . . . 8 ((𝑛 = 𝑁𝑟 = 𝑅) → (𝑛 Mat 𝑟) = (𝑁 Mat 𝑅))
1615fveq2d 6437 . . . . . . 7 ((𝑛 = 𝑁𝑟 = 𝑅) → (Base‘(𝑛 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑅)))
17 scmatval.b . . . . . . . 8 𝐵 = (Base‘𝐴)
18 scmatval.a . . . . . . . . 9 𝐴 = (𝑁 Mat 𝑅)
1918fveq2i 6436 . . . . . . . 8 (Base‘𝐴) = (Base‘(𝑁 Mat 𝑅))
2017, 19eqtri 2849 . . . . . . 7 𝐵 = (Base‘(𝑁 Mat 𝑅))
2116, 20syl6eqr 2879 . . . . . 6 ((𝑛 = 𝑁𝑟 = 𝑅) → (Base‘(𝑛 Mat 𝑟)) = 𝐵)
22 fveq2 6433 . . . . . . . . 9 (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
23 scmatval.k . . . . . . . . 9 𝐾 = (Base‘𝑅)
2422, 23syl6eqr 2879 . . . . . . . 8 (𝑟 = 𝑅 → (Base‘𝑟) = 𝐾)
2524adantl 475 . . . . . . 7 ((𝑛 = 𝑁𝑟 = 𝑅) → (Base‘𝑟) = 𝐾)
2615fveq2d 6437 . . . . . . . . . 10 ((𝑛 = 𝑁𝑟 = 𝑅) → ( ·𝑠 ‘(𝑛 Mat 𝑟)) = ( ·𝑠 ‘(𝑁 Mat 𝑅)))
27 scmatval.t . . . . . . . . . . 11 · = ( ·𝑠𝐴)
2818fveq2i 6436 . . . . . . . . . . 11 ( ·𝑠𝐴) = ( ·𝑠 ‘(𝑁 Mat 𝑅))
2927, 28eqtri 2849 . . . . . . . . . 10 · = ( ·𝑠 ‘(𝑁 Mat 𝑅))
3026, 29syl6eqr 2879 . . . . . . . . 9 ((𝑛 = 𝑁𝑟 = 𝑅) → ( ·𝑠 ‘(𝑛 Mat 𝑟)) = · )
31 eqidd 2826 . . . . . . . . 9 ((𝑛 = 𝑁𝑟 = 𝑅) → 𝑐 = 𝑐)
3215fveq2d 6437 . . . . . . . . . 10 ((𝑛 = 𝑁𝑟 = 𝑅) → (1r‘(𝑛 Mat 𝑟)) = (1r‘(𝑁 Mat 𝑅)))
33 scmatval.1 . . . . . . . . . . 11 1 = (1r𝐴)
3418fveq2i 6436 . . . . . . . . . . 11 (1r𝐴) = (1r‘(𝑁 Mat 𝑅))
3533, 34eqtri 2849 . . . . . . . . . 10 1 = (1r‘(𝑁 Mat 𝑅))
3632, 35syl6eqr 2879 . . . . . . . . 9 ((𝑛 = 𝑁𝑟 = 𝑅) → (1r‘(𝑛 Mat 𝑟)) = 1 )
3730, 31, 36oveq123d 6926 . . . . . . . 8 ((𝑛 = 𝑁𝑟 = 𝑅) → (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟))) = (𝑐 · 1 ))
3837eqeq2d 2835 . . . . . . 7 ((𝑛 = 𝑁𝑟 = 𝑅) → (𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟))) ↔ 𝑚 = (𝑐 · 1 )))
3925, 38rexeqbidv 3365 . . . . . 6 ((𝑛 = 𝑁𝑟 = 𝑅) → (∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟))) ↔ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )))
4021, 39rabeqbidv 3408 . . . . 5 ((𝑛 = 𝑁𝑟 = 𝑅) → {𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))} = {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )})
4140adantl 475 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅𝑉) ∧ (𝑛 = 𝑁𝑟 = 𝑅)) → {𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠 ‘(𝑛 Mat 𝑟))(1r‘(𝑛 Mat 𝑟)))} = {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )})
4214, 41eqtrd 2861 . . 3 (((𝑁 ∈ Fin ∧ 𝑅𝑉) ∧ (𝑛 = 𝑁𝑟 = 𝑅)) → (𝑛 Mat 𝑟) / 𝑎{𝑚 ∈ (Base‘𝑎) ∣ ∃𝑐 ∈ (Base‘𝑟)𝑚 = (𝑐( ·𝑠𝑎)(1r𝑎))} = {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )})
43 simpl 476 . . 3 ((𝑁 ∈ Fin ∧ 𝑅𝑉) → 𝑁 ∈ Fin)
44 elex 3429 . . . 4 (𝑅𝑉𝑅 ∈ V)
4544adantl 475 . . 3 ((𝑁 ∈ Fin ∧ 𝑅𝑉) → 𝑅 ∈ V)
4617fvexi 6447 . . . . 5 𝐵 ∈ V
4746rabex 5037 . . . 4 {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )} ∈ V
4847a1i 11 . . 3 ((𝑁 ∈ Fin ∧ 𝑅𝑉) → {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )} ∈ V)
493, 42, 43, 45, 48ovmpt2d 7048 . 2 ((𝑁 ∈ Fin ∧ 𝑅𝑉) → (𝑁 ScMat 𝑅) = {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )})
501, 49syl5eq 2873 1 ((𝑁 ∈ Fin ∧ 𝑅𝑉) → 𝑆 = {𝑚𝐵 ∣ ∃𝑐𝐾 𝑚 = (𝑐 · 1 )})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 386   = wceq 1656  wcel 2164  wrex 3118  {crab 3121  Vcvv 3414  csb 3757  cfv 6123  (class class class)co 6905  cmpt2 6907  Fincfn 8222  Basecbs 16222   ·𝑠 cvsca 16309  1rcur 18855   Mat cmat 20580   ScMat cscmat 20663
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1894  ax-4 1908  ax-5 2009  ax-6 2075  ax-7 2112  ax-9 2173  ax-10 2192  ax-11 2207  ax-12 2220  ax-13 2389  ax-ext 2803  ax-sep 5005  ax-nul 5013  ax-pr 5127
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 879  df-3an 1113  df-tru 1660  df-ex 1879  df-nf 1883  df-sb 2068  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ral 3122  df-rex 3123  df-rab 3126  df-v 3416  df-sbc 3663  df-csb 3758  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-nul 4145  df-if 4307  df-sn 4398  df-pr 4400  df-op 4404  df-uni 4659  df-br 4874  df-opab 4936  df-id 5250  df-xp 5348  df-rel 5349  df-cnv 5350  df-co 5351  df-dm 5352  df-iota 6086  df-fun 6125  df-fv 6131  df-ov 6908  df-oprab 6909  df-mpt2 6910  df-scmat 20665
This theorem is referenced by:  scmatel  20679  scmatmats  20685  scmatlss  20699
  Copyright terms: Public domain W3C validator