Theorem mhmmulg 19045

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 7381	. . . . . 6 ⊢ (𝑛 = 0 → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘(0 · 𝑋)))
2		oveq1 7365	. . . . . 6 ⊢ (𝑛 = 0 → (𝑛 × (𝐹‘𝑋)) = (0 × (𝐹‘𝑋)))
3	1, 2	eqeq12d 2752	. . . . 5 ⊢ (𝑛 = 0 → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘(0 · 𝑋)) = (0 × (𝐹‘𝑋))))
4	3	imbi2d 340	. . . 4 ⊢ (𝑛 = 0 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0 · 𝑋)) = (0 × (𝐹‘𝑋)))))
5		fvoveq1 7381	. . . . . 6 ⊢ (𝑛 = 𝑚 → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘(𝑚 · 𝑋)))
6		oveq1 7365	. . . . . 6 ⊢ (𝑛 = 𝑚 → (𝑛 × (𝐹‘𝑋)) = (𝑚 × (𝐹‘𝑋)))
7	5, 6	eqeq12d 2752	. . . . 5 ⊢ (𝑛 = 𝑚 → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋))))
8	7	imbi2d 340	. . . 4 ⊢ (𝑛 = 𝑚 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)))))
9		fvoveq1 7381	. . . . . 6 ⊢ (𝑛 = (𝑚 + 1) → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘((𝑚 + 1) · 𝑋)))
10		oveq1 7365	. . . . . 6 ⊢ (𝑛 = (𝑚 + 1) → (𝑛 × (𝐹‘𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))
11	9, 10	eqeq12d 2752	. . . . 5 ⊢ (𝑛 = (𝑚 + 1) → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋))))
12	11	imbi2d 340	. . . 4 ⊢ (𝑛 = (𝑚 + 1) → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))))
13		fvoveq1 7381	. . . . . 6 ⊢ (𝑛 = 𝑁 → (𝐹‘(𝑛 · 𝑋)) = (𝐹‘(𝑁 · 𝑋)))
14		oveq1 7365	. . . . . 6 ⊢ (𝑛 = 𝑁 → (𝑛 × (𝐹‘𝑋)) = (𝑁 × (𝐹‘𝑋)))
15	13, 14	eqeq12d 2752	. . . . 5 ⊢ (𝑛 = 𝑁 → ((𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋)) ↔ (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋))))
16	15	imbi2d 340	. . . 4 ⊢ (𝑛 = 𝑁 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑛 · 𝑋)) = (𝑛 × (𝐹‘𝑋))) ↔ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))))
17		eqid 2736	. . . . . . 7 ⊢ (0g‘𝐺) = (0g‘𝐺)
18		eqid 2736	. . . . . . 7 ⊢ (0g‘𝐻) = (0g‘𝐻)
19	17, 18	mhm0 18719	. . . . . 6 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → (𝐹‘(0g‘𝐺)) = (0g‘𝐻))
20	19	adantr 480	. . . . 5 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0g‘𝐺)) = (0g‘𝐻))
21		mhmmulg.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐺)
22		mhmmulg.s	. . . . . . . 8 ⊢ · = (.g‘𝐺)
23	21, 17, 22	mulg0 19004	. . . . . . 7 ⊢ (𝑋 ∈ 𝐵 → (0 · 𝑋) = (0g‘𝐺))
24	23	adantl 481	. . . . . 6 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (0 · 𝑋) = (0g‘𝐺))
25	24	fveq2d 6838	. . . . 5 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0 · 𝑋)) = (𝐹‘(0g‘𝐺)))
26		eqid 2736	. . . . . . . 8 ⊢ (Base‘𝐻) = (Base‘𝐻)
27	21, 26	mhmf 18714	. . . . . . 7 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → 𝐹:𝐵⟶(Base‘𝐻))
28	27	ffvelcdmda 7029	. . . . . 6 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘𝑋) ∈ (Base‘𝐻))
29		mhmmulg.t	. . . . . . 7 ⊢ × = (.g‘𝐻)
30	26, 18, 29	mulg0 19004	. . . . . 6 ⊢ ((𝐹‘𝑋) ∈ (Base‘𝐻) → (0 × (𝐹‘𝑋)) = (0g‘𝐻))
31	28, 30	syl 17	. . . . 5 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (0 × (𝐹‘𝑋)) = (0g‘𝐻))
32	20, 25, 31	3eqtr4d 2781	. . . 4 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(0 · 𝑋)) = (0 × (𝐹‘𝑋)))
33		oveq1 7365	. . . . . . 7 ⊢ ((𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)) → ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋)))
34		mhmrcl1 18712	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → 𝐺 ∈ Mnd)
35	34	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝐺 ∈ Mnd)
36		simpr 484	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝑚 ∈ ℕ0)
37		simplr 768	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝑋 ∈ 𝐵)
38		eqid 2736	. . . . . . . . . . . 12 ⊢ (+g‘𝐺) = (+g‘𝐺)
39	21, 22, 38	mulgnn0p1 19015	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Mnd ∧ 𝑚 ∈ ℕ0 ∧ 𝑋 ∈ 𝐵) → ((𝑚 + 1) · 𝑋) = ((𝑚 · 𝑋)(+g‘𝐺)𝑋))
40	35, 36, 37, 39	syl3anc 1373	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) · 𝑋) = ((𝑚 · 𝑋)(+g‘𝐺)𝑋))
41	40	fveq2d 6838	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘((𝑚 + 1) · 𝑋)) = (𝐹‘((𝑚 · 𝑋)(+g‘𝐺)𝑋)))
42		simpll 766	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝐹 ∈ (𝐺 MndHom 𝐻))
43	34	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → 𝐺 ∈ Mnd)
44		simplr 768	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → 𝑚 ∈ ℕ0)
45		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
46	21, 22, 43, 44, 45	mulgnn0cld 19025	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑚 ∈ ℕ0) ∧ 𝑋 ∈ 𝐵) → (𝑚 · 𝑋) ∈ 𝐵)
47	46	an32s 652	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝑚 · 𝑋) ∈ 𝐵)
48		eqid 2736	. . . . . . . . . . 11 ⊢ (+g‘𝐻) = (+g‘𝐻)
49	21, 38, 48	mhmlin 18718	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ (𝑚 · 𝑋) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝐹‘((𝑚 · 𝑋)(+g‘𝐺)𝑋)) = ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)))
50	42, 47, 37, 49	syl3anc 1373	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘((𝑚 · 𝑋)(+g‘𝐺)𝑋)) = ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)))
51	41, 50	eqtrd 2771	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)))
52		mhmrcl2 18713	. . . . . . . . . 10 ⊢ (𝐹 ∈ (𝐺 MndHom 𝐻) → 𝐻 ∈ Mnd)
53	52	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → 𝐻 ∈ Mnd)
54	28	adantr 480	. . . . . . . . 9 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → (𝐹‘𝑋) ∈ (Base‘𝐻))
55	26, 29, 48	mulgnn0p1 19015	. . . . . . . . 9 ⊢ ((𝐻 ∈ Mnd ∧ 𝑚 ∈ ℕ0 ∧ (𝐹‘𝑋) ∈ (Base‘𝐻)) → ((𝑚 + 1) × (𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋)))
56	53, 36, 54, 55	syl3anc 1373	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝑚 + 1) × (𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋)))
57	51, 56	eqeq12d 2752	. . . . . . 7 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)) ↔ ((𝐹‘(𝑚 · 𝑋))(+g‘𝐻)(𝐹‘𝑋)) = ((𝑚 × (𝐹‘𝑋))(+g‘𝐻)(𝐹‘𝑋))))
58	33, 57	imbitrrid 246	. . . . . 6 ⊢ (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑚 ∈ ℕ0) → ((𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋))))
59	58	expcom 413	. . . . 5 ⊢ (𝑚 ∈ ℕ0 → ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → ((𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋)) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))))
60	59	a2d 29	. . . 4 ⊢ (𝑚 ∈ ℕ0 → (((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑚 · 𝑋)) = (𝑚 × (𝐹‘𝑋))) → ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘((𝑚 + 1) · 𝑋)) = ((𝑚 + 1) × (𝐹‘𝑋)))))
61	4, 8, 12, 16, 32, 60	nn0ind 12587	. . 3 ⊢ (𝑁 ∈ ℕ0 → ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋))))
62	61	3impib 1116	. 2 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))
63	62	3com12 1123	1 ⊢ ((𝐹 ∈ (𝐺 MndHom 𝐻) ∧ 𝑁 ∈ ℕ0 ∧ 𝑋 ∈ 𝐵) → (𝐹‘(𝑁 · 𝑋)) = (𝑁 × (𝐹‘𝑋)))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113  ‘cfv 6492  (class class class)co 7358  0cc0 11026  1c1 11027   + caddc 11029  ℕ₀cn0 12401  Basecbs 17136  +_gcplusg 17177  0_gc0g 17359  Mndcmnd 18659   MndHom cmhm 18706  ._gcmg 18997

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-sep 5241  ax-nul 5251  ax-pow 5310  ax-pr 5377  ax-un 7680  ax-cnex 11082  ax-resscn 11083  ax-1cn 11084  ax-icn 11085  ax-addcl 11086  ax-addrcl 11087  ax-mulcl 11088  ax-mulrcl 11089  ax-mulcom 11090  ax-addass 11091  ax-mulass 11092  ax-distr 11093  ax-i2m1 11094  ax-1ne0 11095  ax-1rid 11096  ax-rnegex 11097  ax-rrecex 11098  ax-cnre 11099  ax-pre-lttri 11100  ax-pre-lttrn 11101  ax-pre-ltadd 11102  ax-pre-mulgt0 11103

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-op 4587  df-uni 4864  df-iun 4948  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7809  df-1st 7933  df-2nd 7934  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-er 8635  df-map 8765  df-en 8884  df-dom 8885  df-sdom 8886  df-pnf 11168  df-mnf 11169  df-xr 11170  df-ltxr 11171  df-le 11172  df-sub 11366  df-neg 11367  df-nn 12146  df-n0 12402  df-z 12489  df-uz 12752  df-fz 13424  df-seq 13925  df-0g 17361  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-mhm 18708  df-mulg 18998

This theorem is referenced by:  pwsmulg  19049  ghmmulg  19157  pwsexpg  20264  fermltlchr  21484  evlspw  22053  ply1fermltlchr  22256  evls1pw  22270  evl1expd  22289  rhmply1mon  22333  cayhamlem4  22832  dchrfi  27222  lgsqrlem1  27313  lgseisenlem4  27345  dchrisum0flblem1  27475  znfermltl  33447  aks5lem3a  42453  selvvvval  42838  evlselv  42840