Theorem grpinvssd 13453

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 2206	. . . . . . 7 ⊢ (invg‘𝑆) = (invg‘𝑆)
4	2, 3	grpinvcl 13424	. . . . . 6 ⊢ ((𝑆 ∈ Grp ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) ∈ 𝐵)
5	1, 4	sylan 283	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) ∈ 𝐵)
6		simpr 110	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
7		grpidssd.o	. . . . . 6 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦))
8	7	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦))
9		oveq1 5958	. . . . . . 7 ⊢ (𝑥 = ((invg‘𝑆)‘𝑋) → (𝑥(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦))
10		oveq1 5958	. . . . . . 7 ⊢ (𝑥 = ((invg‘𝑆)‘𝑋) → (𝑥(+g‘𝑆)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦))
11	9, 10	eqeq12d 2221	. . . . . 6 ⊢ (𝑥 = ((invg‘𝑆)‘𝑋) → ((𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦) ↔ (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦)))
12		oveq2 5959	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋))
13		oveq2 5959	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋))
14	12, 13	eqeq12d 2221	. . . . . 6 ⊢ (𝑦 = 𝑋 → ((((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑦) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑦) ↔ (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋)))
15	11, 14	rspc2va 2892	. . . . 5 ⊢ (((((invg‘𝑆)‘𝑋) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝑀)𝑦) = (𝑥(+g‘𝑆)𝑦)) → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋))
16	5, 6, 8, 15	syl21anc 1249	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋))
17		eqid 2206	. . . . . 6 ⊢ (+g‘𝑆) = (+g‘𝑆)
18		eqid 2206	. . . . . 6 ⊢ (0g‘𝑆) = (0g‘𝑆)
19	2, 17, 18, 3	grplinv 13426	. . . . 5 ⊢ ((𝑆 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋) = (0g‘𝑆))
20	1, 19	sylan 283	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑆)𝑋) = (0g‘𝑆))
21		grpidssd.m	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ Grp)
22		grpidssd.c	. . . . . . 7 ⊢ (𝜑 → 𝐵 ⊆ (Base‘𝑀))
23	22	sselda 3194	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ (Base‘𝑀))
24		eqid 2206	. . . . . . 7 ⊢ (Base‘𝑀) = (Base‘𝑀)
25		eqid 2206	. . . . . . 7 ⊢ (+g‘𝑀) = (+g‘𝑀)
26		eqid 2206	. . . . . . 7 ⊢ (0g‘𝑀) = (0g‘𝑀)
27		eqid 2206	. . . . . . 7 ⊢ (invg‘𝑀) = (invg‘𝑀)
28	24, 25, 26, 27	grplinv 13426	. . . . . 6 ⊢ ((𝑀 ∈ Grp ∧ 𝑋 ∈ (Base‘𝑀)) → (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) = (0g‘𝑀))
29	21, 23, 28	syl2an2r 595	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) = (0g‘𝑀))
30	21, 1, 2, 22, 7	grpidssd 13452	. . . . . 6 ⊢ (𝜑 → (0g‘𝑀) = (0g‘𝑆))
31	30	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (0g‘𝑀) = (0g‘𝑆))
32	29, 31	eqtr2d 2240	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (0g‘𝑆) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋))
33	16, 20, 32	3eqtrd 2243	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → (((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋))
34	21	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝑀 ∈ Grp)
35	22	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → 𝐵 ⊆ (Base‘𝑀))
36	35, 5	sseldd 3195	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) ∈ (Base‘𝑀))
37	24, 27	grpinvcl 13424	. . . . 5 ⊢ ((𝑀 ∈ Grp ∧ 𝑋 ∈ (Base‘𝑀)) → ((invg‘𝑀)‘𝑋) ∈ (Base‘𝑀))
38	21, 23, 37	syl2an2r 595	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑀)‘𝑋) ∈ (Base‘𝑀))
39	24, 25	grprcan 13413	. . . 4 ⊢ ((𝑀 ∈ Grp ∧ (((invg‘𝑆)‘𝑋) ∈ (Base‘𝑀) ∧ ((invg‘𝑀)‘𝑋) ∈ (Base‘𝑀) ∧ 𝑋 ∈ (Base‘𝑀))) → ((((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) ↔ ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))
40	34, 36, 38, 23, 39	syl13anc 1252	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((((invg‘𝑆)‘𝑋)(+g‘𝑀)𝑋) = (((invg‘𝑀)‘𝑋)(+g‘𝑀)𝑋) ↔ ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))
41	33, 40	mpbid 147	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐵) → ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋))
42	41	ex 115	1 ⊢ (𝜑 → (𝑋 ∈ 𝐵 → ((invg‘𝑆)‘𝑋) = ((invg‘𝑀)‘𝑋)))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1373   ∈ wcel 2177  ∀wral 2485   ⊆ wss 3167  ‘cfv 5276  (class class class)co 5951  Basecbs 12876  +_gcplusg 12953  0_gc0g 13132  Grpcgrp 13376  inv_gcminusg 13377

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-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-coll 4163  ax-sep 4166  ax-pow 4222  ax-pr 4257  ax-un 4484  ax-cnex 8023  ax-resscn 8024  ax-1re 8026  ax-addrcl 8029

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ral 2490  df-rex 2491  df-reu 2492  df-rmo 2493  df-rab 2494  df-v 2775  df-sbc 3000  df-csb 3095  df-un 3171  df-in 3173  df-ss 3180  df-pw 3619  df-sn 3640  df-pr 3641  df-op 3643  df-uni 3853  df-int 3888  df-iun 3931  df-br 4048  df-opab 4110  df-mpt 4111  df-id 4344  df-xp 4685  df-rel 4686  df-cnv 4687  df-co 4688  df-dm 4689  df-rn 4690  df-res 4691  df-ima 4692  df-iota 5237  df-fun 5278  df-fn 5279  df-f 5280  df-f1 5281  df-fo 5282  df-f1o 5283  df-fv 5284  df-riota 5906  df-ov 5954  df-inn 9044  df-2 9102  df-ndx 12879  df-slot 12880  df-base 12882  df-plusg 12966  df-0g 13134  df-mgm 13232  df-sgrp 13278  df-mnd 13293  df-grp 13379  df-minusg 13380

This theorem is referenced by:  grpissubg  13574