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

Theorem sraassab 21999
Description: A subring algebra is an associative algebra if and only if the subring is included in the ring's center. (Contributed by SN, 21-Mar-2025.)
Hypotheses
Ref Expression
sraassab.a 𝐴 = ((subringAlg ‘𝑊)‘𝑆)
sraassab.z 𝑍 = (Cntr‘(mulGrp‘𝑊))
sraassab.w (𝜑𝑊 ∈ Ring)
sraassab.s (𝜑𝑆 ∈ (SubRing‘𝑊))
Assertion
Ref Expression
sraassab (𝜑 → (𝐴 ∈ AssAlg ↔ 𝑆𝑍))

Proof of Theorem sraassab
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sraassab.s . . . . . . . 8 (𝜑𝑆 ∈ (SubRing‘𝑊))
2 eqid 2763 . . . . . . . . 9 (Base‘𝑊) = (Base‘𝑊)
32subrgss 20658 . . . . . . . 8 (𝑆 ∈ (SubRing‘𝑊) → 𝑆 ⊆ (Base‘𝑊))
41, 3syl 18 . . . . . . 7 (𝜑𝑆 ⊆ (Base‘𝑊))
54adantr 485 . . . . . 6 ((𝜑𝐴 ∈ AssAlg) → 𝑆 ⊆ (Base‘𝑊))
65sselda 3938 . . . . 5 (((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) → 𝑦 ∈ (Base‘𝑊))
7 simpllr 787 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → 𝐴 ∈ AssAlg)
8 eqid 2763 . . . . . . . . . . . . . 14 (𝑊s 𝑆) = (𝑊s 𝑆)
98subrgbas 20667 . . . . . . . . . . . . 13 (𝑆 ∈ (SubRing‘𝑊) → 𝑆 = (Base‘(𝑊s 𝑆)))
101, 9syl 18 . . . . . . . . . . . 12 (𝜑𝑆 = (Base‘(𝑊s 𝑆)))
11 sraassab.a . . . . . . . . . . . . . . 15 𝐴 = ((subringAlg ‘𝑊)‘𝑆)
1211a1i 11 . . . . . . . . . . . . . 14 (𝜑𝐴 = ((subringAlg ‘𝑊)‘𝑆))
1312, 4srasca 21282 . . . . . . . . . . . . 13 (𝜑 → (𝑊s 𝑆) = (Scalar‘𝐴))
1413fveq2d 6887 . . . . . . . . . . . 12 (𝜑 → (Base‘(𝑊s 𝑆)) = (Base‘(Scalar‘𝐴)))
1510, 14eqtrd 2798 . . . . . . . . . . 11 (𝜑𝑆 = (Base‘(Scalar‘𝐴)))
1615eqimssd 3994 . . . . . . . . . 10 (𝜑𝑆 ⊆ (Base‘(Scalar‘𝐴)))
1716sselda 3938 . . . . . . . . 9 ((𝜑𝑦𝑆) → 𝑦 ∈ (Base‘(Scalar‘𝐴)))
1817ad4ant13 763 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → 𝑦 ∈ (Base‘(Scalar‘𝐴)))
1912, 4srabase 21279 . . . . . . . . . . 11 (𝜑 → (Base‘𝑊) = (Base‘𝐴))
2019eqimssd 3994 . . . . . . . . . 10 (𝜑 → (Base‘𝑊) ⊆ (Base‘𝐴))
2120ad2antrr 738 . . . . . . . . 9 (((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) → (Base‘𝑊) ⊆ (Base‘𝐴))
2221sselda 3938 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → 𝑥 ∈ (Base‘𝐴))
23 sraassab.w . . . . . . . . . . 11 (𝜑𝑊 ∈ Ring)
24 eqid 2763 . . . . . . . . . . . 12 (1r𝑊) = (1r𝑊)
252, 24ringidcl 20349 . . . . . . . . . . 11 (𝑊 ∈ Ring → (1r𝑊) ∈ (Base‘𝑊))
2623, 25syl 18 . . . . . . . . . 10 (𝜑 → (1r𝑊) ∈ (Base‘𝑊))
2726, 19eleqtrd 2865 . . . . . . . . 9 (𝜑 → (1r𝑊) ∈ (Base‘𝐴))
2827ad3antrrr 742 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (1r𝑊) ∈ (Base‘𝐴))
29 eqid 2763 . . . . . . . . 9 (Base‘𝐴) = (Base‘𝐴)
30 eqid 2763 . . . . . . . . 9 (Scalar‘𝐴) = (Scalar‘𝐴)
31 eqid 2763 . . . . . . . . 9 (Base‘(Scalar‘𝐴)) = (Base‘(Scalar‘𝐴))
32 eqid 2763 . . . . . . . . 9 ( ·𝑠𝐴) = ( ·𝑠𝐴)
33 eqid 2763 . . . . . . . . 9 (.r𝐴) = (.r𝐴)
3429, 30, 31, 32, 33assaassr 21990 . . . . . . . 8 ((𝐴 ∈ AssAlg ∧ (𝑦 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑥 ∈ (Base‘𝐴) ∧ (1r𝑊) ∈ (Base‘𝐴))) → (𝑥(.r𝐴)(𝑦( ·𝑠𝐴)(1r𝑊))) = (𝑦( ·𝑠𝐴)(𝑥(.r𝐴)(1r𝑊))))
357, 18, 22, 28, 34syl13anc 1399 . . . . . . 7 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝐴)(𝑦( ·𝑠𝐴)(1r𝑊))) = (𝑦( ·𝑠𝐴)(𝑥(.r𝐴)(1r𝑊))))
3612, 4sramulr 21281 . . . . . . . . . 10 (𝜑 → (.r𝑊) = (.r𝐴))
3736ad3antrrr 742 . . . . . . . . 9 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (.r𝑊) = (.r𝐴))
3837oveqd 7429 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝑊)(𝑦( ·𝑠𝐴)(1r𝑊))) = (𝑥(.r𝐴)(𝑦( ·𝑠𝐴)(1r𝑊))))
3912, 4sravsca 21283 . . . . . . . . . . . 12 (𝜑 → (.r𝑊) = ( ·𝑠𝐴))
4039ad3antrrr 742 . . . . . . . . . . 11 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (.r𝑊) = ( ·𝑠𝐴))
4140oveqd 7429 . . . . . . . . . 10 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦(.r𝑊)(1r𝑊)) = (𝑦( ·𝑠𝐴)(1r𝑊)))
42 eqid 2763 . . . . . . . . . . 11 (.r𝑊) = (.r𝑊)
4323ad3antrrr 742 . . . . . . . . . . 11 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → 𝑊 ∈ Ring)
446adantr 485 . . . . . . . . . . 11 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → 𝑦 ∈ (Base‘𝑊))
452, 42, 24, 43, 44ringridmd 20357 . . . . . . . . . 10 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦(.r𝑊)(1r𝑊)) = 𝑦)
4641, 45eqtr3d 2800 . . . . . . . . 9 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦( ·𝑠𝐴)(1r𝑊)) = 𝑦)
4746oveq2d 7428 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝑊)(𝑦( ·𝑠𝐴)(1r𝑊))) = (𝑥(.r𝑊)𝑦))
4838, 47eqtr3d 2800 . . . . . . 7 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝐴)(𝑦( ·𝑠𝐴)(1r𝑊))) = (𝑥(.r𝑊)𝑦))
4940oveqd 7429 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦(.r𝑊)(𝑥(.r𝐴)(1r𝑊))) = (𝑦( ·𝑠𝐴)(𝑥(.r𝐴)(1r𝑊))))
5037oveqd 7429 . . . . . . . . . 10 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝑊)(1r𝑊)) = (𝑥(.r𝐴)(1r𝑊)))
51 simpr 489 . . . . . . . . . . 11 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → 𝑥 ∈ (Base‘𝑊))
522, 42, 24, 43, 51ringridmd 20357 . . . . . . . . . 10 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝑊)(1r𝑊)) = 𝑥)
5350, 52eqtr3d 2800 . . . . . . . . 9 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑥(.r𝐴)(1r𝑊)) = 𝑥)
5453oveq2d 7428 . . . . . . . 8 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦(.r𝑊)(𝑥(.r𝐴)(1r𝑊))) = (𝑦(.r𝑊)𝑥))
5549, 54eqtr3d 2800 . . . . . . 7 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦( ·𝑠𝐴)(𝑥(.r𝐴)(1r𝑊))) = (𝑦(.r𝑊)𝑥))
5635, 48, 553eqtr3rd 2807 . . . . . 6 ((((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) ∧ 𝑥 ∈ (Base‘𝑊)) → (𝑦(.r𝑊)𝑥) = (𝑥(.r𝑊)𝑦))
5756ralrimiva 3157 . . . . 5 (((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) → ∀𝑥 ∈ (Base‘𝑊)(𝑦(.r𝑊)𝑥) = (𝑥(.r𝑊)𝑦))
58 eqid 2763 . . . . . . 7 (mulGrp‘𝑊) = (mulGrp‘𝑊)
5958, 2mgpbas 20222 . . . . . 6 (Base‘𝑊) = (Base‘(mulGrp‘𝑊))
6058, 42mgpplusg 20221 . . . . . 6 (.r𝑊) = (+g‘(mulGrp‘𝑊))
61 sraassab.z . . . . . 6 𝑍 = (Cntr‘(mulGrp‘𝑊))
6259, 60, 61elcntr 19401 . . . . 5 (𝑦𝑍 ↔ (𝑦 ∈ (Base‘𝑊) ∧ ∀𝑥 ∈ (Base‘𝑊)(𝑦(.r𝑊)𝑥) = (𝑥(.r𝑊)𝑦)))
636, 57, 62sylanbrc 594 . . . 4 (((𝜑𝐴 ∈ AssAlg) ∧ 𝑦𝑆) → 𝑦𝑍)
6463ex 417 . . 3 ((𝜑𝐴 ∈ AssAlg) → (𝑦𝑆𝑦𝑍))
6564ssrdv 3944 . 2 ((𝜑𝐴 ∈ AssAlg) → 𝑆𝑍)
6619adantr 485 . . 3 ((𝜑𝑆𝑍) → (Base‘𝑊) = (Base‘𝐴))
6713adantr 485 . . 3 ((𝜑𝑆𝑍) → (𝑊s 𝑆) = (Scalar‘𝐴))
6810adantr 485 . . 3 ((𝜑𝑆𝑍) → 𝑆 = (Base‘(𝑊s 𝑆)))
6939adantr 485 . . 3 ((𝜑𝑆𝑍) → (.r𝑊) = ( ·𝑠𝐴))
7036adantr 485 . . 3 ((𝜑𝑆𝑍) → (.r𝑊) = (.r𝐴))
7111sralmod 21289 . . . . 5 (𝑆 ∈ (SubRing‘𝑊) → 𝐴 ∈ LMod)
721, 71syl 18 . . . 4 (𝜑𝐴 ∈ LMod)
7372adantr 485 . . 3 ((𝜑𝑆𝑍) → 𝐴 ∈ LMod)
7411, 2sraring 21288 . . . . 5 ((𝑊 ∈ Ring ∧ 𝑆 ⊆ (Base‘𝑊)) → 𝐴 ∈ Ring)
7523, 4, 74syl2anc 595 . . . 4 (𝜑𝐴 ∈ Ring)
7675adantr 485 . . 3 ((𝜑𝑆𝑍) → 𝐴 ∈ Ring)
7723ad2antrr 738 . . . 4 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → 𝑊 ∈ Ring)
784adantr 485 . . . . . 6 ((𝜑𝑆𝑍) → 𝑆 ⊆ (Base‘𝑊))
7978sselda 3938 . . . . 5 (((𝜑𝑆𝑍) ∧ 𝑥𝑆) → 𝑥 ∈ (Base‘𝑊))
80793ad2antr1 1207 . . . 4 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → 𝑥 ∈ (Base‘𝑊))
81 simpr2 1214 . . . 4 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → 𝑦 ∈ (Base‘𝑊))
82 simpr3 1215 . . . 4 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → 𝑧 ∈ (Base‘𝑊))
832, 42, 77, 80, 81, 82ringassd 20340 . . 3 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → ((𝑥(.r𝑊)𝑦)(.r𝑊)𝑧) = (𝑥(.r𝑊)(𝑦(.r𝑊)𝑧)))
84 ssel2 3933 . . . . . . . 8 ((𝑆𝑍𝑥𝑆) → 𝑥𝑍)
8584ad2ant2lr 760 . . . . . . 7 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊))) → 𝑥𝑍)
86 simprr 784 . . . . . . 7 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊))) → 𝑦 ∈ (Base‘𝑊))
8759, 60, 61cntri 19403 . . . . . . 7 ((𝑥𝑍𝑦 ∈ (Base‘𝑊)) → (𝑥(.r𝑊)𝑦) = (𝑦(.r𝑊)𝑥))
8885, 86, 87syl2anc 595 . . . . . 6 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊))) → (𝑥(.r𝑊)𝑦) = (𝑦(.r𝑊)𝑥))
89883adantr3 1190 . . . . 5 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → (𝑥(.r𝑊)𝑦) = (𝑦(.r𝑊)𝑥))
9089oveq1d 7427 . . . 4 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → ((𝑥(.r𝑊)𝑦)(.r𝑊)𝑧) = ((𝑦(.r𝑊)𝑥)(.r𝑊)𝑧))
912, 42, 77, 81, 80, 82ringassd 20340 . . . 4 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → ((𝑦(.r𝑊)𝑥)(.r𝑊)𝑧) = (𝑦(.r𝑊)(𝑥(.r𝑊)𝑧)))
9290, 83, 913eqtr3rd 2807 . . 3 (((𝜑𝑆𝑍) ∧ (𝑥𝑆𝑦 ∈ (Base‘𝑊) ∧ 𝑧 ∈ (Base‘𝑊))) → (𝑦(.r𝑊)(𝑥(.r𝑊)𝑧)) = (𝑥(.r𝑊)(𝑦(.r𝑊)𝑧)))
9366, 67, 68, 69, 70, 73, 76, 83, 92isassad 21996 . 2 ((𝜑𝑆𝑍) → 𝐴 ∈ AssAlg)
9465, 93impbida 812 1 (𝜑 → (𝐴 ∈ AssAlg ↔ 𝑆𝑍))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  w3a 1103   = wceq 1570  wcel 2143  wral 3079  wss 3906  cfv 6538  (class class class)co 7412  Basecbs 17270  s cress 17291  .rcmulr 17312  Scalarcsca 17314   ·𝑠 cvsca 17315  Cntrccntr 19387  mulGrpcmgp 20217  1rcur 20264  Ringcrg 20316  SubRingcsubrg 20655  LModclmod 20962  subringAlg csra 21273  AssAlgcasa 21981
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7864  df-2nd 7988  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-er 8695  df-en 8945  df-dom 8946  df-sdom 8947  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-7 12309  df-8 12310  df-sets 17225  df-slot 17243  df-ndx 17255  df-base 17271  df-ress 17292  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-ip 17329  df-0g 17495  df-mgm 18699  df-sgrp 18778  df-mnd 18794  df-grp 19004  df-subg 19190  df-cntz 19388  df-cntr 19389  df-mgp 20218  df-ur 20265  df-ring 20318  df-subrg 20656  df-lmod 20964  df-sra 21275  df-assa 21984
This theorem is referenced by:  sraassa  22000
  Copyright terms: Public domain W3C validator