Theorem mulgnnass 13493

Description: Product of group multiples, for positive multiples in a semigroup. (Contributed by Mario Carneiro, 13-Dec-2014.) (Revised by AV, 29-Aug-2021.)

Hypotheses

Ref	Expression
mulgass.b	⊢ 𝐵 = (Base‘𝐺)
mulgass.t	⊢ · = (.g‘𝐺)

Assertion

Ref	Expression
mulgnnass	⊢ ((𝐺 ∈ Smgrp ∧ (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵)) → ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋)))

Proof of Theorem mulgnnass

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

Step	Hyp	Ref	Expression
1		oveq1 5951	. . . . . . . 8 ⊢ (𝑛 = 1 → (𝑛 · 𝑁) = (1 · 𝑁))
2	1	oveq1d 5959	. . . . . . 7 ⊢ (𝑛 = 1 → ((𝑛 · 𝑁) · 𝑋) = ((1 · 𝑁) · 𝑋))
3		oveq1 5951	. . . . . . 7 ⊢ (𝑛 = 1 → (𝑛 · (𝑁 · 𝑋)) = (1 · (𝑁 · 𝑋)))
4	2, 3	eqeq12d 2220	. . . . . 6 ⊢ (𝑛 = 1 → (((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋)) ↔ ((1 · 𝑁) · 𝑋) = (1 · (𝑁 · 𝑋))))
5	4	imbi2d 230	. . . . 5 ⊢ (𝑛 = 1 → (((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋))) ↔ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((1 · 𝑁) · 𝑋) = (1 · (𝑁 · 𝑋)))))
6		oveq1 5951	. . . . . . . 8 ⊢ (𝑛 = 𝑚 → (𝑛 · 𝑁) = (𝑚 · 𝑁))
7	6	oveq1d 5959	. . . . . . 7 ⊢ (𝑛 = 𝑚 → ((𝑛 · 𝑁) · 𝑋) = ((𝑚 · 𝑁) · 𝑋))
8		oveq1 5951	. . . . . . 7 ⊢ (𝑛 = 𝑚 → (𝑛 · (𝑁 · 𝑋)) = (𝑚 · (𝑁 · 𝑋)))
9	7, 8	eqeq12d 2220	. . . . . 6 ⊢ (𝑛 = 𝑚 → (((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋)) ↔ ((𝑚 · 𝑁) · 𝑋) = (𝑚 · (𝑁 · 𝑋))))
10	9	imbi2d 230	. . . . 5 ⊢ (𝑛 = 𝑚 → (((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋))) ↔ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑚 · 𝑁) · 𝑋) = (𝑚 · (𝑁 · 𝑋)))))
11		oveq1 5951	. . . . . . . 8 ⊢ (𝑛 = (𝑚 + 1) → (𝑛 · 𝑁) = ((𝑚 + 1) · 𝑁))
12	11	oveq1d 5959	. . . . . . 7 ⊢ (𝑛 = (𝑚 + 1) → ((𝑛 · 𝑁) · 𝑋) = (((𝑚 + 1) · 𝑁) · 𝑋))
13		oveq1 5951	. . . . . . 7 ⊢ (𝑛 = (𝑚 + 1) → (𝑛 · (𝑁 · 𝑋)) = ((𝑚 + 1) · (𝑁 · 𝑋)))
14	12, 13	eqeq12d 2220	. . . . . 6 ⊢ (𝑛 = (𝑚 + 1) → (((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋)) ↔ (((𝑚 + 1) · 𝑁) · 𝑋) = ((𝑚 + 1) · (𝑁 · 𝑋))))
15	14	imbi2d 230	. . . . 5 ⊢ (𝑛 = (𝑚 + 1) → (((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋))) ↔ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → (((𝑚 + 1) · 𝑁) · 𝑋) = ((𝑚 + 1) · (𝑁 · 𝑋)))))
16		oveq1 5951	. . . . . . . 8 ⊢ (𝑛 = 𝑀 → (𝑛 · 𝑁) = (𝑀 · 𝑁))
17	16	oveq1d 5959	. . . . . . 7 ⊢ (𝑛 = 𝑀 → ((𝑛 · 𝑁) · 𝑋) = ((𝑀 · 𝑁) · 𝑋))
18		oveq1 5951	. . . . . . 7 ⊢ (𝑛 = 𝑀 → (𝑛 · (𝑁 · 𝑋)) = (𝑀 · (𝑁 · 𝑋)))
19	17, 18	eqeq12d 2220	. . . . . 6 ⊢ (𝑛 = 𝑀 → (((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋)) ↔ ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋))))
20	19	imbi2d 230	. . . . 5 ⊢ (𝑛 = 𝑀 → (((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑛 · 𝑁) · 𝑋) = (𝑛 · (𝑁 · 𝑋))) ↔ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋)))))
21		nncn 9044	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
22	21	mulid2d 8091	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (1 · 𝑁) = 𝑁)
23	22	3ad2ant1 1021	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → (1 · 𝑁) = 𝑁)
24	23	oveq1d 5959	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((1 · 𝑁) · 𝑋) = (𝑁 · 𝑋))
25		sgrpmgm 13239	. . . . . . . . 9 ⊢ (𝐺 ∈ Smgrp → 𝐺 ∈ Mgm)
26		mulgass.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
27		mulgass.t	. . . . . . . . . 10 ⊢ · = (.g‘𝐺)
28	26, 27	mulgnncl 13473	. . . . . . . . 9 ⊢ ((𝐺 ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵) → (𝑁 · 𝑋) ∈ 𝐵)
29	25, 28	syl3an1 1283	. . . . . . . 8 ⊢ ((𝐺 ∈ Smgrp ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵) → (𝑁 · 𝑋) ∈ 𝐵)
30	29	3coml 1213	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → (𝑁 · 𝑋) ∈ 𝐵)
31	26, 27	mulg1 13465	. . . . . . 7 ⊢ ((𝑁 · 𝑋) ∈ 𝐵 → (1 · (𝑁 · 𝑋)) = (𝑁 · 𝑋))
32	30, 31	syl 14	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → (1 · (𝑁 · 𝑋)) = (𝑁 · 𝑋))
33	24, 32	eqtr4d 2241	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((1 · 𝑁) · 𝑋) = (1 · (𝑁 · 𝑋)))
34		oveq1 5951	. . . . . . . 8 ⊢ (((𝑚 · 𝑁) · 𝑋) = (𝑚 · (𝑁 · 𝑋)) → (((𝑚 · 𝑁) · 𝑋)(+g‘𝐺)(𝑁 · 𝑋)) = ((𝑚 · (𝑁 · 𝑋))(+g‘𝐺)(𝑁 · 𝑋)))
35		nncn 9044	. . . . . . . . . . . . 13 ⊢ (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
36	35	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → 𝑚 ∈ ℂ)
37		simpr1 1006	. . . . . . . . . . . . 13 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → 𝑁 ∈ ℕ)
38	37	nncnd 9050	. . . . . . . . . . . 12 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → 𝑁 ∈ ℂ)
39	36, 38	adddirp1d 8099	. . . . . . . . . . 11 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → ((𝑚 + 1) · 𝑁) = ((𝑚 · 𝑁) + 𝑁))
40	39	oveq1d 5959	. . . . . . . . . 10 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → (((𝑚 + 1) · 𝑁) · 𝑋) = (((𝑚 · 𝑁) + 𝑁) · 𝑋))
41		simpr3 1008	. . . . . . . . . . 11 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → 𝐺 ∈ Smgrp)
42		nnmulcl 9057	. . . . . . . . . . . 12 ⊢ ((𝑚 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑚 · 𝑁) ∈ ℕ)
43	42	3ad2antr1 1165	. . . . . . . . . . 11 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → (𝑚 · 𝑁) ∈ ℕ)
44		simpr2 1007	. . . . . . . . . . 11 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → 𝑋 ∈ 𝐵)
45		eqid 2205	. . . . . . . . . . . 12 ⊢ (+g‘𝐺) = (+g‘𝐺)
46	26, 27, 45	mulgnndir 13487	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Smgrp ∧ ((𝑚 · 𝑁) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵)) → (((𝑚 · 𝑁) + 𝑁) · 𝑋) = (((𝑚 · 𝑁) · 𝑋)(+g‘𝐺)(𝑁 · 𝑋)))
47	41, 43, 37, 44, 46	syl13anc 1252	. . . . . . . . . 10 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → (((𝑚 · 𝑁) + 𝑁) · 𝑋) = (((𝑚 · 𝑁) · 𝑋)(+g‘𝐺)(𝑁 · 𝑋)))
48	40, 47	eqtrd 2238	. . . . . . . . 9 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → (((𝑚 + 1) · 𝑁) · 𝑋) = (((𝑚 · 𝑁) · 𝑋)(+g‘𝐺)(𝑁 · 𝑋)))
49	26, 27, 45	mulgnnp1 13466	. . . . . . . . . 10 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 · 𝑋) ∈ 𝐵) → ((𝑚 + 1) · (𝑁 · 𝑋)) = ((𝑚 · (𝑁 · 𝑋))(+g‘𝐺)(𝑁 · 𝑋)))
50	30, 49	sylan2 286	. . . . . . . . 9 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → ((𝑚 + 1) · (𝑁 · 𝑋)) = ((𝑚 · (𝑁 · 𝑋))(+g‘𝐺)(𝑁 · 𝑋)))
51	48, 50	eqeq12d 2220	. . . . . . . 8 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → ((((𝑚 + 1) · 𝑁) · 𝑋) = ((𝑚 + 1) · (𝑁 · 𝑋)) ↔ (((𝑚 · 𝑁) · 𝑋)(+g‘𝐺)(𝑁 · 𝑋)) = ((𝑚 · (𝑁 · 𝑋))(+g‘𝐺)(𝑁 · 𝑋))))
52	34, 51	imbitrrid 156	. . . . . . 7 ⊢ ((𝑚 ∈ ℕ ∧ (𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp)) → (((𝑚 · 𝑁) · 𝑋) = (𝑚 · (𝑁 · 𝑋)) → (((𝑚 + 1) · 𝑁) · 𝑋) = ((𝑚 + 1) · (𝑁 · 𝑋))))
53	52	ex 115	. . . . . 6 ⊢ (𝑚 ∈ ℕ → ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → (((𝑚 · 𝑁) · 𝑋) = (𝑚 · (𝑁 · 𝑋)) → (((𝑚 + 1) · 𝑁) · 𝑋) = ((𝑚 + 1) · (𝑁 · 𝑋)))))
54	53	a2d 26	. . . . 5 ⊢ (𝑚 ∈ ℕ → (((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑚 · 𝑁) · 𝑋) = (𝑚 · (𝑁 · 𝑋))) → ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → (((𝑚 + 1) · 𝑁) · 𝑋) = ((𝑚 + 1) · (𝑁 · 𝑋)))))
55	5, 10, 15, 20, 33, 54	nnind 9052	. . . 4 ⊢ (𝑀 ∈ ℕ → ((𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵 ∧ 𝐺 ∈ Smgrp) → ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋))))
56	55	3expd 1227	. . 3 ⊢ (𝑀 ∈ ℕ → (𝑁 ∈ ℕ → (𝑋 ∈ 𝐵 → (𝐺 ∈ Smgrp → ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋))))))
57	56	com4r 86	. 2 ⊢ (𝐺 ∈ Smgrp → (𝑀 ∈ ℕ → (𝑁 ∈ ℕ → (𝑋 ∈ 𝐵 → ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋))))))
58	57	3imp2 1225	1 ⊢ ((𝐺 ∈ Smgrp ∧ (𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ 𝐵)) → ((𝑀 · 𝑁) · 𝑋) = (𝑀 · (𝑁 · 𝑋)))

Syntax hints:   → wi 4   ∧ wa 104   ∧ w3a 981   = wceq 1373   ∈ wcel 2176  ‘cfv 5271  (class class class)co 5944  ℂcc 7923  1c1 7926   + caddc 7928   · cmul 7930  ℕcn 9036  Basecbs 12832  +_gcplusg 12909  Mgmcmgm 13186  Smgrpcsgrp 13233  ._gcmg 13455

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-in1 615  ax-in2 616  ax-io 711  ax-5 1470  ax-7 1471  ax-gen 1472  ax-ie1 1516  ax-ie2 1517  ax-8 1527  ax-10 1528  ax-11 1529  ax-i12 1530  ax-bndl 1532  ax-4 1533  ax-17 1549  ax-i9 1553  ax-ial 1557  ax-i5r 1558  ax-13 2178  ax-14 2179  ax-ext 2187  ax-coll 4159  ax-sep 4162  ax-nul 4170  ax-pow 4218  ax-pr 4253  ax-un 4480  ax-setind 4585  ax-iinf 4636  ax-cnex 8016  ax-resscn 8017  ax-1cn 8018  ax-1re 8019  ax-icn 8020  ax-addcl 8021  ax-addrcl 8022  ax-mulcl 8023  ax-addcom 8025  ax-mulcom 8026  ax-addass 8027  ax-mulass 8028  ax-distr 8029  ax-i2m1 8030  ax-0lt1 8031  ax-1rid 8032  ax-0id 8033  ax-rnegex 8034  ax-cnre 8036  ax-pre-ltirr 8037  ax-pre-ltwlin 8038  ax-pre-lttrn 8039  ax-pre-ltadd 8041

This theorem depends on definitions:  df-bi 117  df-dc 837  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1484  df-sb 1786  df-eu 2057  df-mo 2058  df-clab 2192  df-cleq 2198  df-clel 2201  df-nfc 2337  df-ne 2377  df-nel 2472  df-ral 2489  df-rex 2490  df-reu 2491  df-rab 2493  df-v 2774  df-sbc 2999  df-csb 3094  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-nul 3461  df-if 3572  df-pw 3618  df-sn 3639  df-pr 3640  df-op 3642  df-uni 3851  df-int 3886  df-iun 3929  df-br 4045  df-opab 4106  df-mpt 4107  df-tr 4143  df-id 4340  df-iord 4413  df-on 4415  df-ilim 4416  df-suc 4418  df-iom 4639  df-xp 4681  df-rel 4682  df-cnv 4683  df-co 4684  df-dm 4685  df-rn 4686  df-res 4687  df-ima 4688  df-iota 5232  df-fun 5273  df-fn 5274  df-f 5275  df-f1 5276  df-fo 5277  df-f1o 5278  df-fv 5279  df-riota 5899  df-ov 5947  df-oprab 5948  df-mpo 5949  df-1st 6226  df-2nd 6227  df-recs 6391  df-frec 6477  df-pnf 8109  df-mnf 8110  df-xr 8111  df-ltxr 8112  df-le 8113  df-sub 8245  df-neg 8246  df-inn 9037  df-2 9095  df-n0 9296  df-z 9373  df-uz 9649  df-fz 10131  df-seqfrec 10593  df-ndx 12835  df-slot 12836  df-base 12838  df-plusg 12922  df-0g 13090  df-mgm 13188  df-sgrp 13234  df-minusg 13336  df-mulg 13456

This theorem is referenced by:  mulgnn0ass  13494