Theorem grpidpropdg 13281

Description: If two structures have the same base set, and the values of their group (addition) operations are equal for all pairs of elements of the base set, they have the same identity element. (Contributed by Mario Carneiro, 27-Nov-2014.)

Hypotheses

Ref	Expression
grpidpropd.1	|- ( ph -> B = ( Base ` K ) )
grpidpropd.2	|- ( ph -> B = ( Base ` L ) )
grpidproddg.k	|- ( ph -> K e. V )
grpidproddg.l	|- ( ph -> L e. W )
grpidpropd.3	|- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) = ( x ( +g ` L ) y ) )

Assertion

Ref	Expression
grpidpropdg	|- ( ph -> ( 0g ` K ) = ( 0g ` L ) )

Distinct variable groups:   x, y, B   x, K, y   ph, x, y   x, L, y

Allowed substitution hints:   V( x, y)   W( x, y)

Proof of Theorem grpidpropdg

Dummy variables w z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		grpidpropd.3	. . . . . . . . 9 |- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( x ( +g ` K ) y ) = ( x ( +g ` L ) y ) )
2	1	eqeq1d 2215	. . . . . . . 8 |- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( ( x ( +g ` K ) y ) = y <-> ( x ( +g ` L ) y ) = y ) )
3	1	oveqrspc2v 5984	. . . . . . . . . . 11 |- ( ( ph /\ ( z e. B /\ w e. B ) ) -> ( z ( +g ` K ) w ) = ( z ( +g ` L ) w ) )
4	3	oveqrspc2v 5984	. . . . . . . . . 10 |- ( ( ph /\ ( y e. B /\ x e. B ) ) -> ( y ( +g ` K ) x ) = ( y ( +g ` L ) x ) )
5	4	ancom2s 566	. . . . . . . . 9 |- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( y ( +g ` K ) x ) = ( y ( +g ` L ) x ) )
6	5	eqeq1d 2215	. . . . . . . 8 |- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( ( y ( +g ` K ) x ) = y <-> ( y ( +g ` L ) x ) = y ) )
7	2, 6	anbi12d 473	. . . . . . 7 |- ( ( ph /\ ( x e. B /\ y e. B ) ) -> ( ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) <-> ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) )
8	7	anassrs 400	. . . . . 6 |- ( ( ( ph /\ x e. B ) /\ y e. B ) -> ( ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) <-> ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) )
9	8	ralbidva 2503	. . . . 5 |- ( ( ph /\ x e. B ) -> ( A. y e. B ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) <-> A. y e. B ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) )
10	9	pm5.32da 452	. . . 4 |- ( ph -> ( ( x e. B /\ A. y e. B ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) <-> ( x e. B /\ A. y e. B ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) ) )
11		grpidpropd.1	. . . . . 6 |- ( ph -> B = ( Base ` K ) )
12	11	eleq2d 2276	. . . . 5 |- ( ph -> ( x e. B <-> x e. ( Base ` K ) ) )
13	11	raleqdv 2709	. . . . 5 |- ( ph -> ( A. y e. B ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) <-> A. y e. ( Base ` K ) ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) )
14	12, 13	anbi12d 473	. . . 4 |- ( ph -> ( ( x e. B /\ A. y e. B ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) <-> ( x e. ( Base ` K ) /\ A. y e. ( Base ` K ) ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) ) )
15		grpidpropd.2	. . . . . 6 |- ( ph -> B = ( Base ` L ) )
16	15	eleq2d 2276	. . . . 5 |- ( ph -> ( x e. B <-> x e. ( Base ` L ) ) )
17	15	raleqdv 2709	. . . . 5 |- ( ph -> ( A. y e. B ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) <-> A. y e. ( Base ` L ) ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) )
18	16, 17	anbi12d 473	. . . 4 |- ( ph -> ( ( x e. B /\ A. y e. B ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) <-> ( x e. ( Base ` L ) /\ A. y e. ( Base ` L ) ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) ) )
19	10, 14, 18	3bitr3d 218	. . 3 |- ( ph -> ( ( x e. ( Base ` K ) /\ A. y e. ( Base ` K ) ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) <-> ( x e. ( Base ` L ) /\ A. y e. ( Base ` L ) ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) ) )
20	19	iotabidv 5263	. 2 |- ( ph -> ( iota x ( x e. ( Base ` K ) /\ A. y e. ( Base ` K ) ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) ) = ( iota x ( x e. ( Base ` L ) /\ A. y e. ( Base ` L ) ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) ) )
21		grpidproddg.k	. . 3 |- ( ph -> K e. V )
22		eqid 2206	. . . 4 |- ( Base ` K ) = ( Base ` K )
23		eqid 2206	. . . 4 |- ( +g ` K ) = ( +g ` K )
24		eqid 2206	. . . 4 |- ( 0g ` K ) = ( 0g ` K )
25	22, 23, 24	grpidvalg 13280	. . 3 |- ( K e. V -> ( 0g ` K ) = ( iota x ( x e. ( Base ` K ) /\ A. y e. ( Base ` K ) ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) ) )
26	21, 25	syl 14	. 2 |- ( ph -> ( 0g ` K ) = ( iota x ( x e. ( Base ` K ) /\ A. y e. ( Base ` K ) ( ( x ( +g ` K ) y ) = y /\ ( y ( +g ` K ) x ) = y ) ) ) )
27		grpidproddg.l	. . 3 |- ( ph -> L e. W )
28		eqid 2206	. . . 4 |- ( Base ` L ) = ( Base ` L )
29		eqid 2206	. . . 4 |- ( +g ` L ) = ( +g ` L )
30		eqid 2206	. . . 4 |- ( 0g ` L ) = ( 0g ` L )
31	28, 29, 30	grpidvalg 13280	. . 3 |- ( L e. W -> ( 0g ` L ) = ( iota x ( x e. ( Base ` L ) /\ A. y e. ( Base ` L ) ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) ) )
32	27, 31	syl 14	. 2 |- ( ph -> ( 0g ` L ) = ( iota x ( x e. ( Base ` L ) /\ A. y e. ( Base ` L ) ( ( x ( +g ` L ) y ) = y /\ ( y ( +g ` L ) x ) = y ) ) ) )
33	20, 26, 32	3eqtr4d 2249	1 |- ( ph -> ( 0g ` K ) = ( 0g ` L ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1373   e. wcel 2177   A.wral 2485   iotacio 5239   ` cfv 5280  (class class class)co 5957   Basecbs 12907   +g cplusg 12984   0gc0g 13163

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-sep 4170  ax-pow 4226  ax-pr 4261  ax-un 4488  ax-cnex 8036  ax-resscn 8037  ax-1re 8039  ax-addrcl 8042

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-v 2775  df-sbc 3003  df-csb 3098  df-un 3174  df-in 3176  df-ss 3183  df-pw 3623  df-sn 3644  df-pr 3645  df-op 3647  df-uni 3857  df-int 3892  df-br 4052  df-opab 4114  df-mpt 4115  df-id 4348  df-xp 4689  df-rel 4690  df-cnv 4691  df-co 4692  df-dm 4693  df-rn 4694  df-res 4695  df-iota 5241  df-fun 5282  df-fn 5283  df-fv 5288  df-riota 5912  df-ov 5960  df-inn 9057  df-ndx 12910  df-slot 12911  df-base 12913  df-0g 13165

This theorem is referenced by:  gsumpropd  13299  gsumpropd2  13300  mhmpropd  13373  grppropd  13424  grpinvpropdg  13482  mulgpropdg  13575  rngidpropdg  13983  sralmod0g  14288