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

Theorem ismgmid 17087
 Description: The identity element of a magma, if it exists, belongs to the base set. (Contributed by Mario Carneiro, 27-Dec-2014.)
Hypotheses
Ref Expression
ismgmid.b 𝐵 = (Base‘𝐺)
ismgmid.o 0 = (0g𝐺)
ismgmid.p + = (+g𝐺)
mgmidcl.e (𝜑 → ∃𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))
Assertion
Ref Expression
ismgmid (𝜑 → ((𝑈𝐵 ∧ ∀𝑥𝐵 ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥)) ↔ 0 = 𝑈))
Distinct variable groups:   𝑥,𝑒, +   0 ,𝑒,𝑥   𝐵,𝑒,𝑥   𝑒,𝐺,𝑥   𝑈,𝑒,𝑥
Allowed substitution hints:   𝜑(𝑥,𝑒)

Proof of Theorem ismgmid
StepHypRef Expression
1 id 22 . . . 4 (𝑈𝐵𝑈𝐵)
2 mgmidcl.e . . . . 5 (𝜑 → ∃𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))
3 mgmidmo 17082 . . . . . 6 ∃*𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)
43a1i 11 . . . . 5 (𝜑 → ∃*𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))
5 reu5 3136 . . . . 5 (∃!𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥) ↔ (∃𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥) ∧ ∃*𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)))
62, 4, 5sylanbrc 695 . . . 4 (𝜑 → ∃!𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))
7 oveq1 6556 . . . . . . . 8 (𝑒 = 𝑈 → (𝑒 + 𝑥) = (𝑈 + 𝑥))
87eqeq1d 2612 . . . . . . 7 (𝑒 = 𝑈 → ((𝑒 + 𝑥) = 𝑥 ↔ (𝑈 + 𝑥) = 𝑥))
9 oveq2 6557 . . . . . . . 8 (𝑒 = 𝑈 → (𝑥 + 𝑒) = (𝑥 + 𝑈))
109eqeq1d 2612 . . . . . . 7 (𝑒 = 𝑈 → ((𝑥 + 𝑒) = 𝑥 ↔ (𝑥 + 𝑈) = 𝑥))
118, 10anbi12d 743 . . . . . 6 (𝑒 = 𝑈 → (((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥) ↔ ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥)))
1211ralbidv 2969 . . . . 5 (𝑒 = 𝑈 → (∀𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥) ↔ ∀𝑥𝐵 ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥)))
1312riota2 6533 . . . 4 ((𝑈𝐵 ∧ ∃!𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) → (∀𝑥𝐵 ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥) ↔ (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈))
141, 6, 13syl2anr 494 . . 3 ((𝜑𝑈𝐵) → (∀𝑥𝐵 ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥) ↔ (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈))
1514pm5.32da 671 . 2 (𝜑 → ((𝑈𝐵 ∧ ∀𝑥𝐵 ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥)) ↔ (𝑈𝐵 ∧ (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈)))
16 riotacl 6525 . . . . 5 (∃!𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥) → (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) ∈ 𝐵)
176, 16syl 17 . . . 4 (𝜑 → (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) ∈ 𝐵)
18 eleq1 2676 . . . 4 ((𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈 → ((𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) ∈ 𝐵𝑈𝐵))
1917, 18syl5ibcom 234 . . 3 (𝜑 → ((𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈𝑈𝐵))
2019pm4.71rd 665 . 2 (𝜑 → ((𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈 ↔ (𝑈𝐵 ∧ (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈)))
21 df-riota 6511 . . . . 5 (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = (℩𝑒(𝑒𝐵 ∧ ∀𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)))
22 ismgmid.b . . . . . 6 𝐵 = (Base‘𝐺)
23 ismgmid.p . . . . . 6 + = (+g𝐺)
24 ismgmid.o . . . . . 6 0 = (0g𝐺)
2522, 23, 24grpidval 17083 . . . . 5 0 = (℩𝑒(𝑒𝐵 ∧ ∀𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)))
2621, 25eqtr4i 2635 . . . 4 (𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 0
2726eqeq1i 2615 . . 3 ((𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈0 = 𝑈)
2827a1i 11 . 2 (𝜑 → ((𝑒𝐵𝑥𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) = 𝑈0 = 𝑈))
2915, 20, 283bitr2d 295 1 (𝜑 → ((𝑈𝐵 ∧ ∀𝑥𝐵 ((𝑈 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑈) = 𝑥)) ↔ 0 = 𝑈))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   = wceq 1475   ∈ wcel 1977  ∀wral 2896  ∃wrex 2897  ∃!wreu 2898  ∃*wrmo 2899  ℩cio 5766  ‘cfv 5804  ℩crio 6510  (class class class)co 6549  Basecbs 15695  +gcplusg 15768  0gc0g 15923 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833 This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-iota 5768  df-fun 5806  df-fv 5812  df-riota 6511  df-ov 6552  df-0g 15925 This theorem is referenced by:  mgmidcl  17088  mgmlrid  17089  ismgmid2  17090  mgmidsssn0  17092  prds0g  17147  issrgid  18346  isringid  18396  signsw0g  29959
 Copyright terms: Public domain W3C validator