Theorem grprcan 19030

Description: Right cancellation law for groups. (Contributed by NM, 24-Aug-2011.) (Proof shortened by Mario Carneiro, 6-Jan-2015.)

Hypotheses

Ref	Expression
grprcan.b	⊢ 𝐵 = (Base‘𝐺)
grprcan.p	⊢ + = (+g‘𝐺)

Assertion

Ref	Expression
grprcan	⊢ ((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 + 𝑍) = (𝑌 + 𝑍) ↔ 𝑋 = 𝑌))

Proof of Theorem grprcan

Dummy variables 𝑣 𝑢 𝑤 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		grprcan.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐺)
2		grprcan.p	. . . . 5 ⊢ + = (+g‘𝐺)
3		eqid 2765	. . . . 5 ⊢ (0g‘𝐺) = (0g‘𝐺)
4	1, 2, 3	grpinvex 19000	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝑍 ∈ 𝐵) → ∃𝑦 ∈ 𝐵 (𝑦 + 𝑍) = (0g‘𝐺))
5	4	3ad2antr3 1207	. . 3 ⊢ ((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ∃𝑦 ∈ 𝐵 (𝑦 + 𝑍) = (0g‘𝐺))
6		simprr 784	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑋 + 𝑍) = (𝑌 + 𝑍))
7	6	oveq1d 7415	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → ((𝑋 + 𝑍) + 𝑦) = ((𝑌 + 𝑍) + 𝑦))
8		simpll 778	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → 𝐺 ∈ Grp)
9	1, 2	grpass 18999	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢 + 𝑣) + 𝑤) = (𝑢 + (𝑣 + 𝑤)))
10	8, 9	sylan 591	. . . . . . . 8 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢 + 𝑣) + 𝑤) = (𝑢 + (𝑣 + 𝑤)))
11		simplr1 1232	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → 𝑋 ∈ 𝐵)
12		simplr3 1234	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → 𝑍 ∈ 𝐵)
13		simprll 790	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → 𝑦 ∈ 𝐵)
14	10, 11, 12, 13	caovassd 7599	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → ((𝑋 + 𝑍) + 𝑦) = (𝑋 + (𝑍 + 𝑦)))
15		simplr2 1233	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → 𝑌 ∈ 𝐵)
16	10, 15, 12, 13	caovassd 7599	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → ((𝑌 + 𝑍) + 𝑦) = (𝑌 + (𝑍 + 𝑦)))
17	7, 14, 16	3eqtr3d 2808	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑋 + (𝑍 + 𝑦)) = (𝑌 + (𝑍 + 𝑦)))
18	1, 2	grpcl 18998	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Grp ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) → (𝑢 + 𝑣) ∈ 𝐵)
19	8, 18	syl3an1 1179	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) → (𝑢 + 𝑣) ∈ 𝐵)
20	1, 3	grpidcl 19022	. . . . . . . . . 10 ⊢ (𝐺 ∈ Grp → (0g‘𝐺) ∈ 𝐵)
21	8, 20	syl 18	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (0g‘𝐺) ∈ 𝐵)
22	1, 2, 3	grplid 19024	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Grp ∧ 𝑢 ∈ 𝐵) → ((0g‘𝐺) + 𝑢) = 𝑢)
23	8, 22	sylan 591	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑢 ∈ 𝐵) → ((0g‘𝐺) + 𝑢) = 𝑢)
24	1, 2, 3	grpinvex 19000	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Grp ∧ 𝑢 ∈ 𝐵) → ∃𝑣 ∈ 𝐵 (𝑣 + 𝑢) = (0g‘𝐺))
25	8, 24	sylan 591	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑢 ∈ 𝐵) → ∃𝑣 ∈ 𝐵 (𝑣 + 𝑢) = (0g‘𝐺))
26		simpr 489	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑍 ∈ 𝐵) → 𝑍 ∈ 𝐵)
27	13	adantr 485	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑍 ∈ 𝐵) → 𝑦 ∈ 𝐵)
28		simprlr 791	. . . . . . . . . 10 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑦 + 𝑍) = (0g‘𝐺))
29	28	adantr 485	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑍 ∈ 𝐵) → (𝑦 + 𝑍) = (0g‘𝐺))
30	19, 21, 23, 10, 25, 26, 27, 29	grpinva 18722	. . . . . . . 8 ⊢ ((((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) ∧ 𝑍 ∈ 𝐵) → (𝑍 + 𝑦) = (0g‘𝐺))
31	12, 30	mpdan 699	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑍 + 𝑦) = (0g‘𝐺))
32	31	oveq2d 7416	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑋 + (𝑍 + 𝑦)) = (𝑋 + (0g‘𝐺)))
33	31	oveq2d 7416	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑌 + (𝑍 + 𝑦)) = (𝑌 + (0g‘𝐺)))
34	17, 32, 33	3eqtr3d 2808	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑋 + (0g‘𝐺)) = (𝑌 + (0g‘𝐺)))
35	1, 2, 3, 8, 11	grpridd 19027	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑋 + (0g‘𝐺)) = 𝑋)
36	1, 2, 3, 8, 15	grpridd 19027	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → (𝑌 + (0g‘𝐺)) = 𝑌)
37	34, 35, 36	3eqtr3d 2808	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ ((𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺)) ∧ (𝑋 + 𝑍) = (𝑌 + 𝑍))) → 𝑋 = 𝑌)
38	37	expr 461	. . 3 ⊢ (((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) ∧ (𝑦 ∈ 𝐵 ∧ (𝑦 + 𝑍) = (0g‘𝐺))) → ((𝑋 + 𝑍) = (𝑌 + 𝑍) → 𝑋 = 𝑌))
39	5, 38	rexlimddv 3172	. 2 ⊢ ((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 + 𝑍) = (𝑌 + 𝑍) → 𝑋 = 𝑌))
40		oveq1 7407	. 2 ⊢ (𝑋 = 𝑌 → (𝑋 + 𝑍) = (𝑌 + 𝑍))
41	39, 40	impbid1 228	1 ⊢ ((𝐺 ∈ Grp ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 + 𝑍) = (𝑌 + 𝑍) ↔ 𝑋 = 𝑌))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1563   ∈ wcel 2145  ∃wrex 3089  ‘cfv 6525  (class class class)co 7400  Basecbs 17259  +_gcplusg 17300  0_gc0g 17482  Grpcgrp 18990

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-pr 5395

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-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-iota 6481  df-fun 6527  df-fv 6533  df-riota 7357  df-ov 7403  df-0g 17484  df-mgm 18688  df-sgrp 18767  df-mnd 18783  df-grp 18993

This theorem is referenced by:  grpinveu  19031  grpid  19032  grpidlcan  19061  grpraddf1o  19071  grpinvssd  19074  grpsubrcan  19078  grpsubadd  19085  sylow1lem4  19662  ogrpaddlt  20199  rngrz  20235  ringcom  20354  rhmunitinv  20585  lmodcom  20998  r1pid2  26280  cntrval2  33404  ply1dg1rt  33787  grpcominv1  43142  isnumbasgrplem2  43693  grptcepi  50223