Theorem mhmmulg 19227

Description: A homomorphism of monoids preserves group multiples. (Contributed by Mario Carneiro, 14-Jun-2015.)

Hypotheses

Ref	Expression
mhmmulg.b	⊢ 𝐵 = (Base‘𝐺)
mhmmulg.s	⊢ · = (.g‘𝐺)
mhmmulg.t	⊢ × = (.g‘𝐻)

Assertion

Ref	Expression
mhmmulg	⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑁 ∈ ℕ0 ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))

Proof of Theorem mhmmulg

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

Step	Hyp	Ref	Expression
1		fvoveq1 7442	. . . . . 6 ⊢ (𝑛 = 0 → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘(0 · 𝑋)))
2		oveq1 7426	. . . . . 6 ⊢ (𝑛 = 0 → (𝑛 × (𝐹‘𝑋)) = (0 × (𝐹‘𝑋)))
3	1, 2	eqeq12d 2781	. . . . 5 ⊢ (𝑛 = 0 → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘(0 · 𝑋)) = (0 × (𝐹‘𝑋))))
4	3	imbi2d 343	. . . 4 ⊢ (𝑛 = 0 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0 · 𝑋)) = (0 × (𝐹‘𝑋)))))
5		fvoveq1 7442	. . . . . 6 ⊢ (𝑛 = 𝑚 → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘(𝑚 · 𝑋)))
6		oveq1 7426	. . . . . 6 ⊢ (𝑛 = 𝑚 → (𝑛 × (𝐹‘𝑋)) = (𝑚 × (𝐹‘𝑋)))
7	5, 6	eqeq12d 2781	. . . . 5 ⊢ (𝑛 = 𝑚 → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋))))
8	7	imbi2d 343	. . . 4 ⊢ (𝑛 = 𝑚 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)))))
9		fvoveq1 7442	. . . . . 6 ⊢ (𝑛 = (𝑚 + 1) → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘((𝑚 + 1) · 𝑋)))
10		oveq1 7426	. . . . . 6 ⊢ (𝑛 = (𝑚 + 1) → (𝑛 × (𝐹‘𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))
11	9, 10	eqeq12d 2781	. . . . 5 ⊢ (𝑛 = (𝑚 + 1) → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋))))
12	11	imbi2d 343	. . . 4 ⊢ (𝑛 = (𝑚 + 1) → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))))
13		fvoveq1 7442	. . . . . 6 ⊢ (𝑛 = 𝑁 → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘(𝑁 · 𝑋)))
14		oveq1 7426	. . . . . 6 ⊢ (𝑛 = 𝑁 → (𝑛 × (𝐹‘𝑋)) = (𝑁 × (𝐹‘𝑋)))
15	13, 14	eqeq12d 2781	. . . . 5 ⊢ (𝑛 = 𝑁 → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋))))
16	15	imbi2d 343	. . . 4 ⊢ (𝑛 = 𝑁 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))))
17		eqid 2765	. . . . . . 7 ⊢ (0g‘𝐺) = (0g‘𝐺)
18		eqid 2765	. . . . . . 7 ⊢ (0g‘𝐻) = (0g‘𝐻)
19	17, 18	mhm0 18891	. . . . . 6 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → (𝐹‘(0g‘𝐺)) = (0g‘𝐻))
20	19	adantr 486	. . . . 5 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0g‘𝐺)) = (0g‘𝐻))
21		mhmmulg.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐺)
22		mhmmulg.s	. . . . . . . 8 ⊢ · = (.g‘𝐺)
23	21, 17, 22	mulg0 19186	. . . . . . 7 ⊢ (𝑋 ∈ 𝐵 → (0 · 𝑋) = (0g‘𝐺))
24	23	adantl 487	. . . . . 6 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (0 · 𝑋) = (0g‘𝐺))
25	24	fveq2d 6889	. . . . 5 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0 · 𝑋)) = (𝐹‘(0g‘𝐺)))
26		eqid 2765	. . . . . . . 8 ⊢ (Base‘𝐻) = (Base‘𝐻)
27	21, 26	mhmf 18886	. . . . . . 7 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → 𝐹:𝐵⟶(Base‘𝐻))
28	27	ffvelcdmda 7083	. . . . . 6 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘𝑋) ∈ (Base‘𝐻))
29		mhmmulg.t	. . . . . . 7 ⊢ × = (.g‘𝐻)
30	26, 18, 29	mulg0 19186	. . . . . 6 ⊢ ((𝐹‘𝑋) ∈ (Base‘𝐻) → (0 × (𝐹‘𝑋)) = (0g‘𝐻))
31	28, 30	syl 18	. . . . 5 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (0 × (𝐹‘𝑋)) = (0g‘𝐻))
32	20, 25, 31	3eqtr4d 2810	. . . 4 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0 · 𝑋)) = (0 × (𝐹‘𝑋)))
33		oveq1 7426	. . . . . . 7 ⊢ ((𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)) → ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋)))
34		mhmrcl1 18884	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → 𝐺 ∈ Mnd)
35	34	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝐺 ∈ Mnd)
36		simpr 490	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℕ0)
37		simplr 781	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝑋 ∈ 𝐵)
38		eqid 2765	. . . . . . . . . . . 12 ⊢ (+g‘𝐺) = (+g‘𝐺)
39	21, 22, 38	mulgnn0p1 19197	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Mnd ∧ 𝑚 ∈ ℕ0 ∧ 𝑋 ∈ 𝐵) → ((𝑚 + 1) · 𝑋) = ((𝑚 · 𝑋)(+g‘𝐺)𝑋))
40	35, 36, 37, 39	syl3anc 1398	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) = ((𝑚 · 𝑋)(+g‘𝐺)𝑋))
41	40	fveq2d 6889	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘((𝑚 + 1) · 𝑋)) = (𝐹‘((𝑚 · 𝑋)(+g‘𝐺)𝑋)))
42		simpll 779	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝐹 ∈ (𝐺 MndHom 𝐻))
43	34	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → 𝐺 ∈ Mnd)
44		simplr 781	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → 𝑚 ∈ ℕ0)
45		simpr 490	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
46	21, 22, 43, 44, 45	mulgnn0cld 19207	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → (𝑚 · 𝑋) ∈ 𝐵)
47	46	an32s 665	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝑚 · 𝑋) ∈ 𝐵)
48		eqid 2765	. . . . . . . . . . 11 ⊢ (+g‘𝐻) = (+g‘𝐻)
49	21, 38, 48	mhmlin 18890	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ (𝑚 · 𝑋) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝐹‘((𝑚 · 𝑋)(+g‘𝐺)𝑋)) = ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)))
50	42, 47, 37, 49	syl3anc 1398	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘((𝑚 · 𝑋)(+g‘𝐺)𝑋)) = ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)))
51	41, 50	eqtrd 2800	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)))
52		mhmrcl2 18885	. . . . . . . . . 10 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → 𝐻 ∈ Mnd)
53	52	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝐻 ∈ Mnd)
54	28	adantr 486	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘𝑋) ∈ (Base‘𝐻))
55	26, 29, 48	mulgnn0p1 19197	. . . . . . . . 9 ⊢ ((𝐻 ∈ Mnd ∧ 𝑚 ∈ ℕ0 ∧ (𝐹‘𝑋) ∈ (Base‘𝐻)) → ((𝑚 + 1) × (𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋)))
56	53, 36, 54, 55	syl3anc 1398	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) × (𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋)))
57	51, 56	eqeq12d 2781	. . . . . . 7 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)) ↔ ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋))))
58	33, 57	imbitrrid 249	. . . . . 6 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋))))
59	58	expcom 419	. . . . 5 ⊢ (𝑚 ∈ ℕ0 → ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → ((𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))))
60	59	a2d 30	. . . 4 ⊢ (𝑚 ∈ ℕ0 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋))) → ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))))
61	4, 8, 12, 16, 32, 60	nn0ind 12709	. . 3 ⊢ (𝑁 ∈ ℕ0 → ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋))))
62	61	3impib 1134	. 2 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))
63	62	3com12 1141	1 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑁 ∈ ℕ0 ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146  ‘cfv 6540  (class class class)co 7419  0cc0 11117  1c1 11118   + caddc 11120  ℕ₀cn0 12521  Basecbs 17293  +_gcplusg 17334  0_gc0g 17516  Mndcmnd 18826   MndHom cmhm 18878  ._gcmg 19179

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 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11173  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194

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 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-er 8700  df-map 8832  df-en 8950  df-dom 8951  df-sdom 8952  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-nn 12251  df-n0 12522  df-z 12609  df-uz 12881  df-fz 13554  df-seq 14058  df-0g 17518  df-mgm 18722  df-sgrp 18811  df-mnd 18827  df-mhm 18880  df-mulg 19180

This theorem is used by:  pwsmulg  19231  ghmmulg  19344  pwsexpg  20458  fermltlchr  21731  evlspw  22301  selvvvval  22345  ply1fermltlchr  22524  evls1pw  22538  evl1expd  22557  rhmply1mon  22598  cayhamlem4  23097  dchrfi  27472  lgsqrlem1  27563  lgseisenlem4  27595  dchrisum0flblem1  27725  znfermltl  33747  aks5lem3a  43016  evlselv  43381