Theorem mulgneg2 19368

Description: Group multiple (exponentiation) operation at a negative integer. (Contributed by Mario Carneiro, 13-Dec-2014.)

Hypotheses

Ref	Expression
mulgneg2.b	⊢ 𝐵 = (Base‘𝐺)
mulgneg2.m	⊢ · = (.g‘𝐺)
mulgneg2.i	⊢ 𝐼 = (invg‘𝐺)

Assertion

Ref	Expression
mulgneg2	⊢ ((𝐺 ∈ Grp ∧ 𝑁 ∈ ℤ ∧ 𝑋 ∈ 𝐵) → ( -𝑁 · 𝑋) = (𝑁 · (𝐼‘𝑋)))

Proof of Theorem mulgneg2

Dummy variables 𝑥 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		negeq 11588	. . . . . . 7 ⊢ (𝑥 = 0 → -𝑥 = -0)
2		neg0 11643	. . . . . . 7 ⊢ -0 = 0
3	1, 2	eqtrdi 2814	. . . . . 6 ⊢ (𝑥 = 0 → -𝑥 = 0)
4	3	oveq1d 7466	. . . . 5 ⊢ (𝑥 = 0 → ( -𝑥 · 𝑋) = (0 · 𝑋))
5		oveq1 7458	. . . . 5 ⊢ (𝑥 = 0 → (𝑥 · (𝐼‘𝑋)) = (0 · (𝐼‘𝑋)))
6	4, 5	eqeq12d 2779	. . . 4 ⊢ (𝑥 = 0 → (( -𝑥 · 𝑋) = (𝑥 · (𝐼‘𝑋)) ↔ (0 · 𝑋) = (0 · (𝐼‘𝑋))))
7		negeq 11588	. . . . . 6 ⊢ (𝑥 = 𝑛 → -𝑥 = -𝑛)
8	7	oveq1d 7466	. . . . 5 ⊢ (𝑥 = 𝑛 → ( -𝑥 · 𝑋) = ( -𝑛 · 𝑋))
9		oveq1 7458	. . . . 5 ⊢ (𝑥 = 𝑛 → (𝑥 · (𝐼‘𝑋)) = (𝑛 · (𝐼‘𝑋)))
10	8, 9	eqeq12d 2779	. . . 4 ⊢ (𝑥 = 𝑛 → (( -𝑥 · 𝑋) = (𝑥 · (𝐼‘𝑋)) ↔ ( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋))))
11		negeq 11588	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → -𝑥 = -(𝑛 + 1))
12	11	oveq1d 7466	. . . . 5 ⊢ (𝑥 = (𝑛 + 1) → ( -𝑥 · 𝑋) = ( -(𝑛 + 1) · 𝑋))
13		oveq1 7458	. . . . 5 ⊢ (𝑥 = (𝑛 + 1) → (𝑥 · (𝐼‘𝑋)) = ((𝑛 + 1) · (𝐼‘𝑋)))
14	12, 13	eqeq12d 2779	. . . 4 ⊢ (𝑥 = (𝑛 + 1) → (( -𝑥 · 𝑋) = (𝑥 · (𝐼‘𝑋)) ↔ ( -(𝑛 + 1) · 𝑋) = ((𝑛 + 1) · (𝐼‘𝑋))))
15		negeq 11588	. . . . . 6 ⊢ (𝑥 = -𝑛 → -𝑥 = - -𝑛)
16	15	oveq1d 7466	. . . . 5 ⊢ (𝑥 = -𝑛 → ( -𝑥 · 𝑋) = ( - -𝑛 · 𝑋))
17		oveq1 7458	. . . . 5 ⊢ (𝑥 = -𝑛 → (𝑥 · (𝐼‘𝑋)) = ( -𝑛 · (𝐼‘𝑋)))
18	16, 17	eqeq12d 2779	. . . 4 ⊢ (𝑥 = -𝑛 → (( -𝑥 · 𝑋) = (𝑥 · (𝐼‘𝑋)) ↔ ( - -𝑛 · 𝑋) = ( -𝑛 · (𝐼‘𝑋))))
19		negeq 11588	. . . . . 6 ⊢ (𝑥 = 𝑁 → -𝑥 = -𝑁)
20	19	oveq1d 7466	. . . . 5 ⊢ (𝑥 = 𝑁 → ( -𝑥 · 𝑋) = ( -𝑁 · 𝑋))
21		oveq1 7458	. . . . 5 ⊢ (𝑥 = 𝑁 → (𝑥 · (𝐼‘𝑋)) = (𝑁 · (𝐼‘𝑋)))
22	20, 21	eqeq12d 2779	. . . 4 ⊢ (𝑥 = 𝑁 → (( -𝑥 · 𝑋) = (𝑥 · (𝐼‘𝑋)) ↔ ( -𝑁 · 𝑋) = (𝑁 · (𝐼‘𝑋))))
23		mulgneg2.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐺)
24		eqid 2763	. . . . . . 7 ⊢ (0g‘𝐺) = (0g‘𝐺)
25		mulgneg2.m	. . . . . . 7 ⊢ · = (.g‘𝐺)
26	23, 24, 25	mulg0 19334	. . . . . 6 ⊢ (𝑋 ∈ 𝐵 → (0 · 𝑋) = (0g‘𝐺))
27	26	adantl 487	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (0 · 𝑋) = (0g‘𝐺))
28		mulgneg2.i	. . . . . . 7 ⊢ 𝐼 = (invg‘𝐺)
29	23, 28	grpinvcl 19248	. . . . . 6 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (𝐼‘𝑋) ∈ 𝐵)
30	23, 24, 25	mulg0 19334	. . . . . 6 ⊢ ((𝐼‘𝑋) ∈ 𝐵 → (0 · (𝐼‘𝑋)) = (0g‘𝐺))
31	29, 30	syl 18	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (0 · (𝐼‘𝑋)) = (0g‘𝐺))
32	27, 31	eqtr4d 2801	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (0 · 𝑋) = (0 · (𝐼‘𝑋)))
33		oveq1 7458	. . . . . 6 ⊢ (( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋)) → (( -𝑛 · 𝑋)(+g‘𝐺)(𝐼‘𝑋)) = ((𝑛 · (𝐼‘𝑋))(+g‘𝐺)(𝐼‘𝑋)))
34		nn0cn 12656	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ0 → 𝑛 ∈ ℂ)
35	34	adantl 487	. . . . . . . . . 10 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑛 ∈ ℂ)
36		ax-1cn 11297	. . . . . . . . . 10 ⊢ 1 ∈ ℂ
37		negdi 11654	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → -(𝑛 + 1) = ( -𝑛 + -1))
38	35, 36, 37	sylancl 598	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → -(𝑛 + 1) = ( -𝑛 + -1))
39	38	oveq1d 7466	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ( -(𝑛 + 1) · 𝑋) = (( -𝑛 + -1) · 𝑋))
40		simpll 779	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝐺 ∈ Grp)
41		nn0negz 12774	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ0 → -𝑛 ∈ ℤ)
42	41	adantl 487	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → -𝑛 ∈ ℤ)
43		1z 12766	. . . . . . . . . 10 ⊢ 1 ∈ ℤ
44		znegcl 12771	. . . . . . . . . 10 ⊢ (1 ∈ ℤ → -1 ∈ ℤ)
45	43, 44	mp1i 14	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → -1 ∈ ℤ)
46		simplr 781	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑋 ∈ 𝐵)
47		eqid 2763	. . . . . . . . . 10 ⊢ (+g‘𝐺) = (+g‘𝐺)
48	23, 25, 47	mulgdir 19366	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ ( -𝑛 ∈ ℤ ∧ -1 ∈ ℤ ∧ 𝑋 ∈ 𝐵)) → (( -𝑛 + -1) · 𝑋) = (( -𝑛 · 𝑋)(+g‘𝐺)( -1 · 𝑋)))
49	40, 42, 45, 46, 48	syl13anc 1400	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (( -𝑛 + -1) · 𝑋) = (( -𝑛 · 𝑋)(+g‘𝐺)( -1 · 𝑋)))
50	23, 25, 28	mulgm1 19354	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → ( -1 · 𝑋) = (𝐼‘𝑋))
51	50	adantr 486	. . . . . . . . 9 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ( -1 · 𝑋) = (𝐼‘𝑋))
52	51	oveq2d 7467	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (( -𝑛 · 𝑋)(+g‘𝐺)( -1 · 𝑋)) = (( -𝑛 · 𝑋)(+g‘𝐺)(𝐼‘𝑋)))
53	39, 49, 52	3eqtrd 2802	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ( -(𝑛 + 1) · 𝑋) = (( -𝑛 · 𝑋)(+g‘𝐺)(𝐼‘𝑋)))
54		grpmnd 19201	. . . . . . . . 9 ⊢ (𝐺 ∈ Grp → 𝐺 ∈ Mnd)
55	54	ad2antrr 739	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝐺 ∈ Mnd)
56		simpr 490	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑛 ∈ ℕ0)
57	29	adantr 486	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝐼‘𝑋) ∈ 𝐵)
58	23, 25, 47	mulgnn0p1 19345	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ 𝑛 ∈ ℕ0 ∧ (𝐼‘𝑋) ∈ 𝐵) → ((𝑛 + 1) · (𝐼‘𝑋)) = ((𝑛 · (𝐼‘𝑋))(+g‘𝐺)(𝐼‘𝑋)))
59	55, 56, 57, 58	syl3anc 1399	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑛 + 1) · (𝐼‘𝑋)) = ((𝑛 · (𝐼‘𝑋))(+g‘𝐺)(𝐼‘𝑋)))
60	53, 59	eqeq12d 2779	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (( -(𝑛 + 1) · 𝑋) = ((𝑛 + 1) · (𝐼‘𝑋)) ↔ (( -𝑛 · 𝑋)(+g‘𝐺)(𝐼‘𝑋)) = ((𝑛 · (𝐼‘𝑋))(+g‘𝐺)(𝐼‘𝑋))))
61	33, 60	imbitrrid 249	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋)) → ( -(𝑛 + 1) · 𝑋) = ((𝑛 + 1) · (𝐼‘𝑋))))
62	61	ex 418	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (𝑛 ∈ ℕ0 → (( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋)) → ( -(𝑛 + 1) · 𝑋) = ((𝑛 + 1) · (𝐼‘𝑋)))))
63		fveq2 6916	. . . . . 6 ⊢ (( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋)) → (𝐼‘( -𝑛 · 𝑋)) = (𝐼‘(𝑛 · (𝐼‘𝑋))))
64		simpll 779	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → 𝐺 ∈ Grp)
65		nnnegz 12736	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → -𝑛 ∈ ℤ)
66	65	adantl 487	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → -𝑛 ∈ ℤ)
67		simplr 781	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → 𝑋 ∈ 𝐵)
68	23, 25, 28	mulgneg 19352	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ -𝑛 ∈ ℤ ∧ 𝑋 ∈ 𝐵) → ( - -𝑛 · 𝑋) = (𝐼‘( -𝑛 · 𝑋)))
69	64, 66, 67, 68	syl3anc 1399	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → ( - -𝑛 · 𝑋) = (𝐼‘( -𝑛 · 𝑋)))
70		id 23	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
71	23, 25, 28	mulgnegnn 19344	. . . . . . . 8 ⊢ ((𝑛 ∈ ℕ ∧ (𝐼‘𝑋) ∈ 𝐵) → ( -𝑛 · (𝐼‘𝑋)) = (𝐼‘(𝑛 · (𝐼‘𝑋))))
72	70, 29, 71	syl2anr 609	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → ( -𝑛 · (𝐼‘𝑋)) = (𝐼‘(𝑛 · (𝐼‘𝑋))))
73	69, 72	eqeq12d 2779	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → (( - -𝑛 · 𝑋) = ( -𝑛 · (𝐼‘𝑋)) ↔ (𝐼‘( -𝑛 · 𝑋)) = (𝐼‘(𝑛 · (𝐼‘𝑋)))))
74	63, 73	imbitrrid 249	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) ∧ 𝑛 ∈ ℕ) → (( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋)) → ( - -𝑛 · 𝑋) = ( -𝑛 · (𝐼‘𝑋))))
75	74	ex 418	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (𝑛 ∈ ℕ → (( -𝑛 · 𝑋) = (𝑛 · (𝐼‘𝑋)) → ( - -𝑛 · 𝑋) = ( -𝑛 · (𝐼‘𝑋)))))
76	6, 10, 14, 18, 22, 32, 62, 75	zindd 12840	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵) → (𝑁 ∈ ℤ → ( -𝑁 · 𝑋) = (𝑁 · (𝐼‘𝑋))))
77	76	3impia 1135	. 2 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℤ) → ( -𝑁 · 𝑋) = (𝑁 · (𝐼‘𝑋)))
78	77	3com23 1144	1 ⊢ ((𝐺 ∈ Grp ∧ 𝑁 ∈ ℤ ∧ 𝑋 ∈ 𝐵) → ( -𝑁 · 𝑋) = (𝑁 · (𝐼‘𝑋)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147  ‘cfv 6566  (class class class)co 7451  ℂcc 11237  0cc0 11239  1c1 11240   + caddc 11242   -cneg 11581  ℕcn 12375  ℕ₀cn0 12646  ℤcz 12733  Basecbs 17431  +_gcplusg 17472  0_gc0g 17660  Mndcmnd 18973  Grpcgrp 19194  inv_gcminusg 19195  ._gcmg 19327

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783  ax-cnex 11295  ax-resscn 11296  ax-1cn 11297  ax-icn 11298  ax-addcl 11299  ax-addrcl 11300  ax-mulcl 11301  ax-mulrcl 11302  ax-mulcom 11303  ax-addass 11304  ax-mulass 11305  ax-distr 11306  ax-i2m1 11307  ax-1ne0 11308  ax-1rid 11309  ax-rnegex 11310  ax-rrecex 11311  ax-cnre 11312  ax-pre-lttri 11313  ax-pre-lttrn 11314  ax-pre-ltadd 11315  ax-pre-mulgt0 11316

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-uni 4873  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-we 5613  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-pred 6330  df-ord 6391  df-on 6392  df-lim 6393  df-suc 6394  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-om 7912  df-1st 8035  df-2nd 8036  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-er 8755  df-en 9012  df-dom 9013  df-sdom 9014  df-pnf 11384  df-mnf 11385  df-xr 11386  df-ltxr 11387  df-le 11388  df-sub 11582  df-neg 11583  df-nn 12376  df-n0 12647  df-z 12734  df-uz 13006  df-fz 13680  df-seq 14185  df-0g 17662  df-mgm 18866  df-sgrp 18958  df-mnd 18974  df-grp 19197  df-minusg 19198  df-mulg 19328

This theorem is used by:  mulgass  19371  cyggeninv  20148