Theorem grpinvssd 19074

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 the elements of the first group have the same inverses in both groups. (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
grpinvssd	⊢ (𝜑 → (𝑋 ∈ 𝐵 → ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))

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

Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem grpinvssd

Step	Hyp	Ref	Expression
1		grpidssd.s	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ Grp)
2		grpidssd.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑆)
3		eqid 2765	. . . . . . 7 ⊢ (invg‘𝑆) = (invg‘𝑆)
4	2, 3	grpinvcl 19044	. . . . . 6 ⊢ ((𝑆 ∈ Grp ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) ∈ 𝐵)
5	1, 4	sylan 591	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) ∈ 𝐵)
6		simpr 489	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
7		grpidssd.o	. . . . . 6 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦))
8	7	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦))
9		oveq1 7407	. . . . . . 7 ⊢ (𝑥 = ((invg‘𝑆)‘𝑋) → (𝑥(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦))
10		oveq1 7407	. . . . . . 7 ⊢ (𝑥 = ((invg‘𝑆)‘𝑋) → (𝑥(+g‘𝑆)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦))
11	9, 10	eqeq12d 2781	. . . . . 6 ⊢ (𝑥 = ((invg‘𝑆)‘𝑋) → ((𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦) ↔ (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦)))
12		oveq2 7408	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋))
13		oveq2 7408	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋))
14	12, 13	eqeq12d 2781	. . . . . 6 ⊢ (𝑦 = 𝑋 → ((((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦) ↔ (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋)))
15	11, 14	rspc2va 3596	. . . . 5 ⊢ (((((invg‘𝑆)‘𝑋) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦)) → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋))
16	5, 6, 8, 15	syl21anc 850	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋))
17		eqid 2765	. . . . . 6 ⊢ (+g‘𝑆) = (+g‘𝑆)
18		eqid 2765	. . . . . 6 ⊢ (0g‘𝑆) = (0g‘𝑆)
19	2, 17, 18, 3	grplinv 19046	. . . . 5 ⊢ ((𝑆 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋) = (0g‘𝑆))
20	1, 19	sylan 591	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋) = (0g‘𝑆))
21		grpidssd.m	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ Grp)
22		grpidssd.c	. . . . . . 7 ⊢ (𝜑 → 𝐵 ⊆ (Base‘𝑀))
23	22	sselda 3939	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ (Base‘𝑀))
24		eqid 2765	. . . . . . 7 ⊢ (Base‘𝑀) = (Base‘𝑀)
25		eqid 2765	. . . . . . 7 ⊢ (+g‘𝑀) = (+g‘𝑀)
26		eqid 2765	. . . . . . 7 ⊢ (0g‘𝑀) = (0g‘𝑀)
27		eqid 2765	. . . . . . 7 ⊢ (invg‘𝑀) = (invg‘𝑀)
28	24, 25, 26, 27	grplinv 19046	. . . . . 6 ⊢ ((𝑀 ∈ Grp ∧ 𝑋 ∈ (Base‘𝑀)) → (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) = (0g‘𝑀))
29	21, 23, 28	syl2an2r 697	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) = (0g‘𝑀))
30	21, 1, 2, 22, 7	grpidssd 19073	. . . . . 6 ⊢ (𝜑 → (0g‘𝑀) = (0g‘𝑆))
31	30	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (0g‘𝑀) = (0g‘𝑆))
32	29, 31	eqtr2d 2801	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (0g‘𝑆) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋))
33	16, 20, 32	3eqtrd 2804	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋))
34	21	adantr 485	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑀 ∈ Grp)
35	22	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝐵 ⊆ (Base‘𝑀))
36	35, 5	sseldd 3940	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) ∈ (Base‘𝑀))
37	24, 27	grpinvcl 19044	. . . . 5 ⊢ ((𝑀 ∈ Grp ∧ 𝑋 ∈ (Base‘𝑀)) → ((invg‘𝑀)‘𝑋) ∈ (Base‘𝑀))
38	21, 23, 37	syl2an2r 697	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑀)‘𝑋) ∈ (Base‘𝑀))
39	24, 25	grprcan 19030	. . . 4 ⊢ ((𝑀 ∈ Grp ∧ (((invg‘𝑆)‘𝑋) ∈ (Base‘𝑀) ∧ ((invg‘𝑀)‘𝑋) ∈ (Base‘𝑀) ∧ 𝑋 ∈ (Base‘𝑀))) → ((((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) ↔ ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))
40	34, 36, 38, 23, 39	syl13anc 1395	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) ↔ ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))
41	33, 40	mpbid 235	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋))
42	41	ex 417	1 ⊢ (𝜑 → (𝑋 ∈ 𝐵 → ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1563   ∈ wcel 2145  ∀wral 3079   ⊆ wss 3907  ‘cfv 6525  (class class class)co 7400  Basecbs 17259  +_gcplusg 17300  0_gc0g 17482  Grpcgrp 18990  inv_gcminusg 18991

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-sep 5251  ax-nul 5261  ax-pow 5327  ax-pr 5395  ax-un 7722

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3080  df-rex 3090  df-rmo 3370  df-reu 3371  df-rab 3418  df-v 3459  df-sbc 3748  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-nul 4289  df-if 4484  df-pw 4560  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4869  df-br 5106  df-opab 5168  df-mpt 5187  df-id 5547  df-xp 5658  df-rel 5659  df-cnv 5660  df-co 5661  df-dm 5662  df-rn 5663  df-res 5664  df-ima 5665  df-iota 6481  df-fun 6527  df-fn 6528  df-f 6529  df-fv 6533  df-riota 7357  df-ov 7403  df-0g 17484  df-mgm 18688  df-sgrp 18767  df-mnd 18783  df-grp 18993  df-minusg 18994

This theorem is referenced by:  grpissubg  19204