Theorem rmodislmodlem 14322

Description: Lemma for rmodislmod 14323. This is the part of the proof of rmodislmod 14323 which requires the scalar ring to be commutative. (Contributed by AV, 3-Dec-2021.)

Hypotheses

Ref	Expression
rmodislmod.v	⊢ 𝑉 = (Base‘𝑅)
rmodislmod.a	⊢ + = (+g‘𝑅)
rmodislmod.s	⊢ · = ( ·𝑠 ‘𝑅)
rmodislmod.f	⊢ 𝐹 = (Scalar‘𝑅)
rmodislmod.k	⊢ 𝐾 = (Base‘𝐹)
rmodislmod.p	⊢ ⨣ = (+g‘𝐹)
rmodislmod.t	⊢ × = (.r‘𝐹)
rmodislmod.u	⊢ 1 = (1r‘𝐹)
rmodislmod.r	⊢ (𝑅 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)))
rmodislmod.m	⊢ ∗ = (𝑠 ∈ 𝐾, 𝑣 ∈ 𝑉 ↦ (𝑣 · 𝑠))
rmodislmod.l	⊢ 𝐿 = (𝑅 sSet ⟨( ·𝑠 ‘ndx), ∗ ⟩)

Assertion

Ref	Expression
rmodislmodlem	⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → ((𝑎 × 𝑏) ∗ 𝑐) = (𝑎 ∗ (𝑏 ∗ 𝑐)))

Distinct variable groups:   × ,𝑞,𝑟,𝑤,𝑥   × ,𝑠,𝑣   · ,𝑞,𝑟,𝑤,𝑥   · ,𝑠,𝑣   𝐾,𝑞,𝑟,𝑥   𝐾,𝑠,𝑣   𝑉,𝑞,𝑟,𝑤,𝑥   𝑉,𝑠,𝑣   𝑟,𝑎,𝑤   𝑠,𝑎,𝑣   𝑞,𝑏,𝑟,𝑤   𝑠,𝑏,𝑣   𝑠,𝑐,𝑣   𝑤,𝑐

Allowed substitution hints:   + (𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   ⨣ (𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   𝑅(𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   · (𝑎,𝑏,𝑐)   × (𝑎,𝑏,𝑐)   1 (𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   𝐹(𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   ∗ (𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   𝐾(𝑤,𝑎,𝑏,𝑐)   𝐿(𝑥,𝑤,𝑣,𝑠,𝑟,𝑞,𝑎,𝑏,𝑐)   𝑉(𝑎,𝑏,𝑐)

Proof of Theorem rmodislmodlem

Dummy variable 𝑗 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		rmodislmod.r	. . . . 5 ⊢ (𝑅 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)))
2		simprl 529	. . . . . . . . 9 ⊢ ((((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟))
3	2	2ralimi 2594	. . . . . . . 8 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟))
4	3	2ralimi 2594	. . . . . . 7 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟))
5		ralrot3 2696	. . . . . . . . 9 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ↔ ∀𝑥 ∈ 𝑉 ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟))
6	1	simp1i 1030	. . . . . . . . . . . 12 ⊢ 𝑅 ∈ Grp
7		rmodislmod.v	. . . . . . . . . . . . . 14 ⊢ 𝑉 = (Base‘𝑅)
8		eqid 2229	. . . . . . . . . . . . . 14 ⊢ (0g‘𝑅) = (0g‘𝑅)
9	7, 8	grpidcl 13570	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Grp → (0g‘𝑅) ∈ 𝑉)
10		elex2 2816	. . . . . . . . . . . . 13 ⊢ ((0g‘𝑅) ∈ 𝑉 → ∃𝑗 𝑗 ∈ 𝑉)
11	9, 10	syl 14	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Grp → ∃𝑗 𝑗 ∈ 𝑉)
12		r19.3rmv 3582	. . . . . . . . . . . 12 ⊢ (∃𝑗 𝑗 ∈ 𝑉 → (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ↔ ∀𝑥 ∈ 𝑉 ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟)))
13	6, 11, 12	mp2b 8	. . . . . . . . . . 11 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ↔ ∀𝑥 ∈ 𝑉 ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟))
14	13	biimpri 133	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) → ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟))
15		oveq1 6014	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑏 → (𝑞 × 𝑟) = (𝑏 × 𝑟))
16	15	oveq2d 6023	. . . . . . . . . . . . 13 ⊢ (𝑞 = 𝑏 → (𝑤 · (𝑞 × 𝑟)) = (𝑤 · (𝑏 × 𝑟)))
17		oveq2 6015	. . . . . . . . . . . . . 14 ⊢ (𝑞 = 𝑏 → (𝑤 · 𝑞) = (𝑤 · 𝑏))
18	17	oveq1d 6022	. . . . . . . . . . . . 13 ⊢ (𝑞 = 𝑏 → ((𝑤 · 𝑞) · 𝑟) = ((𝑤 · 𝑏) · 𝑟))
19	16, 18	eqeq12d 2244	. . . . . . . . . . . 12 ⊢ (𝑞 = 𝑏 → ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ↔ (𝑤 · (𝑏 × 𝑟)) = ((𝑤 · 𝑏) · 𝑟)))
20		oveq2 6015	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑎 → (𝑏 × 𝑟) = (𝑏 × 𝑎))
21	20	oveq2d 6023	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝑎 → (𝑤 · (𝑏 × 𝑟)) = (𝑤 · (𝑏 × 𝑎)))
22		oveq2 6015	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝑎 → ((𝑤 · 𝑏) · 𝑟) = ((𝑤 · 𝑏) · 𝑎))
23	21, 22	eqeq12d 2244	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑎 → ((𝑤 · (𝑏 × 𝑟)) = ((𝑤 · 𝑏) · 𝑟) ↔ (𝑤 · (𝑏 × 𝑎)) = ((𝑤 · 𝑏) · 𝑎)))
24		oveq1 6014	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑐 → (𝑤 · (𝑏 × 𝑎)) = (𝑐 · (𝑏 × 𝑎)))
25		oveq1 6014	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑐 → (𝑤 · 𝑏) = (𝑐 · 𝑏))
26	25	oveq1d 6022	. . . . . . . . . . . . 13 ⊢ (𝑤 = 𝑐 → ((𝑤 · 𝑏) · 𝑎) = ((𝑐 · 𝑏) · 𝑎))
27	24, 26	eqeq12d 2244	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑐 → ((𝑤 · (𝑏 × 𝑎)) = ((𝑤 · 𝑏) · 𝑎) ↔ (𝑐 · (𝑏 × 𝑎)) = ((𝑐 · 𝑏) · 𝑎)))
28	19, 23, 27	rspc3v 2923	. . . . . . . . . . 11 ⊢ ((𝑏 ∈ 𝐾 ∧ 𝑎 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) → (𝑐 · (𝑏 × 𝑎)) = ((𝑐 · 𝑏) · 𝑎)))
29	28	3com12 1231	. . . . . . . . . 10 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) → (𝑐 · (𝑏 × 𝑎)) = ((𝑐 · 𝑏) · 𝑎)))
30	14, 29	syl5com 29	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · (𝑏 × 𝑎)) = ((𝑐 · 𝑏) · 𝑎)))
31	5, 30	sylbi 121	. . . . . . . 8 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · (𝑏 × 𝑎)) = ((𝑐 · 𝑏) · 𝑎)))
32		eqcom 2231	. . . . . . . 8 ⊢ (((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑏 × 𝑎)) ↔ (𝑐 · (𝑏 × 𝑎)) = ((𝑐 · 𝑏) · 𝑎))
33	31, 32	imbitrrdi 162	. . . . . . 7 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑏 × 𝑎))))
34	4, 33	syl 14	. . . . . 6 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑏 × 𝑎))))
35	34	3ad2ant3 1044	. . . . 5 ⊢ ((𝑅 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤))) → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑏 × 𝑎))))
36	1, 35	ax-mp 5	. . . 4 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑏 × 𝑎)))
37	36	adantl 277	. . 3 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → ((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑏 × 𝑎)))
38		rmodislmod.k	. . . . . . . . . 10 ⊢ 𝐾 = (Base‘𝐹)
39		rmodislmod.t	. . . . . . . . . 10 ⊢ × = (.r‘𝐹)
40	38, 39	crngcom 13985	. . . . . . . . 9 ⊢ ((𝐹 ∈ CRing ∧ 𝑏 ∈ 𝐾 ∧ 𝑎 ∈ 𝐾) → (𝑏 × 𝑎) = (𝑎 × 𝑏))
41	40	3expb 1228	. . . . . . . 8 ⊢ ((𝐹 ∈ CRing ∧ (𝑏 ∈ 𝐾 ∧ 𝑎 ∈ 𝐾)) → (𝑏 × 𝑎) = (𝑎 × 𝑏))
42	41	expcom 116	. . . . . . 7 ⊢ ((𝑏 ∈ 𝐾 ∧ 𝑎 ∈ 𝐾) → (𝐹 ∈ CRing → (𝑏 × 𝑎) = (𝑎 × 𝑏)))
43	42	ancoms 268	. . . . . 6 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾) → (𝐹 ∈ CRing → (𝑏 × 𝑎) = (𝑎 × 𝑏)))
44	43	3adant3 1041	. . . . 5 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝐹 ∈ CRing → (𝑏 × 𝑎) = (𝑎 × 𝑏)))
45	44	impcom 125	. . . 4 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → (𝑏 × 𝑎) = (𝑎 × 𝑏))
46	45	oveq2d 6023	. . 3 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → (𝑐 · (𝑏 × 𝑎)) = (𝑐 · (𝑎 × 𝑏)))
47	37, 46	eqtrd 2262	. 2 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → ((𝑐 · 𝑏) · 𝑎) = (𝑐 · (𝑎 × 𝑏)))
48		rmodislmod.m	. . . . . . 7 ⊢ ∗ = (𝑠 ∈ 𝐾, 𝑣 ∈ 𝑉 ↦ (𝑣 · 𝑠))
49	48	a1i 9	. . . . . 6 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ∗ = (𝑠 ∈ 𝐾, 𝑣 ∈ 𝑉 ↦ (𝑣 · 𝑠)))
50		oveq12 6016	. . . . . . . 8 ⊢ ((𝑣 = 𝑐 ∧ 𝑠 = 𝑏) → (𝑣 · 𝑠) = (𝑐 · 𝑏))
51	50	ancoms 268	. . . . . . 7 ⊢ ((𝑠 = 𝑏 ∧ 𝑣 = 𝑐) → (𝑣 · 𝑠) = (𝑐 · 𝑏))
52	51	adantl 277	. . . . . 6 ⊢ (((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) ∧ (𝑠 = 𝑏 ∧ 𝑣 = 𝑐)) → (𝑣 · 𝑠) = (𝑐 · 𝑏))
53		simp2 1022	. . . . . 6 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → 𝑏 ∈ 𝐾)
54		simp3 1023	. . . . . 6 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → 𝑐 ∈ 𝑉)
55		vex 2802	. . . . . . . 8 ⊢ 𝑐 ∈ V
56		rmodislmod.s	. . . . . . . . 9 ⊢ · = ( ·𝑠 ‘𝑅)
57		vscaslid 13204	. . . . . . . . . . 11 ⊢ ( ·𝑠 = Slot ( ·𝑠 ‘ndx) ∧ ( ·𝑠 ‘ndx) ∈ ℕ)
58	57	slotex 13067	. . . . . . . . . 10 ⊢ (𝑅 ∈ Grp → ( ·𝑠 ‘𝑅) ∈ V)
59	6, 58	ax-mp 5	. . . . . . . . 9 ⊢ ( ·𝑠 ‘𝑅) ∈ V
60	56, 59	eqeltri 2302	. . . . . . . 8 ⊢ · ∈ V
61		vex 2802	. . . . . . . 8 ⊢ 𝑏 ∈ V
62		ovexg 6041	. . . . . . . 8 ⊢ ((𝑐 ∈ V ∧ · ∈ V ∧ 𝑏 ∈ V) → (𝑐 · 𝑏) ∈ V)
63	55, 60, 61, 62	mp3an 1371	. . . . . . 7 ⊢ (𝑐 · 𝑏) ∈ V
64	63	a1i 9	. . . . . 6 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ V)
65	49, 52, 53, 54, 64	ovmpod 6138	. . . . 5 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑏 ∗ 𝑐) = (𝑐 · 𝑏))
66	65	oveq2d 6023	. . . 4 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑎 ∗ (𝑏 ∗ 𝑐)) = (𝑎 ∗ (𝑐 · 𝑏)))
67		oveq12 6016	. . . . . . 7 ⊢ ((𝑣 = (𝑐 · 𝑏) ∧ 𝑠 = 𝑎) → (𝑣 · 𝑠) = ((𝑐 · 𝑏) · 𝑎))
68	67	ancoms 268	. . . . . 6 ⊢ ((𝑠 = 𝑎 ∧ 𝑣 = (𝑐 · 𝑏)) → (𝑣 · 𝑠) = ((𝑐 · 𝑏) · 𝑎))
69	68	adantl 277	. . . . 5 ⊢ (((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) ∧ (𝑠 = 𝑎 ∧ 𝑣 = (𝑐 · 𝑏))) → (𝑣 · 𝑠) = ((𝑐 · 𝑏) · 𝑎))
70		simp1 1021	. . . . 5 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → 𝑎 ∈ 𝐾)
71		simpl1 1024	. . . . . . . . . . 11 ⊢ ((((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → (𝑤 · 𝑟) ∈ 𝑉)
72	71	2ralimi 2594	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
73	72	2ralimi 2594	. . . . . . . . 9 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
74	1	simp2i 1031	. . . . . . . . . . . 12 ⊢ 𝐹 ∈ Ring
75		ringgrp 13972	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ Ring → 𝐹 ∈ Grp)
76		eqid 2229	. . . . . . . . . . . . 13 ⊢ (0g‘𝐹) = (0g‘𝐹)
77	38, 76	grpidcl 13570	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ Grp → (0g‘𝐹) ∈ 𝐾)
78	74, 75, 77	mp2b 8	. . . . . . . . . . 11 ⊢ (0g‘𝐹) ∈ 𝐾
79		elex2 2816	. . . . . . . . . . 11 ⊢ ((0g‘𝐹) ∈ 𝐾 → ∃𝑗 𝑗 ∈ 𝐾)
80		r19.3rmv 3582	. . . . . . . . . . 11 ⊢ (∃𝑗 𝑗 ∈ 𝐾 → (∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 ↔ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉))
81	78, 79, 80	mp2b 8	. . . . . . . . . 10 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 ↔ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
82	81	biimpri 133	. . . . . . . . 9 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 → ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
83		ralcom 2694	. . . . . . . . . 10 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 ↔ ∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
84		r19.3rmv 3582	. . . . . . . . . . . . 13 ⊢ (∃𝑗 𝑗 ∈ 𝑉 → (∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 ↔ ∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉))
85	6, 11, 84	mp2b 8	. . . . . . . . . . . 12 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 ↔ ∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
86	85	biimpri 133	. . . . . . . . . . 11 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 → ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉)
87		oveq2 6015	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝑏 → (𝑤 · 𝑟) = (𝑤 · 𝑏))
88	87	eleq1d 2298	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑏 → ((𝑤 · 𝑟) ∈ 𝑉 ↔ (𝑤 · 𝑏) ∈ 𝑉))
89	25	eleq1d 2298	. . . . . . . . . . . 12 ⊢ (𝑤 = 𝑐 → ((𝑤 · 𝑏) ∈ 𝑉 ↔ (𝑐 · 𝑏) ∈ 𝑉))
90	88, 89	rspc2v 2920	. . . . . . . . . . 11 ⊢ ((𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 → (𝑐 · 𝑏) ∈ 𝑉))
91	86, 90	syl5com 29	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 → ((𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ 𝑉))
92	83, 91	sylbi 121	. . . . . . . . 9 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (𝑤 · 𝑟) ∈ 𝑉 → ((𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ 𝑉))
93	73, 82, 92	3syl 17	. . . . . . . 8 ⊢ (∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤)) → ((𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ 𝑉))
94	93	3ad2ant3 1044	. . . . . . 7 ⊢ ((𝑅 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤))) → ((𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ 𝑉))
95	1, 94	ax-mp 5	. . . . . 6 ⊢ ((𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ 𝑉)
96	95	3adant1 1039	. . . . 5 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · 𝑏) ∈ 𝑉)
97		vex 2802	. . . . . . 7 ⊢ 𝑎 ∈ V
98		ovexg 6041	. . . . . . 7 ⊢ (((𝑐 · 𝑏) ∈ V ∧ · ∈ V ∧ 𝑎 ∈ V) → ((𝑐 · 𝑏) · 𝑎) ∈ V)
99	63, 60, 97, 98	mp3an 1371	. . . . . 6 ⊢ ((𝑐 · 𝑏) · 𝑎) ∈ V
100	99	a1i 9	. . . . 5 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ((𝑐 · 𝑏) · 𝑎) ∈ V)
101	49, 69, 70, 96, 100	ovmpod 6138	. . . 4 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑎 ∗ (𝑐 · 𝑏)) = ((𝑐 · 𝑏) · 𝑎))
102	66, 101	eqtrd 2262	. . 3 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑎 ∗ (𝑏 ∗ 𝑐)) = ((𝑐 · 𝑏) · 𝑎))
103	102	adantl 277	. 2 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → (𝑎 ∗ (𝑏 ∗ 𝑐)) = ((𝑐 · 𝑏) · 𝑎))
104		oveq12 6016	. . . . . 6 ⊢ ((𝑣 = 𝑐 ∧ 𝑠 = (𝑎 × 𝑏)) → (𝑣 · 𝑠) = (𝑐 · (𝑎 × 𝑏)))
105	104	ancoms 268	. . . . 5 ⊢ ((𝑠 = (𝑎 × 𝑏) ∧ 𝑣 = 𝑐) → (𝑣 · 𝑠) = (𝑐 · (𝑎 × 𝑏)))
106	105	adantl 277	. . . 4 ⊢ (((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) ∧ (𝑠 = (𝑎 × 𝑏) ∧ 𝑣 = 𝑐)) → (𝑣 · 𝑠) = (𝑐 · (𝑎 × 𝑏)))
107	38, 39	ringcl 13984	. . . . . . . 8 ⊢ ((𝐹 ∈ Ring ∧ 𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾) → (𝑎 × 𝑏) ∈ 𝐾)
108	107	3expib 1230	. . . . . . 7 ⊢ (𝐹 ∈ Ring → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾) → (𝑎 × 𝑏) ∈ 𝐾))
109	108	3ad2ant2 1043	. . . . . 6 ⊢ ((𝑅 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑤 ∈ 𝑉 (((𝑤 · 𝑟) ∈ 𝑉 ∧ ((𝑤 + 𝑥) · 𝑟) = ((𝑤 · 𝑟) + (𝑥 · 𝑟)) ∧ (𝑤 · (𝑞 ⨣ 𝑟)) = ((𝑤 · 𝑞) + (𝑤 · 𝑟))) ∧ ((𝑤 · (𝑞 × 𝑟)) = ((𝑤 · 𝑞) · 𝑟) ∧ (𝑤 · 1 ) = 𝑤))) → ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾) → (𝑎 × 𝑏) ∈ 𝐾))
110	1, 109	ax-mp 5	. . . . 5 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾) → (𝑎 × 𝑏) ∈ 𝐾)
111	110	3adant3 1041	. . . 4 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑎 × 𝑏) ∈ 𝐾)
112		mulrslid 13173	. . . . . . . . . 10 ⊢ (.r = Slot (.r‘ndx) ∧ (.r‘ndx) ∈ ℕ)
113	112	slotex 13067	. . . . . . . . 9 ⊢ (𝐹 ∈ Ring → (.r‘𝐹) ∈ V)
114	74, 113	ax-mp 5	. . . . . . . 8 ⊢ (.r‘𝐹) ∈ V
115	39, 114	eqeltri 2302	. . . . . . 7 ⊢ × ∈ V
116		ovexg 6041	. . . . . . 7 ⊢ ((𝑎 ∈ V ∧ × ∈ V ∧ 𝑏 ∈ V) → (𝑎 × 𝑏) ∈ V)
117	97, 115, 61, 116	mp3an 1371	. . . . . 6 ⊢ (𝑎 × 𝑏) ∈ V
118		ovexg 6041	. . . . . 6 ⊢ ((𝑐 ∈ V ∧ · ∈ V ∧ (𝑎 × 𝑏) ∈ V) → (𝑐 · (𝑎 × 𝑏)) ∈ V)
119	55, 60, 117, 118	mp3an 1371	. . . . 5 ⊢ (𝑐 · (𝑎 × 𝑏)) ∈ V
120	119	a1i 9	. . . 4 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → (𝑐 · (𝑎 × 𝑏)) ∈ V)
121	49, 106, 111, 54, 120	ovmpod 6138	. . 3 ⊢ ((𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉) → ((𝑎 × 𝑏) ∗ 𝑐) = (𝑐 · (𝑎 × 𝑏)))
122	121	adantl 277	. 2 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → ((𝑎 × 𝑏) ∗ 𝑐) = (𝑐 · (𝑎 × 𝑏)))
123	47, 103, 122	3eqtr4rd 2273	1 ⊢ ((𝐹 ∈ CRing ∧ (𝑎 ∈ 𝐾 ∧ 𝑏 ∈ 𝐾 ∧ 𝑐 ∈ 𝑉)) → ((𝑎 × 𝑏) ∗ 𝑐) = (𝑎 ∗ (𝑏 ∗ 𝑐)))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∧ w3a 1002   = wceq 1395  ∃wex 1538   ∈ wcel 2200  ∀wral 2508  Vcvv 2799  ⟨cop 3669  ‘cfv 5318  (class class class)co 6007   ∈ cmpo 6009  ndxcnx 13037   sSet csts 13038  Basecbs 13040  +_gcplusg 13118  ._rcmulr 13119  Scalarcsca 13121   ·_𝑠 cvsca 13122  0_gc0g 13297  Grpcgrp 13541  1_rcur 13930  Ringcrg 13967  CRingccrg 13968

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 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-sep 4202  ax-pow 4258  ax-pr 4293  ax-un 4524  ax-setind 4629  ax-cnex 8098  ax-resscn 8099  ax-1cn 8100  ax-1re 8101  ax-icn 8102  ax-addcl 8103  ax-addrcl 8104  ax-mulcl 8105  ax-addcom 8107  ax-addass 8109  ax-i2m1 8112  ax-0lt1 8113  ax-0id 8115  ax-rnegex 8116  ax-pre-ltirr 8119  ax-pre-ltadd 8123

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-nel 2496  df-ral 2513  df-rex 2514  df-reu 2515  df-rmo 2516  df-rab 2517  df-v 2801  df-sbc 3029  df-csb 3125  df-dif 3199  df-un 3201  df-in 3203  df-ss 3210  df-nul 3492  df-pw 3651  df-sn 3672  df-pr 3673  df-op 3675  df-uni 3889  df-int 3924  df-br 4084  df-opab 4146  df-mpt 4147  df-id 4384  df-xp 4725  df-rel 4726  df-cnv 4727  df-co 4728  df-dm 4729  df-rn 4730  df-res 4731  df-iota 5278  df-fun 5320  df-fn 5321  df-fv 5326  df-riota 5960  df-ov 6010  df-oprab 6011  df-mpo 6012  df-pnf 8191  df-mnf 8192  df-ltxr 8194  df-inn 9119  df-2 9177  df-3 9178  df-4 9179  df-5 9180  df-6 9181  df-ndx 13043  df-slot 13044  df-base 13046  df-sets 13047  df-plusg 13131  df-mulr 13132  df-vsca 13135  df-0g 13299  df-mgm 13397  df-sgrp 13443  df-mnd 13458  df-grp 13544  df-cmn 13831  df-mgp 13892  df-ring 13969  df-cring 13970

This theorem is referenced by:  rmodislmod  14323