Theorem imaslmod 33998

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 17716	. 2 ⊢ (𝜑 → 𝐵 = (Base‘𝑁))
7		eqidd 2764	. 2 ⊢ (𝜑 → (+g‘𝑁) = (+g‘𝑁))
8		eqid 2763	. . 3 ⊢ (Scalar‘𝑀) = (Scalar‘𝑀)
9	1, 3, 4, 5, 8	imassca 17723	. 2 ⊢ (𝜑 → (Scalar‘𝑀) = (Scalar‘𝑁))
10		eqidd 2764	. 2 ⊢ (𝜑 → ( ·𝑠 ‘𝑁) = ( ·𝑠 ‘𝑁))
11		imaslmod.k	. . 3 ⊢ 𝑆 = (Base‘(Scalar‘𝑀))
12	11	a1i 11	. 2 ⊢ (𝜑 → 𝑆 = (Base‘(Scalar‘𝑀)))
13		eqidd 2764	. 2 ⊢ (𝜑 → (+g‘(Scalar‘𝑀)) = (+g‘(Scalar‘𝑀)))
14		eqidd 2764	. 2 ⊢ (𝜑 → (.r‘(Scalar‘𝑀)) = (.r‘(Scalar‘𝑀)))
15		eqidd 2764	. 2 ⊢ (𝜑 → (1r‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)))
16	8	lmodring 21176	. . 3 ⊢ (𝑀 ∈ LMod → (Scalar‘𝑀) ∈ Ring)
17	5, 16	syl 18	. 2 ⊢ (𝜑 → (Scalar‘𝑀) ∈ Ring)
18		imaslmod.p	. . . . 5 ⊢ + = (+g‘𝑀)
19	18	a1i 11	. . . 4 ⊢ (𝜑 → + = (+g‘𝑀))
20		imaslmod.e1	. . . 4 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ (𝑝 ∈ 𝑉 ∧ 𝑞 ∈ 𝑉)) → (((𝐹‘𝑎) = (𝐹‘𝑝) ∧ (𝐹‘𝑏) = (𝐹‘𝑞)) → (𝐹‘(𝑎 + 𝑏)) = (𝐹‘(𝑝 + 𝑞))))
21		lmodgrp 21175	. . . . 5 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp)
22	5, 21	syl 18	. . . 4 ⊢ (𝜑 → 𝑀 ∈ Grp)
23		imaslmod.o	. . . 4 ⊢ 0 = (0g‘𝑀)
24	1, 3, 19, 4, 20, 22, 23	imasgrp 19298	. . 3 ⊢ (𝜑 → (𝑁 ∈ Grp ∧ (𝐹‘ 0 ) = (0g‘𝑁)))
25	24	simpld 500	. 2 ⊢ (𝜑 → 𝑁 ∈ Grp)
26		imaslmod.t	. . . 4 ⊢ · = ( ·𝑠 ‘𝑀)
27		eqid 2763	. . . 4 ⊢ ( ·𝑠 ‘𝑁) = ( ·𝑠 ‘𝑁)
28		imaslmod.e2	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) → ((𝐹‘𝑎) = (𝐹‘𝑏) → (𝐹‘(𝑘 · 𝑎)) = (𝐹‘(𝑘 · 𝑏))))
29	5	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑀 ∈ LMod)
30		simprl 783	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑘 ∈ 𝑆)
31		simprr 785	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑏 ∈ 𝑉)
32	2, 8, 26, 11	lmodvscl 21186	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉) → (𝑘 · 𝑏) ∈ 𝑉)
33	29, 30, 31, 32	syl3anc 1399	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → (𝑘 · 𝑏) ∈ 𝑉)
34	1, 3, 4, 5, 8, 11, 26, 27, 28, 33	imasvscaf 17743	. . 3 ⊢ (𝜑 → ( ·𝑠 ‘𝑁):(𝑆 × 𝐵)⟶𝐵)
35	34	fovcld 7573	. 2 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵) → (𝑢( ·𝑠 ‘𝑁)𝑣) ∈ 𝐵)
36		simp-5l 797	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝜑)
37		simpllr 788	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵))
38	37	simp1d 1160	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑢 ∈ 𝑆)
39	38	ad2antrr 739	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑢 ∈ 𝑆)
40	36, 22	syl 18	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑀 ∈ Grp)
41		simplr 781	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑦 ∈ 𝑉)
42		simp-4r 796	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑧 ∈ 𝑉)
43	2, 18	grpcl 19184	. . . . . . . 8 ⊢ ((𝑀 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦 + 𝑧) ∈ 𝑉)
44	40, 41, 42, 43	syl3anc 1399	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑦 + 𝑧) ∈ 𝑉)
45	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ (𝑦 + 𝑧) ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑢 · (𝑦 + 𝑧))))
46	36, 39, 44, 45	syl3anc 1399	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑢 · (𝑦 + 𝑧))))
47		eqid 2763	. . . . . . . . . 10 ⊢ (+g‘𝑁) = (+g‘𝑁)
48	4, 20, 1, 3, 5, 18, 47	imasaddval 17736	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → ((𝐹‘𝑦)(+g‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑦 + 𝑧)))
49	36, 41, 42, 48	syl3anc 1399	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘𝑦)(+g‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑦 + 𝑧)))
50		simpr 490	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘𝑦) = 𝑣)
51		simpllr 788	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘𝑧) = 𝑤)
52	50, 51	oveq12d 7464	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘𝑦)(+g‘𝑁)(𝐹‘𝑧)) = (𝑣(+g‘𝑁)𝑤))
53	49, 52	eqtr3d 2800	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑦 + 𝑧)) = (𝑣(+g‘𝑁)𝑤))
54	53	oveq2d 7462	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)))
55	36, 5	syl 18	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑀 ∈ LMod)
56	2, 18, 8, 26, 11	lmodvsdi 21193	. . . . . . . 8 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑢 · (𝑦 + 𝑧)) = ((𝑢 · 𝑦) + (𝑢 · 𝑧)))
57	55, 39, 41, 42, 56	syl13anc 1400	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · (𝑦 + 𝑧)) = ((𝑢 · 𝑦) + (𝑢 · 𝑧)))
58	57	fveq2d 6915	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · (𝑦 + 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
59	46, 54, 58	3eqtr3d 2806	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
60	2, 8, 26, 11	lmodvscl 21186	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉) → (𝑢 · 𝑦) ∈ 𝑉)
61	55, 39, 41, 60	syl3anc 1399	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · 𝑦) ∈ 𝑉)
62	2, 8, 26, 11	lmodvscl 21186	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑢 · 𝑧) ∈ 𝑉)
63	55, 39, 42, 62	syl3anc 1399	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · 𝑧) ∈ 𝑉)
64	4, 20, 1, 3, 5, 18, 47	imasaddval 17736	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢 · 𝑦) ∈ 𝑉 ∧ (𝑢 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑢 · 𝑦))(+g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
65	36, 61, 63, 64	syl3anc 1399	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘(𝑢 · 𝑦))(+g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
66	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝐹‘(𝑢 · 𝑦)))
67	36, 39, 41, 66	syl3anc 1399	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝐹‘(𝑢 · 𝑦)))
68	50	oveq2d 7462	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝑢( ·𝑠 ‘𝑁)𝑣))
69	67, 68	eqtr3d 2800	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · 𝑦)) = (𝑢( ·𝑠 ‘𝑁)𝑣))
70	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
71	36, 39, 42, 70	syl3anc 1399	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
72	51	oveq2d 7462	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
73	71, 72	eqtr3d 2800	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · 𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
74	69, 73	oveq12d 7464	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘(𝑢 · 𝑦))(+g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
75	59, 65, 74	3eqtr2d 2804	. . . 4 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
76		simplll 787	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝜑)
77	37	simp2d 1161	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑣 ∈ 𝐵)
78		fofn 6823	. . . . . . 7 ⊢ (𝐹:𝑉⟶onto𝐵 → 𝐹 Fn 𝑉)
79	4, 78	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn 𝑉)
80		simpr 490	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ 𝐵)
81		forn 6824	. . . . . . . . 9 ⊢ (𝐹:𝑉⟶onto𝐵 → ran 𝐹 = 𝐵)
82	4, 81	syl 18	. . . . . . . 8 ⊢ (𝜑 → ran 𝐹 = 𝐵)
83	82	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → ran 𝐹 = 𝐵)
84	80, 83	eleqtrrd 2867	. . . . . 6 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ ran 𝐹)
85		fvelrnb 6971	. . . . . . 7 ⊢ (𝐹 Fn 𝑉 → (𝑣 ∈ ran 𝐹 ↔ ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣))
86	85	biimpa 482	. . . . . 6 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑣 ∈ ran 𝐹) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
87	79, 84, 86	syl2an2r 698	. . . . 5 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
88	76, 77, 87	syl2anc 596	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
89	75, 88	r19.29a 3174	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
90		simpr 490	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ 𝐵)
91	82	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → ran 𝐹 = 𝐵)
92	90, 91	eleqtrrd 2867	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ ran 𝐹)
93		fvelrnb 6971	. . . . . 6 ⊢ (𝐹 Fn 𝑉 → (𝑤 ∈ ran 𝐹 ↔ ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤))
94	93	biimpa 482	. . . . 5 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑤 ∈ ran 𝐹) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
95	79, 92, 94	syl2an2r 698	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
96	95	3ad2antr3 1209	. . 3 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
97	89, 96	r19.29a 3174	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢( ·𝑠 ‘𝑁)(𝑣(+g‘𝑁)𝑤)) = ((𝑢( ·𝑠 ‘𝑁)𝑣)(+g‘𝑁)(𝑢( ·𝑠 ‘𝑁)𝑤)))
98		simplll 787	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝜑)
99	5	ad3antrrr 743	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑀 ∈ LMod)
100		simpllr 788	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵))
101	100	simp1d 1160	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑢 ∈ 𝑆)
102	100	simp2d 1161	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑣 ∈ 𝑆)
103		eqid 2763	. . . . . . 7 ⊢ (+g‘(Scalar‘𝑀)) = (+g‘(Scalar‘𝑀))
104	8, 11, 103	lmodacl 21180	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢(+g‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
105	99, 101, 102, 104	syl3anc 1399	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢(+g‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
106		simplr 781	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑧 ∈ 𝑉)
107	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . 5 ⊢ ((𝜑 ∧ (𝑢(+g‘(Scalar‘𝑀))𝑣) ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)))
108	98, 105, 106, 107	syl3anc 1399	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)))
109		simpr 490	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘𝑧) = 𝑤)
110	109	oveq2d 7462	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤))
111	2, 18, 8, 26, 11, 103	lmodvsdir 21194	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉)) → ((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧) = ((𝑢 · 𝑧) + (𝑣 · 𝑧)))
112	99, 101, 102, 106, 111	syl13anc 1400	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧) = ((𝑢 · 𝑧) + (𝑣 · 𝑧)))
113	112	fveq2d 6915	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
114	99, 101, 106, 62	syl3anc 1399	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 · 𝑧) ∈ 𝑉)
115	2, 8, 26, 11	lmodvscl 21186	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑣 · 𝑧) ∈ 𝑉)
116	99, 102, 106, 115	syl3anc 1399	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣 · 𝑧) ∈ 𝑉)
117	4, 20, 1, 3, 5, 18, 47	imasaddval 17736	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢 · 𝑧) ∈ 𝑉 ∧ (𝑣 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑢 · 𝑧))(+g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
118	98, 114, 116, 117	syl3anc 1399	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝐹‘(𝑢 · 𝑧))(+g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
119	98, 101, 106, 70	syl3anc 1399	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
120	109	oveq2d 7462	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
121	119, 120	eqtr3d 2800	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘(𝑢 · 𝑧)) = (𝑢( ·𝑠 ‘𝑁)𝑤))
122	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑣 · 𝑧)))
123	98, 102, 106, 122	syl3anc 1399	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑣 · 𝑧)))
124	109	oveq2d 7462	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑣( ·𝑠 ‘𝑁)𝑤))
125	123, 124	eqtr3d 2800	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘(𝑣 · 𝑧)) = (𝑣( ·𝑠 ‘𝑁)𝑤))
126	121, 125	oveq12d 7464	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝐹‘(𝑢 · 𝑧))(+g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
127	113, 118, 126	3eqtr2d 2804	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(+g‘(Scalar‘𝑀))𝑣) · 𝑧)) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
128	108, 110, 127	3eqtr3d 2806	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
129	95	3ad2antr3 1209	. . 3 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
130	128, 129	r19.29a 3174	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = ((𝑢( ·𝑠 ‘𝑁)𝑤)(+g‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
131		eqid 2763	. . . . . . . 8 ⊢ (.r‘(Scalar‘𝑀)) = (.r‘(Scalar‘𝑀))
132	8, 11, 131	lmodmcl 21181	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢(.r‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
133	99, 101, 102, 132	syl3anc 1399	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢(.r‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
134	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢(.r‘(Scalar‘𝑀))𝑣) ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)))
135	98, 133, 106, 134	syl3anc 1399	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)))
136	109	oveq2d 7462	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)(𝐹‘𝑧)) = ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤))
137	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ (𝑣 · 𝑧) ∈ 𝑉) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
138	98, 101, 116, 137	syl3anc 1399	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
139	123	oveq2d 7462	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))) = (𝑢( ·𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))))
140	2, 8, 26, 11, 131	lmodvsass 21195	. . . . . . . 8 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉)) → ((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧) = (𝑢 · (𝑣 · 𝑧)))
141	99, 101, 102, 106, 140	syl13anc 1400	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧) = (𝑢 · (𝑣 · 𝑧)))
142	141	fveq2d 6915	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
143	138, 139, 142	3eqtr4rd 2809	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(.r‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))))
144	135, 136, 143	3eqtr3d 2806	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))))
145	124	oveq2d 7462	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)(𝐹‘𝑧))) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
146	144, 145	eqtrd 2798	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
147	146, 129	r19.29a 3174	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘(Scalar‘𝑀))𝑣)( ·𝑠 ‘𝑁)𝑤) = (𝑢( ·𝑠 ‘𝑁)(𝑣( ·𝑠 ‘𝑁)𝑤)))
148		simplll 787	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝜑)
149		eqid 2763	. . . . . . . 8 ⊢ (1r‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀))
150	11, 149	ringidcl 20527	. . . . . . 7 ⊢ ((Scalar‘𝑀) ∈ Ring → (1r‘(Scalar‘𝑀)) ∈ 𝑆)
151	17, 150	syl 18	. . . . . 6 ⊢ (𝜑 → (1r‘(Scalar‘𝑀)) ∈ 𝑆)
152	151	ad3antrrr 743	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (1r‘(Scalar‘𝑀)) ∈ 𝑆)
153		simplr 781	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝑥 ∈ 𝑉)
154	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17742	. . . . 5 ⊢ ((𝜑 ∧ (1r‘(Scalar‘𝑀)) ∈ 𝑆 ∧ 𝑥 ∈ 𝑉) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)(𝐹‘𝑥)) = (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)))
155	148, 152, 153, 154	syl3anc 1399	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)(𝐹‘𝑥)) = (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)))
156		simpr 490	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘𝑥) = 𝑢)
157	156	oveq2d 7462	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)(𝐹‘𝑥)) = ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)𝑢))
158	5	ad3antrrr 743	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝑀 ∈ LMod)
159	2, 8, 26, 149	lmodvs1 21198	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑥 ∈ 𝑉) → ((1r‘(Scalar‘𝑀)) · 𝑥) = 𝑥)
160	158, 153, 159	syl2anc 596	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀)) · 𝑥) = 𝑥)
161	160	fveq2d 6915	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)) = (𝐹‘𝑥))
162	161, 156	eqtrd 2798	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘((1r‘(Scalar‘𝑀)) · 𝑥)) = 𝑢)
163	155, 157, 162	3eqtr3d 2806	. . 3 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)𝑢) = 𝑢)
164		simpr 490	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
165	82	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ran 𝐹 = 𝐵)
166	164, 165	eleqtrrd 2867	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ ran 𝐹)
167		fvelrnb 6971	. . . . 5 ⊢ (𝐹 Fn 𝑉 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢))
168	167	biimpa 482	. . . 4 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑢 ∈ ran 𝐹) → ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢)
169	79, 166, 168	syl2an2r 698	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢)
170	163, 169	r19.29a 3174	. 2 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑁)𝑢) = 𝑢)
171	6, 7, 9, 10, 12, 13, 14, 15, 17, 25, 35, 97, 130, 147, 170	islmodd 21174	1 ⊢ (𝜑 → 𝑁 ∈ LMod)

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147  ∃wrex 3090  ran crn 5657   Fn wfn 6556  ⟶ontowfo 6559  ‘cfv 6561  (class class class)co 7446  Basecbs 17419  +_gcplusg 17460  ._rcmulr 17461  Scalarcsca 17463   ·_𝑠 cvsca 17464  0_gc0g 17642   “_s cimas 17708  Grpcgrp 19176  1_rcur 20440  Ringcrg 20492  LModclmod 21168

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5236  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7778  ax-cnex 11286  ax-resscn 11287  ax-1cn 11288  ax-icn 11289  ax-addcl 11290  ax-addrcl 11291  ax-mulcl 11292  ax-mulrcl 11293  ax-mulcom 11294  ax-addass 11295  ax-mulass 11296  ax-distr 11297  ax-i2m1 11298  ax-1ne0 11299  ax-1rid 11300  ax-rnegex 11301  ax-rrecex 11302  ax-cnre 11303  ax-pre-lttri 11304  ax-pre-lttrn 11305  ax-pre-ltadd 11306  ax-pre-mulgt0 11307

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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6325  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6515  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7403  df-ov 7449  df-oprab 7450  df-mpo 7451  df-om 7905  df-1st 8028  df-2nd 8029  df-frecs 8330  df-wrecs 8361  df-recs 8410  df-rdg 8449  df-1o 8507  df-er 8748  df-en 9005  df-dom 9006  df-sdom 9007  df-fin 9008  df-sup 9464  df-inf 9465  df-pnf 11375  df-mnf 11376  df-xr 11377  df-ltxr 11378  df-le 11379  df-sub 11573  df-neg 11574  df-nn 12366  df-2 12435  df-3 12436  df-4 12437  df-5 12438  df-6 12439  df-7 12440  df-8 12441  df-9 12442  df-n0 12637  df-z 12724  df-dec 12845  df-uz 12996  df-fz 13670  df-struct 17357  df-sets 17374  df-slot 17392  df-ndx 17404  df-base 17420  df-plusg 17473  df-mulr 17474  df-sca 17476  df-vsca 17477  df-ip 17478  df-tset 17479  df-ple 17480  df-ds 17482  df-0g 17644  df-imas 17712  df-mgm 18848  df-sgrp 18940  df-mnd 18956  df-grp 19179  df-minusg 19180  df-mgp 20394  df-ur 20441  df-ring 20494  df-lmod 21170

This theorem is used by:  imaslmhm  34002  quslmod  34003