Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mendval Structured version   Visualization version   GIF version

Theorem mendval 38255
Description: Value of the module endomorphism algebra. (Contributed by Stefan O'Rear, 2-Sep-2015.)
Hypotheses
Ref Expression
mendval.b 𝐵 = (𝑀 LMHom 𝑀)
mendval.p + = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑓 (+g𝑀)𝑦))
mendval.t × = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑦))
mendval.s 𝑆 = (Scalar‘𝑀)
mendval.v · = (𝑥 ∈ (Base‘𝑆), 𝑦𝐵 ↦ (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦))
Assertion
Ref Expression
mendval (𝑀𝑋 → (MEndo‘𝑀) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}))
Distinct variable groups:   𝑥,𝑦,𝐵   𝑥,𝑀,𝑦
Allowed substitution hints:   + (𝑥,𝑦)   𝑆(𝑥,𝑦)   · (𝑥,𝑦)   × (𝑥,𝑦)   𝑋(𝑥,𝑦)

Proof of Theorem mendval
Dummy variables 𝑚 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elex 3352 . 2 (𝑀𝑋𝑀 ∈ V)
2 oveq12 6822 . . . . . . 7 ((𝑚 = 𝑀𝑚 = 𝑀) → (𝑚 LMHom 𝑚) = (𝑀 LMHom 𝑀))
32anidms 680 . . . . . 6 (𝑚 = 𝑀 → (𝑚 LMHom 𝑚) = (𝑀 LMHom 𝑀))
4 mendval.b . . . . . 6 𝐵 = (𝑀 LMHom 𝑀)
53, 4syl6eqr 2812 . . . . 5 (𝑚 = 𝑀 → (𝑚 LMHom 𝑚) = 𝐵)
65csbeq1d 3681 . . . 4 (𝑚 = 𝑀(𝑚 LMHom 𝑚) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}) = 𝐵 / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}))
7 ovex 6841 . . . . . 6 (𝑚 LMHom 𝑚) ∈ V
85, 7syl6eqelr 2848 . . . . 5 (𝑚 = 𝑀𝐵 ∈ V)
9 simpr 479 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → 𝑏 = 𝐵)
109opeq2d 4560 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(Base‘ndx), 𝑏⟩ = ⟨(Base‘ndx), 𝐵⟩)
11 fveq2 6352 . . . . . . . . . . . 12 (𝑚 = 𝑀 → (+g𝑚) = (+g𝑀))
12 ofeq 7064 . . . . . . . . . . . 12 ((+g𝑚) = (+g𝑀) → ∘𝑓 (+g𝑚) = ∘𝑓 (+g𝑀))
1311, 12syl 17 . . . . . . . . . . 11 (𝑚 = 𝑀 → ∘𝑓 (+g𝑚) = ∘𝑓 (+g𝑀))
1413oveqdr 6837 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑓 (+g𝑚)𝑦) = (𝑥𝑓 (+g𝑀)𝑦))
159, 9, 14mpt2eq123dv 6882 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦)) = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑓 (+g𝑀)𝑦)))
16 mendval.p . . . . . . . . 9 + = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑓 (+g𝑀)𝑦))
1715, 16syl6eqr 2812 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦)) = + )
1817opeq2d 4560 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩ = ⟨(+g‘ndx), + ⟩)
19 eqidd 2761 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑦) = (𝑥𝑦))
209, 9, 19mpt2eq123dv 6882 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦)) = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑦)))
21 mendval.t . . . . . . . . 9 × = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑦))
2220, 21syl6eqr 2812 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦)) = × )
2322opeq2d 4560 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩ = ⟨(.r‘ndx), × ⟩)
2410, 18, 23tpeq123d 4427 . . . . . 6 ((𝑚 = 𝑀𝑏 = 𝐵) → {⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩})
25 fveq2 6352 . . . . . . . . . 10 (𝑚 = 𝑀 → (Scalar‘𝑚) = (Scalar‘𝑀))
2625adantr 472 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (Scalar‘𝑚) = (Scalar‘𝑀))
27 mendval.s . . . . . . . . 9 𝑆 = (Scalar‘𝑀)
2826, 27syl6eqr 2812 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (Scalar‘𝑚) = 𝑆)
2928opeq2d 4560 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(Scalar‘ndx), (Scalar‘𝑚)⟩ = ⟨(Scalar‘ndx), 𝑆⟩)
3028fveq2d 6356 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (Base‘(Scalar‘𝑚)) = (Base‘𝑆))
31 fveq2 6352 . . . . . . . . . . . . 13 (𝑚 = 𝑀 → ( ·𝑠𝑚) = ( ·𝑠𝑀))
3231adantr 472 . . . . . . . . . . . 12 ((𝑚 = 𝑀𝑏 = 𝐵) → ( ·𝑠𝑚) = ( ·𝑠𝑀))
33 ofeq 7064 . . . . . . . . . . . 12 (( ·𝑠𝑚) = ( ·𝑠𝑀) → ∘𝑓 ( ·𝑠𝑚) = ∘𝑓 ( ·𝑠𝑀))
3432, 33syl 17 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑏 = 𝐵) → ∘𝑓 ( ·𝑠𝑚) = ∘𝑓 ( ·𝑠𝑀))
35 fveq2 6352 . . . . . . . . . . . . 13 (𝑚 = 𝑀 → (Base‘𝑚) = (Base‘𝑀))
3635adantr 472 . . . . . . . . . . . 12 ((𝑚 = 𝑀𝑏 = 𝐵) → (Base‘𝑚) = (Base‘𝑀))
3736xpeq1d 5295 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑏 = 𝐵) → ((Base‘𝑚) × {𝑥}) = ((Base‘𝑀) × {𝑥}))
38 eqidd 2761 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑏 = 𝐵) → 𝑦 = 𝑦)
3934, 37, 38oveq123d 6834 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦) = (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦))
4030, 9, 39mpt2eq123dv 6882 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦)) = (𝑥 ∈ (Base‘𝑆), 𝑦𝐵 ↦ (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦)))
41 mendval.v . . . . . . . . 9 · = (𝑥 ∈ (Base‘𝑆), 𝑦𝐵 ↦ (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦))
4240, 41syl6eqr 2812 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦)) = · )
4342opeq2d 4560 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩ = ⟨( ·𝑠 ‘ndx), · ⟩)
4429, 43preq12d 4420 . . . . . 6 ((𝑚 = 𝑀𝑏 = 𝐵) → {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩} = {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩})
4524, 44uneq12d 3911 . . . . 5 ((𝑚 = 𝑀𝑏 = 𝐵) → ({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}))
468, 45csbied 3701 . . . 4 (𝑚 = 𝑀𝐵 / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}))
476, 46eqtrd 2794 . . 3 (𝑚 = 𝑀(𝑚 LMHom 𝑚) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}))
48 df-mend 38248 . . 3 MEndo = (𝑚 ∈ V ↦ (𝑚 LMHom 𝑚) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}))
49 tpex 7122 . . . 4 {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∈ V
50 prex 5058 . . . 4 {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩} ∈ V
5149, 50unex 7121 . . 3 ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}) ∈ V
5247, 48, 51fvmpt 6444 . 2 (𝑀 ∈ V → (MEndo‘𝑀) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}))
531, 52syl 17 1 (𝑀𝑋 → (MEndo‘𝑀) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383   = wceq 1632  wcel 2139  Vcvv 3340  csb 3674  cun 3713  {csn 4321  {cpr 4323  {ctp 4325  cop 4327   × cxp 5264  ccom 5270  cfv 6049  (class class class)co 6813  cmpt2 6815  𝑓 cof 7060  ndxcnx 16056  Basecbs 16059  +gcplusg 16143  .rcmulr 16144  Scalarcsca 16146   ·𝑠 cvsca 16147   LMHom clmhm 19221  MEndocmend 38247
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-sep 4933  ax-nul 4941  ax-pr 5055  ax-un 7114
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ral 3055  df-rex 3056  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-nul 4059  df-if 4231  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-br 4805  df-opab 4865  df-mpt 4882  df-id 5174  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-iota 6012  df-fun 6051  df-fv 6057  df-ov 6816  df-oprab 6817  df-mpt2 6818  df-of 7062  df-mend 38248
This theorem is referenced by:  mendbas  38256  mendplusgfval  38257  mendmulrfval  38259  mendsca  38261  mendvscafval  38262
  Copyright terms: Public domain W3C validator