Theorem grpidssd 19032

Description: If the base set of a group is contained in the base set of another group, and the group operation of the group is the restriction of the group operation of the other group to its base set, then both groups have the same identity element. (Contributed by AV, 15-Mar-2019.)

Hypotheses

Ref	Expression
grpidssd.m	⊢ (𝜑 → 𝑀 ∈ Grp)
grpidssd.s	⊢ (𝜑 → 𝑆 ∈ Grp)
grpidssd.b	⊢ 𝐵 = (Base‘𝑆)
grpidssd.c	⊢ (𝜑 → 𝐵 ⊆ (Base‘𝑀))
grpidssd.o	⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦))

Assertion

Ref	Expression
grpidssd	⊢ (𝜑 → (0g‘𝑀) = (0g‘𝑆))

Distinct variable groups:   𝑥,𝐵,𝑦   𝑥,𝑀,𝑦   𝑥,𝑆,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem grpidssd

Step	Hyp	Ref	Expression
1		grpidssd.s	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ Grp)
2		grpidssd.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑆)
3		eqid 2729	. . . . . . 7 ⊢ (0g‘𝑆) = (0g‘𝑆)
4	2, 3	grpidcl 18981	. . . . . 6 ⊢ (𝑆 ∈ Grp → (0g‘𝑆) ∈ 𝐵)
5	1, 4	syl 17	. . . . 5 ⊢ (𝜑 → (0g‘𝑆) ∈ 𝐵)
6		grpidssd.o	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦))
7		oveq1 7437	. . . . . . 7 ⊢ (𝑥 = (0g‘𝑆) → (𝑥(+g‘𝑀)𝑦) = ((0g‘𝑆)(+g‘𝑀)𝑦))
8		oveq1 7437	. . . . . . 7 ⊢ (𝑥 = (0g‘𝑆) → (𝑥(+g‘𝑆)𝑦) = ((0g‘𝑆)(+g‘𝑆)𝑦))
9	7, 8	eqeq12d 2745	. . . . . 6 ⊢ (𝑥 = (0g‘𝑆) → ((𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦) ↔ ((0g‘𝑆)(+g‘𝑀)𝑦) = ((0g‘𝑆)(+g‘𝑆)𝑦)))
10		oveq2 7438	. . . . . . 7 ⊢ (𝑦 = (0g‘𝑆) → ((0g‘𝑆)(+g‘𝑀)𝑦) = ((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)))
11		oveq2 7438	. . . . . . 7 ⊢ (𝑦 = (0g‘𝑆) → ((0g‘𝑆)(+g‘𝑆)𝑦) = ((0g‘𝑆)(+g‘𝑆)(0g‘𝑆)))
12	10, 11	eqeq12d 2745	. . . . . 6 ⊢ (𝑦 = (0g‘𝑆) → (((0g‘𝑆)(+g‘𝑀)𝑦) = ((0g‘𝑆)(+g‘𝑆)𝑦) ↔ ((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)) = ((0g‘𝑆)(+g‘𝑆)(0g‘𝑆))))
13	9, 12	rspc2va 3632	. . . . 5 ⊢ ((((0g‘𝑆) ∈ 𝐵 ∧ (0g‘𝑆) ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦)) → ((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)) = ((0g‘𝑆)(+g‘𝑆)(0g‘𝑆)))
14	5, 5, 6, 13	syl21anc 836	. . . 4 ⊢ (𝜑 → ((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)) = ((0g‘𝑆)(+g‘𝑆)(0g‘𝑆)))
15		eqid 2729	. . . . . 6 ⊢ (+g‘𝑆) = (+g‘𝑆)
16	2, 15, 3	grplid 18983	. . . . 5 ⊢ ((𝑆 ∈ Grp ∧ (0g‘𝑆) ∈ 𝐵) → ((0g‘𝑆)(+g‘𝑆)(0g‘𝑆)) = (0g‘𝑆))
17	1, 4, 16	syl2anc2 583	. . . 4 ⊢ (𝜑 → ((0g‘𝑆)(+g‘𝑆)(0g‘𝑆)) = (0g‘𝑆))
18	14, 17	eqtrd 2769	. . 3 ⊢ (𝜑 → ((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)) = (0g‘𝑆))
19		grpidssd.m	. . . 4 ⊢ (𝜑 → 𝑀 ∈ Grp)
20		grpidssd.c	. . . . 5 ⊢ (𝜑 → 𝐵 ⊆ (Base‘𝑀))
21	20, 5	sseldd 3992	. . . 4 ⊢ (𝜑 → (0g‘𝑆) ∈ (Base‘𝑀))
22		eqid 2729	. . . . 5 ⊢ (Base‘𝑀) = (Base‘𝑀)
23		eqid 2729	. . . . 5 ⊢ (+g‘𝑀) = (+g‘𝑀)
24		eqid 2729	. . . . 5 ⊢ (0g‘𝑀) = (0g‘𝑀)
25	22, 23, 24	grpidlcan 19020	. . . 4 ⊢ ((𝑀 ∈ Grp ∧ (0g‘𝑆) ∈ (Base‘𝑀) ∧ (0g‘𝑆) ∈ (Base‘𝑀)) → (((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)) = (0g‘𝑆) ↔ (0g‘𝑆) = (0g‘𝑀)))
26	19, 21, 21, 25	syl3anc 1368	. . 3 ⊢ (𝜑 → (((0g‘𝑆)(+g‘𝑀)(0g‘𝑆)) = (0g‘𝑆) ↔ (0g‘𝑆) = (0g‘𝑀)))
27	18, 26	mpbid 231	. 2 ⊢ (𝜑 → (0g‘𝑆) = (0g‘𝑀))
28	27	eqcomd 2735	1 ⊢ (𝜑 → (0g‘𝑀) = (0g‘𝑆))

Syntax hints:   → wi 4   ↔ wb 205   = wceq 1534   ∈ wcel 2100  ∀wral 3054   ⊆ wss 3959  ‘cfv 6558  (class class class)co 7430  Basecbs 17234  +_gcplusg 17287  0_gc0g 17475  Grpcgrp 18949

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2102  ax-9 2110  ax-10 2133  ax-11 2150  ax-12 2170  ax-ext 2700  ax-sep 5307  ax-nul 5314  ax-pr 5437

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2062  df-mo 2532  df-eu 2561  df-clab 2707  df-cleq 2721  df-clel 2806  df-nfc 2881  df-ne 2934  df-ral 3055  df-rex 3064  df-rmo 3373  df-reu 3374  df-rab 3429  df-v 3474  df-sbc 3789  df-dif 3962  df-un 3964  df-ss 3976  df-nul 4336  df-if 4537  df-sn 4637  df-pr 4639  df-op 4643  df-uni 4919  df-br 5157  df-opab 5219  df-mpt 5240  df-id 5584  df-xp 5692  df-rel 5693  df-cnv 5694  df-co 5695  df-dm 5696  df-iota 6510  df-fun 6560  df-fv 6566  df-riota 7386  df-ov 7433  df-0g 17477  df-mgm 18654  df-sgrp 18733  df-mnd 18749  df-grp 18952

This theorem is referenced by:  grpinvssd  19033