ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  isringd GIF version

Theorem isringd 13043
Description: Properties that determine a ring. (Contributed by NM, 2-Aug-2013.)
Hypotheses
Ref Expression
isringd.b (𝜑𝐵 = (Base‘𝑅))
isringd.p (𝜑+ = (+g𝑅))
isringd.t (𝜑· = (.r𝑅))
isringd.g (𝜑𝑅 ∈ Grp)
isringd.c ((𝜑𝑥𝐵𝑦𝐵) → (𝑥 · 𝑦) ∈ 𝐵)
isringd.a ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
isringd.d ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
isringd.e ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
isringd.u (𝜑1𝐵)
isringd.i ((𝜑𝑥𝐵) → ( 1 · 𝑥) = 𝑥)
isringd.h ((𝜑𝑥𝐵) → (𝑥 · 1 ) = 𝑥)
Assertion
Ref Expression
isringd (𝜑𝑅 ∈ Ring)
Distinct variable groups:   𝑥, 1   𝑥,𝑦,𝑧,𝐵   𝜑,𝑥,𝑦,𝑧   𝑥,𝑅,𝑦,𝑧
Allowed substitution hints:   + (𝑥,𝑦,𝑧)   · (𝑥,𝑦,𝑧)   1 (𝑦,𝑧)

Proof of Theorem isringd
StepHypRef Expression
1 isringd.g . 2 (𝜑𝑅 ∈ Grp)
2 isringd.b . . . 4 (𝜑𝐵 = (Base‘𝑅))
3 eqid 2177 . . . . . 6 (mulGrp‘𝑅) = (mulGrp‘𝑅)
4 eqid 2177 . . . . . 6 (Base‘𝑅) = (Base‘𝑅)
53, 4mgpbasg 12960 . . . . 5 (𝑅 ∈ Grp → (Base‘𝑅) = (Base‘(mulGrp‘𝑅)))
61, 5syl 14 . . . 4 (𝜑 → (Base‘𝑅) = (Base‘(mulGrp‘𝑅)))
72, 6eqtrd 2210 . . 3 (𝜑𝐵 = (Base‘(mulGrp‘𝑅)))
8 isringd.t . . . 4 (𝜑· = (.r𝑅))
9 eqid 2177 . . . . . 6 (.r𝑅) = (.r𝑅)
103, 9mgpplusgg 12958 . . . . 5 (𝑅 ∈ Grp → (.r𝑅) = (+g‘(mulGrp‘𝑅)))
111, 10syl 14 . . . 4 (𝜑 → (.r𝑅) = (+g‘(mulGrp‘𝑅)))
128, 11eqtrd 2210 . . 3 (𝜑· = (+g‘(mulGrp‘𝑅)))
13 isringd.c . . 3 ((𝜑𝑥𝐵𝑦𝐵) → (𝑥 · 𝑦) ∈ 𝐵)
14 isringd.a . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
15 isringd.u . . 3 (𝜑1𝐵)
16 isringd.i . . 3 ((𝜑𝑥𝐵) → ( 1 · 𝑥) = 𝑥)
17 isringd.h . . 3 ((𝜑𝑥𝐵) → (𝑥 · 1 ) = 𝑥)
187, 12, 13, 14, 15, 16, 17ismndd 12727 . 2 (𝜑 → (mulGrp‘𝑅) ∈ Mnd)
192eleq2d 2247 . . . . . 6 (𝜑 → (𝑥𝐵𝑥 ∈ (Base‘𝑅)))
202eleq2d 2247 . . . . . 6 (𝜑 → (𝑦𝐵𝑦 ∈ (Base‘𝑅)))
212eleq2d 2247 . . . . . 6 (𝜑 → (𝑧𝐵𝑧 ∈ (Base‘𝑅)))
2219, 20, 213anbi123d 1312 . . . . 5 (𝜑 → ((𝑥𝐵𝑦𝐵𝑧𝐵) ↔ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))))
2322biimpar 297 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → (𝑥𝐵𝑦𝐵𝑧𝐵))
24 isringd.d . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
258adantr 276 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → · = (.r𝑅))
26 eqidd 2178 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → 𝑥 = 𝑥)
27 isringd.p . . . . . . . 8 (𝜑+ = (+g𝑅))
2827oveqdr 5897 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑦 + 𝑧) = (𝑦(+g𝑅)𝑧))
2925, 26, 28oveq123d 5890 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥 · (𝑦 + 𝑧)) = (𝑥(.r𝑅)(𝑦(+g𝑅)𝑧)))
3027adantr 276 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → + = (+g𝑅))
318oveqdr 5897 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥 · 𝑦) = (𝑥(.r𝑅)𝑦))
328oveqdr 5897 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥 · 𝑧) = (𝑥(.r𝑅)𝑧))
3330, 31, 32oveq123d 5890 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 · 𝑦) + (𝑥 · 𝑧)) = ((𝑥(.r𝑅)𝑦)(+g𝑅)(𝑥(.r𝑅)𝑧)))
3424, 29, 333eqtr3d 2218 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥(.r𝑅)(𝑦(+g𝑅)𝑧)) = ((𝑥(.r𝑅)𝑦)(+g𝑅)(𝑥(.r𝑅)𝑧)))
35 isringd.e . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
3627oveqdr 5897 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑥 + 𝑦) = (𝑥(+g𝑅)𝑦))
37 eqidd 2178 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → 𝑧 = 𝑧)
3825, 36, 37oveq123d 5890 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥(+g𝑅)𝑦)(.r𝑅)𝑧))
398oveqdr 5897 . . . . . . 7 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → (𝑦 · 𝑧) = (𝑦(.r𝑅)𝑧))
4030, 32, 39oveq123d 5890 . . . . . 6 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥 · 𝑧) + (𝑦 · 𝑧)) = ((𝑥(.r𝑅)𝑧)(+g𝑅)(𝑦(.r𝑅)𝑧)))
4135, 38, 403eqtr3d 2218 . . . . 5 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥(+g𝑅)𝑦)(.r𝑅)𝑧) = ((𝑥(.r𝑅)𝑧)(+g𝑅)(𝑦(.r𝑅)𝑧)))
4234, 41jca 306 . . . 4 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ((𝑥(.r𝑅)(𝑦(+g𝑅)𝑧)) = ((𝑥(.r𝑅)𝑦)(+g𝑅)(𝑥(.r𝑅)𝑧)) ∧ ((𝑥(+g𝑅)𝑦)(.r𝑅)𝑧) = ((𝑥(.r𝑅)𝑧)(+g𝑅)(𝑦(.r𝑅)𝑧))))
4323, 42syldan 282 . . 3 ((𝜑 ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥(.r𝑅)(𝑦(+g𝑅)𝑧)) = ((𝑥(.r𝑅)𝑦)(+g𝑅)(𝑥(.r𝑅)𝑧)) ∧ ((𝑥(+g𝑅)𝑦)(.r𝑅)𝑧) = ((𝑥(.r𝑅)𝑧)(+g𝑅)(𝑦(.r𝑅)𝑧))))
4443ralrimivvva 2560 . 2 (𝜑 → ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)∀𝑧 ∈ (Base‘𝑅)((𝑥(.r𝑅)(𝑦(+g𝑅)𝑧)) = ((𝑥(.r𝑅)𝑦)(+g𝑅)(𝑥(.r𝑅)𝑧)) ∧ ((𝑥(+g𝑅)𝑦)(.r𝑅)𝑧) = ((𝑥(.r𝑅)𝑧)(+g𝑅)(𝑦(.r𝑅)𝑧))))
45 eqid 2177 . . 3 (+g𝑅) = (+g𝑅)
464, 3, 45, 9isring 13006 . 2 (𝑅 ∈ Ring ↔ (𝑅 ∈ Grp ∧ (mulGrp‘𝑅) ∈ Mnd ∧ ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)∀𝑧 ∈ (Base‘𝑅)((𝑥(.r𝑅)(𝑦(+g𝑅)𝑧)) = ((𝑥(.r𝑅)𝑦)(+g𝑅)(𝑥(.r𝑅)𝑧)) ∧ ((𝑥(+g𝑅)𝑦)(.r𝑅)𝑧) = ((𝑥(.r𝑅)𝑧)(+g𝑅)(𝑦(.r𝑅)𝑧)))))
471, 18, 44, 46syl3anbrc 1181 1 (𝜑𝑅 ∈ Ring)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  w3a 978   = wceq 1353  wcel 2148  wral 2455  cfv 5212  (class class class)co 5869  Basecbs 12442  +gcplusg 12515  .rcmulr 12516  Mndcmnd 12706  Grpcgrp 12764  mulGrpcmgp 12954  Ringcrg 13002
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4118  ax-pow 4171  ax-pr 4206  ax-un 4430  ax-setind 4533  ax-cnex 7890  ax-resscn 7891  ax-1cn 7892  ax-1re 7893  ax-icn 7894  ax-addcl 7895  ax-addrcl 7896  ax-mulcl 7897  ax-addcom 7899  ax-addass 7901  ax-i2m1 7904  ax-0lt1 7905  ax-0id 7907  ax-rnegex 7908  ax-pre-ltirr 7911  ax-pre-ltadd 7915
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-dif 3131  df-un 3133  df-in 3135  df-ss 3142  df-nul 3423  df-pw 3576  df-sn 3597  df-pr 3598  df-op 3600  df-uni 3808  df-int 3843  df-br 4001  df-opab 4062  df-mpt 4063  df-id 4290  df-xp 4629  df-rel 4630  df-cnv 4631  df-co 4632  df-dm 4633  df-rn 4634  df-res 4635  df-iota 5174  df-fun 5214  df-fn 5215  df-fv 5220  df-ov 5872  df-oprab 5873  df-mpo 5874  df-pnf 7981  df-mnf 7982  df-ltxr 7984  df-inn 8906  df-2 8964  df-3 8965  df-ndx 12445  df-slot 12446  df-base 12448  df-sets 12449  df-plusg 12528  df-mulr 12529  df-mgm 12664  df-sgrp 12697  df-mnd 12707  df-mgp 12955  df-ring 13004
This theorem is referenced by:  iscrngd  13044  opprring  13071
  Copyright terms: Public domain W3C validator