Theorem imaslmod 31455

Description: The image structure of a left module is a left module. (Contributed by Thierry Arnoux, 15-May-2023.)

Hypotheses

Ref	Expression
imaslmod.u	⊢ (𝜑 → 𝑁 = (𝐹 “s 𝑀))
imaslmod.v	⊢ 𝑉 = (Base‘𝑀)
imaslmod.k	⊢ 𝑆 = (Base‘(Scalar‘𝑀))
imaslmod.p	⊢ + = (+g‘𝑀)
imaslmod.t	⊢ · = ( ·𝑠 ‘𝑀)
imaslmod.o	⊢ 0 = (0g‘𝑀)
imaslmod.f	⊢ (𝜑 → 𝐹:𝑉–onto→𝐵)
imaslmod.e1	⊢ ((𝜑 ∧ (𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ (𝑝 ∈ 𝑉 ∧ 𝑞 ∈ 𝑉)) → (((𝐹‘𝑎) = (𝐹‘𝑝) ∧ (𝐹‘𝑏) = (𝐹‘𝑞)) → (𝐹‘(𝑎 + 𝑏)) = (𝐹‘(𝑝 + 𝑞))))
imaslmod.e2	⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) → ((𝐹‘𝑎) = (𝐹‘𝑏) → (𝐹‘(𝑘 · 𝑎)) = (𝐹‘(𝑘 · 𝑏))))
imaslmod.l	⊢ (𝜑 → 𝑀 ∈ LMod)

Assertion

Ref	Expression
imaslmod	⊢ (𝜑 → 𝑁 ∈ LMod)

Distinct variable groups:   𝐵,𝑏,𝑘,𝑝,𝑞   𝐹,𝑎,𝑏,𝑘,𝑝,𝑞   + ,𝑏,𝑘,𝑝,𝑞   𝑀,𝑏,𝑘,𝑝,𝑞   𝑁,𝑎,𝑏,𝑘,𝑝,𝑞   0 ,𝑝,𝑞   𝑆,𝑎,𝑏,𝑘   𝑉,𝑎,𝑏,𝑘,𝑝,𝑞   · ,𝑏,𝑘,𝑝,𝑞   𝜑,𝑎,𝑏,𝑘,𝑝,𝑞

Allowed substitution hints:   𝐵(𝑎)   + (𝑎)   𝑆(𝑞,𝑝)   · (𝑎)   𝑀(𝑎)   0 (𝑘,𝑎,𝑏)

Proof of Theorem imaslmod

Dummy variables 𝑢 𝑣 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		imaslmod.u	. . 3 ⊢ (𝜑 → 𝑁 = (𝐹 “s 𝑀))
2		imaslmod.v	. . . 4 ⊢ 𝑉 = (Base‘𝑀)
3	2	a1i 11	. . 3 ⊢ (𝜑 → 𝑉 = (Base‘𝑀))
4		imaslmod.f	. . 3 ⊢ (𝜑 → 𝐹:𝑉–onto→𝐵)
5		imaslmod.l	. . 3 ⊢ (𝜑 → 𝑀 ∈ LMod)
6	1, 3, 4, 5	imasbas 17140	. 2 ⊢ (𝜑 → 𝐵 = (Base‘𝑁))
7		eqidd 2739	. 2 ⊢ (𝜑 → (+g‘𝑁) = (+g‘𝑁))
8		eqid 2738	. . 3 ⊢ (Scalar‘𝑀) = (Scalar‘𝑀)
9	1, 3, 4, 5, 8	imassca 17147	. 2 ⊢ (𝜑 → (Scalar‘𝑀) = (Scalar‘𝑁))
10		eqidd 2739	. 2 ⊢ (𝜑 → ( ·𝑠 ‘𝑁) = ( ·𝑠 ‘𝑁))
11		imaslmod.k	. . 3 ⊢ 𝑆 = (Base‘(Scalar‘𝑀))
12	11	a1i 11	. 2 ⊢ (𝜑 → 𝑆 = (Base‘(Scalar‘𝑀)))
13		eqidd 2739	. 2 ⊢ (𝜑 → (+g‘(Scalar‘𝑀)) = (+g‘(Scalar‘𝑀)))
14		eqidd 2739	. 2 ⊢ (𝜑 → (.r‘(Scalar‘𝑀)) = (.r‘(Scalar‘𝑀)))
15		eqidd 2739	. 2 ⊢ (𝜑 → (1r‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)))
16	8	lmodring 20046	. . 3 ⊢ (𝑀 ∈ LMod → (Scalar‘𝑀) ∈ Ring)
17	5, 16	syl 17	. 2 ⊢ (𝜑 → (Scalar‘𝑀) ∈ Ring)
18		imaslmod.p	. . . . 5 ⊢ + = (+g‘𝑀)
19	18	a1i 11	. . . 4 ⊢ (𝜑 → + = (+g‘𝑀))
20		imaslmod.e1	. . . 4 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ (𝑝 ∈ 𝑉 ∧ 𝑞 ∈ 𝑉)) → (((𝐹‘𝑎) = (𝐹‘𝑝) ∧ (𝐹‘𝑏) = (𝐹‘𝑞)) → (𝐹‘(𝑎 + 𝑏)) = (𝐹‘(𝑝 + 𝑞))))
21		lmodgrp 20045	. . . . 5 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp)
22	5, 21	syl 17	. . . 4 ⊢ (𝜑 → 𝑀 ∈ Grp)
23		imaslmod.o	. . . 4 ⊢ 0 = (0g‘𝑀)
24	1, 3, 19, 4, 20, 22, 23	imasgrp 18606	. . 3 ⊢ (𝜑 → (𝑁 ∈ Grp ∧ (𝐹‘ 0 ) = (0g‘𝑁)))
25	24	simpld 494	. 2 ⊢ (𝜑 → 𝑁 ∈ Grp)
26		imaslmod.t	. . . 4 ⊢ · = ( ·𝑠 ‘𝑀)
27		eqid 2738	. . . 4 ⊢ ( ·𝑠 ‘𝑁) = ( ·𝑠 ‘𝑁)
28		imaslmod.e2	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) → ((𝐹‘𝑎) = (𝐹‘𝑏) → (𝐹‘(𝑘 · 𝑎)) = (𝐹‘(𝑘 · 𝑏))))
29	5	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑀 ∈ LMod)
30		simprl 767	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑘 ∈ 𝑆)
31		simprr 769	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑏 ∈ 𝑉)
32	2, 8, 26, 11	lmodvscl 20055	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉) → (𝑘 · 𝑏) ∈ 𝑉)
33	29, 30, 31, 32	syl3anc 1369	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → (𝑘 · 𝑏) ∈ 𝑉)
34	1, 3, 4, 5, 8, 11, 26, 27, 28, 33	imasvscaf 17167	. . 3 ⊢ (𝜑 → ( ·𝑠 ‘𝑁):(𝑆 × 𝐵)⟶𝐵)
35	34	fovcld 30876	. 2 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵) → (𝑢( ·𝑠 ‘𝑁)𝑣) ∈ 𝐵)
36		simp-5l 781	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝜑)
37		simpllr 772	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵))
38	37	simp1d 1140	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑢 ∈ 𝑆)
39	38	ad2antrr 722	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑢 ∈ 𝑆)
40	36, 22	syl 17	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑀 ∈ Grp)
41		simplr 765	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑦 ∈ 𝑉)
42		simp-4r 780	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑧 ∈ 𝑉)
43	2, 18	grpcl 18500	. . . . . . . 8 ⊢ ((𝑀 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦 + 𝑧) ∈ 𝑉)
44	40, 41, 42, 43	syl3anc 1369	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑦 + 𝑧) ∈ 𝑉)
45	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ (𝑦 + 𝑧) ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑢 · (𝑦 + 𝑧))))
46	36, 39, 44, 45	syl3anc 1369	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑢 · (𝑦 + 𝑧))))
47		eqid 2738	. . . . . . . . . 10 ⊢ (+g‘𝑁) = (+g‘𝑁)
48	4, 20, 1, 3, 5, 18, 47	imasaddval 17160	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → ((𝐹‘𝑦)(+g‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑦 + 𝑧)))
49	36, 41, 42, 48	syl3anc 1369	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘𝑦)(+g‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑦 + 𝑧)))
50		simpr 484	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘𝑦) = 𝑣)
51		simpllr 772	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘𝑧) = 𝑤)
52	50, 51	oveq12d 7273	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘𝑦)(+g‘𝑁)(𝐹‘𝑧)) = (𝑣(+g‘𝑁)𝑤))
53	49, 52	eqtr3d 2780	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑦 + 𝑧)) = (𝑣(+g‘𝑁)𝑤))
54	53	oveq2d 7271	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)))
55	36, 5	syl 17	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑀 ∈ LMod)
56	2, 18, 8, 26, 11	lmodvsdi 20061	. . . . . . . 8 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑢 · (𝑦 + 𝑧)) = ((𝑢 · 𝑦) + (𝑢 · 𝑧)))
57	55, 39, 41, 42, 56	syl13anc 1370	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · (𝑦 + 𝑧)) = ((𝑢 · 𝑦) + (𝑢 · 𝑧)))
58	57	fveq2d 6760	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · (𝑦 + 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
59	46, 54, 58	3eqtr3d 2786	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
60	2, 8, 26, 11	lmodvscl 20055	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉) → (𝑢 · 𝑦) ∈ 𝑉)
61	55, 39, 41, 60	syl3anc 1369	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · 𝑦) ∈ 𝑉)
62	2, 8, 26, 11	lmodvscl 20055	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑢 · 𝑧) ∈ 𝑉)
63	55, 39, 42, 62	syl3anc 1369	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · 𝑧) ∈ 𝑉)
64	4, 20, 1, 3, 5, 18, 47	imasaddval 17160	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢 · 𝑦) ∈ 𝑉 ∧ (𝑢 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑢 · 𝑦))(+g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
65	36, 61, 63, 64	syl3anc 1369	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘(𝑢 · 𝑦))(+g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
66	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝐹‘(𝑢 · 𝑦)))
67	36, 39, 41, 66	syl3anc 1369	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝐹‘(𝑢 · 𝑦)))
68	50	oveq2d 7271	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝑢( ·𝑠 ‘𝑁)𝑣))
69	67, 68	eqtr3d 2780	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · 𝑦)) = (𝑢( ·𝑠 ‘𝑁)𝑣))
70	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
71	36, 39, 42, 70	syl3anc 1369	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
72	51	oveq2d 7271	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
73	71, 72	eqtr3d 2780	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · 𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
74	69, 73	oveq12d 7273	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘(𝑢 · 𝑦))(+g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
75	59, 65, 74	3eqtr2d 2784	. . . 4 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
76		simplll 771	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝜑)
77	37	simp2d 1141	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑣 ∈ 𝐵)
78		fofn 6674	. . . . . . 7 ⊢ (𝐹:𝑉–onto→𝐵 → 𝐹 Fn 𝑉)
79	4, 78	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn 𝑉)
80		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ 𝐵)
81		forn 6675	. . . . . . . . 9 ⊢ (𝐹:𝑉–onto→𝐵 → ran 𝐹 = 𝐵)
82	4, 81	syl 17	. . . . . . . 8 ⊢ (𝜑 → ran 𝐹 = 𝐵)
83	82	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → ran 𝐹 = 𝐵)
84	80, 83	eleqtrrd 2842	. . . . . 6 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ ran 𝐹)
85		fvelrnb 6812	. . . . . . 7 ⊢ (𝐹 Fn 𝑉 → (𝑣 ∈ ran 𝐹 ↔ ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣))
86	85	biimpa 476	. . . . . 6 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑣 ∈ ran 𝐹) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
87	79, 84, 86	syl2an2r 681	. . . . 5 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
88	76, 77, 87	syl2anc 583	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
89	75, 88	r19.29a 3217	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
90		simpr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ 𝐵)
91	82	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → ran 𝐹 = 𝐵)
92	90, 91	eleqtrrd 2842	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ ran 𝐹)
93		fvelrnb 6812	. . . . . 6 ⊢ (𝐹 Fn 𝑉 → (𝑤 ∈ ran 𝐹 ↔ ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤))
94	93	biimpa 476	. . . . 5 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑤 ∈ ran 𝐹) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
95	79, 92, 94	syl2an2r 681	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
96	95	3ad2antr3 1188	. . 3 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
97	89, 96	r19.29a 3217	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
98		simplll 771	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝜑)
99	5	ad3antrrr 726	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑀 ∈ LMod)
100		simpllr 772	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵))
101	100	simp1d 1140	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑢 ∈ 𝑆)
102	100	simp2d 1141	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑣 ∈ 𝑆)
103		eqid 2738	. . . . . . 7 ⊢ (+g‘(Scalar‘𝑀)) = (+g‘(Scalar‘𝑀))
104	8, 11, 103	lmodacl 20049	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢(+g‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
105	99, 101, 102, 104	syl3anc 1369	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢(+g‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
106		simplr 765	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑧 ∈ 𝑉)
107	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . 5 ⊢ ((𝜑 ∧ (𝑢(+g‘(Scalar‘𝑀))𝑣) ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)))
108	98, 105, 106, 107	syl3anc 1369	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)))
109		simpr 484	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘𝑧) = 𝑤)
110	109	oveq2d 7271	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤))
111	2, 18, 8, 26, 11, 103	lmodvsdir 20062	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉)) → ((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧) = ((𝑢 · 𝑧) + (𝑣 · 𝑧)))
112	99, 101, 102, 106, 111	syl13anc 1370	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧) = ((𝑢 · 𝑧) + (𝑣 · 𝑧)))
113	112	fveq2d 6760	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
114	99, 101, 106, 62	syl3anc 1369	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 · 𝑧) ∈ 𝑉)
115	2, 8, 26, 11	lmodvscl 20055	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑣 · 𝑧) ∈ 𝑉)
116	99, 102, 106, 115	syl3anc 1369	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣 · 𝑧) ∈ 𝑉)
117	4, 20, 1, 3, 5, 18, 47	imasaddval 17160	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢 · 𝑧) ∈ 𝑉 ∧ (𝑣 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑢 · 𝑧))(+g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
118	98, 114, 116, 117	syl3anc 1369	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝐹‘(𝑢 · 𝑧))(+g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
119	98, 101, 106, 70	syl3anc 1369	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
120	109	oveq2d 7271	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
121	119, 120	eqtr3d 2780	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘(𝑢 · 𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
122	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑣 · 𝑧)))
123	98, 102, 106, 122	syl3anc 1369	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑣 · 𝑧)))
124	109	oveq2d 7271	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑣( ·𝑠 ‘𝑁)𝑤))
125	123, 124	eqtr3d 2780	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘(𝑣 · 𝑧)) = (𝑣( ·𝑠 ‘𝑁)𝑤))
126	121, 125	oveq12d 7273	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝐹‘(𝑢 · 𝑧))(+g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
127	113, 118, 126	3eqtr2d 2784	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
128	108, 110, 127	3eqtr3d 2786	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
129	95	3ad2antr3 1188	. . 3 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
130	128, 129	r19.29a 3217	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
131		eqid 2738	. . . . . . . 8 ⊢ (.r‘(Scalar‘𝑀)) = (.r‘(Scalar‘𝑀))
132	8, 11, 131	lmodmcl 20050	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢(.r‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
133	99, 101, 102, 132	syl3anc 1369	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢(.r‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
134	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢(.r‘(Scalar‘𝑀))𝑣) ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)))
135	98, 133, 106, 134	syl3anc 1369	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)))
136	109	oveq2d 7271	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤))
137	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ (𝑣 · 𝑧) ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
138	98, 101, 116, 137	syl3anc 1369	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
139	123	oveq2d 7271	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))) = (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))))
140	2, 8, 26, 11, 131	lmodvsass 20063	. . . . . . . 8 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉)) → ((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧) = (𝑢 · (𝑣 · 𝑧)))
141	99, 101, 102, 106, 140	syl13anc 1370	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧) = (𝑢 · (𝑣 · 𝑧)))
142	141	fveq2d 6760	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
143	138, 139, 142	3eqtr4rd 2789	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))))
144	135, 136, 143	3eqtr3d 2786	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))))
145	124	oveq2d 7271	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
146	144, 145	eqtrd 2778	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
147	146, 129	r19.29a 3217	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
148		simplll 771	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝜑)
149		eqid 2738	. . . . . . . 8 ⊢ (1r‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀))
150	11, 149	ringidcl 19722	. . . . . . 7 ⊢ ((Scalar‘𝑀) ∈ Ring → (1r‘(Scalar‘𝑀)) ∈ 𝑆)
151	17, 150	syl 17	. . . . . 6 ⊢ (𝜑 → (1r‘(Scalar‘𝑀)) ∈ 𝑆)
152	151	ad3antrrr 726	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (1r‘(Scalar‘𝑀)) ∈ 𝑆)
153		simplr 765	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝑥 ∈ 𝑉)
154	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17166	. . . . 5 ⊢ ((𝜑 ∧ (1r‘(Scalar‘𝑀)) ∈ 𝑆 ∧ 𝑥 ∈ 𝑉) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)(𝐹‘𝑥)) = (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)))
155	148, 152, 153, 154	syl3anc 1369	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)(𝐹‘𝑥)) = (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)))
156		simpr 484	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘𝑥) = 𝑢)
157	156	oveq2d 7271	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)(𝐹‘𝑥)) = ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)𝑢))
158	5	ad3antrrr 726	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝑀 ∈ LMod)
159	2, 8, 26, 149	lmodvs1 20066	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑥 ∈ 𝑉) → ((1r‘(Scalar‘𝑀)) · 𝑥) = 𝑥)
160	158, 153, 159	syl2anc 583	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀)) · 𝑥) = 𝑥)
161	160	fveq2d 6760	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)) = (𝐹‘𝑥))
162	161, 156	eqtrd 2778	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)) = 𝑢)
163	155, 157, 162	3eqtr3d 2786	. . 3 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)𝑢) = 𝑢)
164		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
165	82	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ran 𝐹 = 𝐵)
166	164, 165	eleqtrrd 2842	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ ran 𝐹)
167		fvelrnb 6812	. . . . 5 ⊢ (𝐹 Fn 𝑉 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢))
168	167	biimpa 476	. . . 4 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑢 ∈ ran 𝐹) → ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢)
169	79, 166, 168	syl2an2r 681	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢)
170	163, 169	r19.29a 3217	. 2 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)𝑢) = 𝑢)
171	6, 7, 9, 10, 12, 13, 14, 15, 17, 25, 35, 97, 130, 147, 170	islmodd 20044	1 ⊢ (𝜑 → 𝑁 ∈ LMod)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1085   = wceq 1539   ∈ wcel 2108  ∃wrex 3064  ran crn 5581   Fn wfn 6413  –onto→wfo 6416  ‘cfv 6418  (class class class)co 7255  Basecbs 16840  +_gcplusg 16888  ._rcmulr 16889  Scalarcsca 16891   ·_𝑠 cvsca 16892  0_gc0g 17067   “_s cimas 17132  Grpcgrp 18492  1_rcur 19652  Ringcrg 19698  LModclmod 20038

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-fin 8695  df-sup 9131  df-inf 9132  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-2 11966  df-3 11967  df-4 11968  df-5 11969  df-6 11970  df-7 11971  df-8 11972  df-9 11973  df-n0 12164  df-z 12250  df-dec 12367  df-uz 12512  df-fz 13169  df-struct 16776  df-sets 16793  df-slot 16811  df-ndx 16823  df-base 16841  df-plusg 16901  df-mulr 16902  df-sca 16904  df-vsca 16905  df-ip 16906  df-tset 16907  df-ple 16908  df-ds 16910  df-0g 17069  df-imas 17136  df-mgm 18241  df-sgrp 18290  df-mnd 18301  df-grp 18495  df-minusg 18496  df-mgp 19636  df-ur 19653  df-ring 19700  df-lmod 20040

This theorem is referenced by:  quslmod  31456