Theorem grpinvssd 13790

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	|- ( ph -> M e. Grp )
grpidssd.s	|- ( ph -> S e. Grp )
grpidssd.b	|- B = ( Base ` S )
grpidssd.c	|- ( ph -> B C_ ( Base ` M ) )
grpidssd.o	|- ( ph -> A. x e. B A. y e. B ( x ( +g ` M ) y ) = ( x ( +g ` S ) y ) )

Assertion

Ref	Expression
grpinvssd	|- ( ph -> ( X e. B -> ( ( invg ` S ) ` X ) = ( ( invg ` M ) ` X ) ) )

Distinct variable groups:   x, B, y   x, M, y   x, S, y   x, X, y

Allowed substitution hints:   ph( x, y)

Proof of Theorem grpinvssd

Step	Hyp	Ref	Expression
1		grpidssd.s	. . . . . 6 |- ( ph -> S e. Grp )
2		grpidssd.b	. . . . . . 7 |- B = ( Base ` S )
3		eqid 2232	. . . . . . 7 |- ( invg ` S ) = ( invg ` S )
4	2, 3	grpinvcl 13761	. . . . . 6 |- ( ( S e. Grp /\ X e. B ) -> ( ( invg ` S ) ` X ) e. B )
5	1, 4	sylan 283	. . . . 5 |- ( ( ph /\ X e. B ) -> ( ( invg ` S ) ` X ) e. B )
6		simpr 110	. . . . 5 |- ( ( ph /\ X e. B ) -> X e. B )
7		grpidssd.o	. . . . . 6 |- ( ph -> A. x e. B A. y e. B ( x ( +g ` M ) y ) = ( x ( +g ` S ) y ) )
8	7	adantr 276	. . . . 5 |- ( ( ph /\ X e. B ) -> A. x e. B A. y e. B ( x ( +g ` M ) y ) = ( x ( +g ` S ) y ) )
9		oveq1 6057	. . . . . . 7 |- ( x = ( ( invg ` S ) ` X ) -> ( x ( +g ` M ) y ) = ( ( ( invg ` S ) ` X ) ( +g ` M ) y ) )
10		oveq1 6057	. . . . . . 7 |- ( x = ( ( invg ` S ) ` X ) -> ( x ( +g ` S ) y ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) y ) )
11	9, 10	eqeq12d 2247	. . . . . 6 |- ( x = ( ( invg ` S ) ` X ) -> ( ( x ( +g ` M ) y ) = ( x ( +g ` S ) y ) <-> ( ( ( invg ` S ) ` X ) ( +g ` M ) y ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) y ) ) )
12		oveq2 6058	. . . . . . 7 |- ( y = X -> ( ( ( invg ` S ) ` X ) ( +g ` M ) y ) = ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) )
13		oveq2 6058	. . . . . . 7 |- ( y = X -> ( ( ( invg ` S ) ` X ) ( +g ` S ) y ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) X ) )
14	12, 13	eqeq12d 2247	. . . . . 6 |- ( y = X -> ( ( ( ( invg ` S ) ` X ) ( +g ` M ) y ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) y ) <-> ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) X ) ) )
15	11, 14	rspc2va 2935	. . . . 5 |- ( ( ( ( ( invg ` S ) ` X ) e. B /\ X e. B ) /\ A. x e. B A. y e. B ( x ( +g ` M ) y ) = ( x ( +g ` S ) y ) ) -> ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) X ) )
16	5, 6, 8, 15	syl21anc 1273	. . . 4 |- ( ( ph /\ X e. B ) -> ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) = ( ( ( invg ` S ) ` X ) ( +g ` S ) X ) )
17		eqid 2232	. . . . . 6 |- ( +g ` S ) = ( +g ` S )
18		eqid 2232	. . . . . 6 |- ( 0g ` S ) = ( 0g ` S )
19	2, 17, 18, 3	grplinv 13763	. . . . 5 |- ( ( S e. Grp /\ X e. B ) -> ( ( ( invg ` S ) ` X ) ( +g ` S ) X ) = ( 0g ` S ) )
20	1, 19	sylan 283	. . . 4 |- ( ( ph /\ X e. B ) -> ( ( ( invg ` S ) ` X ) ( +g ` S ) X ) = ( 0g ` S ) )
21		grpidssd.m	. . . . . 6 |- ( ph -> M e. Grp )
22		grpidssd.c	. . . . . . 7 |- ( ph -> B C_ ( Base ` M ) )
23	22	sselda 3238	. . . . . 6 |- ( ( ph /\ X e. B ) -> X e. ( Base ` M ) )
24		eqid 2232	. . . . . . 7 |- ( Base ` M ) = ( Base ` M )
25		eqid 2232	. . . . . . 7 |- ( +g ` M ) = ( +g ` M )
26		eqid 2232	. . . . . . 7 |- ( 0g ` M ) = ( 0g ` M )
27		eqid 2232	. . . . . . 7 |- ( invg ` M ) = ( invg ` M )
28	24, 25, 26, 27	grplinv 13763	. . . . . 6 |- ( ( M e. Grp /\ X e. ( Base ` M ) ) -> ( ( ( invg ` M ) ` X ) ( +g ` M ) X ) = ( 0g ` M ) )
29	21, 23, 28	syl2an2r 599	. . . . 5 |- ( ( ph /\ X e. B ) -> ( ( ( invg ` M ) ` X ) ( +g ` M ) X ) = ( 0g ` M ) )
30	21, 1, 2, 22, 7	grpidssd 13789	. . . . . 6 |- ( ph -> ( 0g ` M ) = ( 0g ` S ) )
31	30	adantr 276	. . . . 5 |- ( ( ph /\ X e. B ) -> ( 0g ` M ) = ( 0g ` S ) )
32	29, 31	eqtr2d 2266	. . . 4 |- ( ( ph /\ X e. B ) -> ( 0g ` S ) = ( ( ( invg ` M ) ` X ) ( +g ` M ) X ) )
33	16, 20, 32	3eqtrd 2269	. . 3 |- ( ( ph /\ X e. B ) -> ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) = ( ( ( invg ` M ) ` X ) ( +g ` M ) X ) )
34	21	adantr 276	. . . 4 |- ( ( ph /\ X e. B ) -> M e. Grp )
35	22	adantr 276	. . . . 5 |- ( ( ph /\ X e. B ) -> B C_ ( Base ` M ) )
36	35, 5	sseldd 3239	. . . 4 |- ( ( ph /\ X e. B ) -> ( ( invg ` S ) ` X ) e. ( Base ` M ) )
37	24, 27	grpinvcl 13761	. . . . 5 |- ( ( M e. Grp /\ X e. ( Base ` M ) ) -> ( ( invg ` M ) ` X ) e. ( Base ` M ) )
38	21, 23, 37	syl2an2r 599	. . . 4 |- ( ( ph /\ X e. B ) -> ( ( invg ` M ) ` X ) e. ( Base ` M ) )
39	24, 25	grprcan 13750	. . . 4 |- ( ( M e. Grp /\ ( ( ( invg ` S ) ` X ) e. ( Base ` M ) /\ ( ( invg ` M ) ` X ) e. ( Base ` M ) /\ X e. ( Base ` M ) ) ) -> ( ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) = ( ( ( invg ` M ) ` X ) ( +g ` M ) X ) <-> ( ( invg ` S ) ` X ) = ( ( invg ` M ) ` X ) ) )
40	34, 36, 38, 23, 39	syl13anc 1276	. . 3 |- ( ( ph /\ X e. B ) -> ( ( ( ( invg ` S ) ` X ) ( +g ` M ) X ) = ( ( ( invg ` M ) ` X ) ( +g ` M ) X ) <-> ( ( invg ` S ) ` X ) = ( ( invg ` M ) ` X ) ) )
41	33, 40	mpbid 147	. 2 |- ( ( ph /\ X e. B ) -> ( ( invg ` S ) ` X ) = ( ( invg ` M ) ` X ) )
42	41	ex 115	1 |- ( ph -> ( X e. B -> ( ( invg ` S ) ` X ) = ( ( invg ` M ) ` X ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1398   e. wcel 2203   A.wral 2520   C_ wss 3211   ` cfv 5352  (class class class)co 6050   Basecbs 13212   +g cplusg 13290   0gc0g 13469   Grpcgrp 13713   invgcminusg 13714

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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4225  ax-sep 4228  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-cnex 8218  ax-resscn 8219  ax-1re 8221  ax-addrcl 8224

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-reu 2527  df-rmo 2528  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-un 3215  df-in 3217  df-ss 3224  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-iun 3993  df-br 4110  df-opab 4172  df-mpt 4173  df-id 4414  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-riota 6003  df-ov 6053  df-inn 9238  df-2 9296  df-ndx 13215  df-slot 13216  df-base 13218  df-plusg 13303  df-0g 13471  df-mgm 13569  df-sgrp 13615  df-mnd 13630  df-grp 13716  df-minusg 13717

This theorem is referenced by:  grpissubg  13911