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 38589
 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 3429 . 2 (𝑀𝑋𝑀 ∈ V)
2 oveq12 6914 . . . . . . 7 ((𝑚 = 𝑀𝑚 = 𝑀) → (𝑚 LMHom 𝑚) = (𝑀 LMHom 𝑀))
32anidms 562 . . . . . 6 (𝑚 = 𝑀 → (𝑚 LMHom 𝑚) = (𝑀 LMHom 𝑀))
4 mendval.b . . . . . 6 𝐵 = (𝑀 LMHom 𝑀)
53, 4syl6eqr 2879 . . . . 5 (𝑚 = 𝑀 → (𝑚 LMHom 𝑚) = 𝐵)
65csbeq1d 3764 . . . 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 6937 . . . . . 6 (𝑚 LMHom 𝑚) ∈ V
85, 7syl6eqelr 2915 . . . . 5 (𝑚 = 𝑀𝐵 ∈ V)
9 simpr 479 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → 𝑏 = 𝐵)
109opeq2d 4630 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(Base‘ndx), 𝑏⟩ = ⟨(Base‘ndx), 𝐵⟩)
11 fveq2 6433 . . . . . . . . . . . 12 (𝑚 = 𝑀 → (+g𝑚) = (+g𝑀))
12 ofeq 7159 . . . . . . . . . . . 12 ((+g𝑚) = (+g𝑀) → ∘𝑓 (+g𝑚) = ∘𝑓 (+g𝑀))
1311, 12syl 17 . . . . . . . . . . 11 (𝑚 = 𝑀 → ∘𝑓 (+g𝑚) = ∘𝑓 (+g𝑀))
1413oveqdr 6933 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑓 (+g𝑚)𝑦) = (𝑥𝑓 (+g𝑀)𝑦))
159, 9, 14mpt2eq123dv 6977 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦)) = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑓 (+g𝑀)𝑦)))
16 mendval.p . . . . . . . . 9 + = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑓 (+g𝑀)𝑦))
1715, 16syl6eqr 2879 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦)) = + )
1817opeq2d 4630 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩ = ⟨(+g‘ndx), + ⟩)
19 eqidd 2826 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑦) = (𝑥𝑦))
209, 9, 19mpt2eq123dv 6977 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦)) = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑦)))
21 mendval.t . . . . . . . . 9 × = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥𝑦))
2220, 21syl6eqr 2879 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦)) = × )
2322opeq2d 4630 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩ = ⟨(.r‘ndx), × ⟩)
2410, 18, 23tpeq123d 4501 . . . . . 6 ((𝑚 = 𝑀𝑏 = 𝐵) → {⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩})
25 fveq2 6433 . . . . . . . . . 10 (𝑚 = 𝑀 → (Scalar‘𝑚) = (Scalar‘𝑀))
2625adantr 474 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (Scalar‘𝑚) = (Scalar‘𝑀))
27 mendval.s . . . . . . . . 9 𝑆 = (Scalar‘𝑀)
2826, 27syl6eqr 2879 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (Scalar‘𝑚) = 𝑆)
2928opeq2d 4630 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨(Scalar‘ndx), (Scalar‘𝑚)⟩ = ⟨(Scalar‘ndx), 𝑆⟩)
3028fveq2d 6437 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (Base‘(Scalar‘𝑚)) = (Base‘𝑆))
31 fveq2 6433 . . . . . . . . . . . . 13 (𝑚 = 𝑀 → ( ·𝑠𝑚) = ( ·𝑠𝑀))
3231adantr 474 . . . . . . . . . . . 12 ((𝑚 = 𝑀𝑏 = 𝐵) → ( ·𝑠𝑚) = ( ·𝑠𝑀))
33 ofeq 7159 . . . . . . . . . . . 12 (( ·𝑠𝑚) = ( ·𝑠𝑀) → ∘𝑓 ( ·𝑠𝑚) = ∘𝑓 ( ·𝑠𝑀))
3432, 33syl 17 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑏 = 𝐵) → ∘𝑓 ( ·𝑠𝑚) = ∘𝑓 ( ·𝑠𝑀))
35 fveq2 6433 . . . . . . . . . . . . 13 (𝑚 = 𝑀 → (Base‘𝑚) = (Base‘𝑀))
3635adantr 474 . . . . . . . . . . . 12 ((𝑚 = 𝑀𝑏 = 𝐵) → (Base‘𝑚) = (Base‘𝑀))
3736xpeq1d 5371 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑏 = 𝐵) → ((Base‘𝑚) × {𝑥}) = ((Base‘𝑀) × {𝑥}))
38 eqidd 2826 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑏 = 𝐵) → 𝑦 = 𝑦)
3934, 37, 38oveq123d 6926 . . . . . . . . . 10 ((𝑚 = 𝑀𝑏 = 𝐵) → (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦) = (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦))
4030, 9, 39mpt2eq123dv 6977 . . . . . . . . 9 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦)) = (𝑥 ∈ (Base‘𝑆), 𝑦𝐵 ↦ (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦)))
41 mendval.v . . . . . . . . 9 · = (𝑥 ∈ (Base‘𝑆), 𝑦𝐵 ↦ (((Base‘𝑀) × {𝑥}) ∘𝑓 ( ·𝑠𝑀)𝑦))
4240, 41syl6eqr 2879 . . . . . . . 8 ((𝑚 = 𝑀𝑏 = 𝐵) → (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦)) = · )
4342opeq2d 4630 . . . . . . 7 ((𝑚 = 𝑀𝑏 = 𝐵) → ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩ = ⟨( ·𝑠 ‘ndx), · ⟩)
4429, 43preq12d 4494 . . . . . 6 ((𝑚 = 𝑀𝑏 = 𝐵) → {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩} = {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩})
4524, 44uneq12d 3995 . . . . 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 3784 . . . 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 2861 . . 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 38582 . . 3 MEndo = (𝑚 ∈ V ↦ (𝑚 LMHom 𝑚) / 𝑏({⟨(Base‘ndx), 𝑏⟩, ⟨(+g‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑓 (+g𝑚)𝑦))⟩, ⟨(.r‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥𝑦))⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑚)⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ (Base‘(Scalar‘𝑚)), 𝑦𝑏 ↦ (((Base‘𝑚) × {𝑥}) ∘𝑓 ( ·𝑠𝑚)𝑦))⟩}))
49 tpex 7217 . . . 4 {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∈ V
50 prex 5130 . . . 4 {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩} ∈ V
5149, 50unex 7216 . . 3 ({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(.r‘ndx), × ⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), · ⟩}) ∈ V
5247, 48, 51fvmpt 6529 . 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 386   = wceq 1656   ∈ wcel 2164  Vcvv 3414  ⦋csb 3757   ∪ cun 3796  {csn 4397  {cpr 4399  {ctp 4401  ⟨cop 4403   × cxp 5340   ∘ ccom 5346  ‘cfv 6123  (class class class)co 6905   ↦ cmpt2 6907   ∘𝑓 cof 7155  ndxcnx 16219  Basecbs 16222  +gcplusg 16305  .rcmulr 16306  Scalarcsca 16308   ·𝑠 cvsca 16309   LMHom clmhm 19378  MEndocmend 38581 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-8 2166  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  ax-un 7209 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-tp 4402  df-op 4404  df-uni 4659  df-br 4874  df-opab 4936  df-mpt 4953  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-of 7157  df-mend 38582 This theorem is referenced by:  mendbas  38590  mendplusgfval  38591  mendmulrfval  38593  mendsca  38595  mendvscafval  38596
 Copyright terms: Public domain W3C validator