imaslmod - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > imaslmod		Structured version Visualization version GIF version

Theorem imaslmod 32971

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 = (0_g‘𝑀)
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 17467	. 2 ⊢ (𝜑 → 𝐵 = (Base‘𝑁))
7		eqidd 2727	. 2 ⊢ (𝜑 → (+_g‘𝑁) = (+_g‘𝑁))
8		eqid 2726	. . 3 ⊢ (Scalar‘𝑀) = (Scalar‘𝑀)
9	1, 3, 4, 5, 8	imassca 17474	. 2 ⊢ (𝜑 → (Scalar‘𝑀) = (Scalar‘𝑁))
10		eqidd 2727	. 2 ⊢ (𝜑 → ( ·_𝑠 ‘𝑁) = ( ·_𝑠 ‘𝑁))
11		imaslmod.k	. . 3 ⊢ 𝑆 = (Base‘(Scalar‘𝑀))
12	11	a1i 11	. 2 ⊢ (𝜑 → 𝑆 = (Base‘(Scalar‘𝑀)))
13		eqidd 2727	. 2 ⊢ (𝜑 → (+_g‘(Scalar‘𝑀)) = (+_g‘(Scalar‘𝑀)))
14		eqidd 2727	. 2 ⊢ (𝜑 → (._r‘(Scalar‘𝑀)) = (._r‘(Scalar‘𝑀)))
15		eqidd 2727	. 2 ⊢ (𝜑 → (1_r‘(Scalar‘𝑀)) = (1_r‘(Scalar‘𝑀)))
16	8	lmodring 20714	. . 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 20713	. . . . 5 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp)
22	5, 21	syl 17	. . . 4 ⊢ (𝜑 → 𝑀 ∈ Grp)
23		imaslmod.o	. . . 4 ⊢ 0 = (0_g‘𝑀)
24	1, 3, 19, 4, 20, 22, 23	imasgrp 18984	. . 3 ⊢ (𝜑 → (𝑁 ∈ Grp ∧ (𝐹‘ 0 ) = (0_g‘𝑁)))
25	24	simpld 494	. 2 ⊢ (𝜑 → 𝑁 ∈ Grp)
26		imaslmod.t	. . . 4 ⊢ · = ( ·_𝑠 ‘𝑀)
27		eqid 2726	. . . 4 ⊢ ( ·_𝑠 ‘𝑁) = ( ·_𝑠 ‘𝑁)
28		imaslmod.e2	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) → ((𝐹‘𝑎) = (𝐹‘𝑏) → (𝐹‘(𝑘 · 𝑎)) = (𝐹‘(𝑘 · 𝑏))))
29	5	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑀 ∈ LMod)
30		simprl 768	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑘 ∈ 𝑆)
31		simprr 770	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → 𝑏 ∈ 𝑉)
32	2, 8, 26, 11	lmodvscl 20724	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉) → (𝑘 · 𝑏) ∈ 𝑉)
33	29, 30, 31, 32	syl3anc 1368	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝑆 ∧ 𝑏 ∈ 𝑉)) → (𝑘 · 𝑏) ∈ 𝑉)
34	1, 3, 4, 5, 8, 11, 26, 27, 28, 33	imasvscaf 17494	. . 3 ⊢ (𝜑 → ( ·_𝑠 ‘𝑁):(𝑆 × 𝐵)⟶𝐵)
35	34	fovcld 7532	. 2 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵) → (𝑢( ·_𝑠 ‘𝑁)𝑣) ∈ 𝐵)
36		simp-5l 782	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝜑)
37		simpllr 773	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵))
38	37	simp1d 1139	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑢 ∈ 𝑆)
39	38	ad2antrr 723	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑢 ∈ 𝑆)
40	36, 22	syl 17	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑀 ∈ Grp)
41		simplr 766	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑦 ∈ 𝑉)
42		simp-4r 781	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑧 ∈ 𝑉)
43	2, 18	grpcl 18871	. . . . . . . 8 ⊢ ((𝑀 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦 + 𝑧) ∈ 𝑉)
44	40, 41, 42, 43	syl3anc 1368	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑦 + 𝑧) ∈ 𝑉)
45	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ (𝑦 + 𝑧) ∈ 𝑉) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑢 · (𝑦 + 𝑧))))
46	36, 39, 44, 45	syl3anc 1368	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑢 · (𝑦 + 𝑧))))
47		eqid 2726	. . . . . . . . . 10 ⊢ (+_g‘𝑁) = (+_g‘𝑁)
48	4, 20, 1, 3, 5, 18, 47	imasaddval 17487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → ((𝐹‘𝑦)(+_g‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑦 + 𝑧)))
49	36, 41, 42, 48	syl3anc 1368	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘𝑦)(+_g‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑦 + 𝑧)))
50		simpr 484	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘𝑦) = 𝑣)
51		simpllr 773	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘𝑧) = 𝑤)
52	50, 51	oveq12d 7423	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘𝑦)(+_g‘𝑁)(𝐹‘𝑧)) = (𝑣(+_g‘𝑁)𝑤))
53	49, 52	eqtr3d 2768	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑦 + 𝑧)) = (𝑣(+_g‘𝑁)𝑤))
54	53	oveq2d 7421	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘(𝑦 + 𝑧))) = (𝑢( ·_𝑠 ‘𝑁)(𝑣(+_g‘𝑁)𝑤)))
55	36, 5	syl 17	. . . . . . . 8 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → 𝑀 ∈ LMod)
56	2, 18, 8, 26, 11	lmodvsdi 20731	. . . . . . . 8 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑢 · (𝑦 + 𝑧)) = ((𝑢 · 𝑦) + (𝑢 · 𝑧)))
57	55, 39, 41, 42, 56	syl13anc 1369	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · (𝑦 + 𝑧)) = ((𝑢 · 𝑦) + (𝑢 · 𝑧)))
58	57	fveq2d 6889	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · (𝑦 + 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
59	46, 54, 58	3eqtr3d 2774	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝑣(+_g‘𝑁)𝑤)) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
60	2, 8, 26, 11	lmodvscl 20724	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉) → (𝑢 · 𝑦) ∈ 𝑉)
61	55, 39, 41, 60	syl3anc 1368	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · 𝑦) ∈ 𝑉)
62	2, 8, 26, 11	lmodvscl 20724	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑢 · 𝑧) ∈ 𝑉)
63	55, 39, 42, 62	syl3anc 1368	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢 · 𝑧) ∈ 𝑉)
64	4, 20, 1, 3, 5, 18, 47	imasaddval 17487	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢 · 𝑦) ∈ 𝑉 ∧ (𝑢 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑢 · 𝑦))(+_g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
65	36, 61, 63, 64	syl3anc 1368	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘(𝑢 · 𝑦))(+_g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = (𝐹‘((𝑢 · 𝑦) + (𝑢 · 𝑧))))
66	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑦 ∈ 𝑉) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝐹‘(𝑢 · 𝑦)))
67	36, 39, 41, 66	syl3anc 1368	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝐹‘(𝑢 · 𝑦)))
68	50	oveq2d 7421	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑦)) = (𝑢( ·_𝑠 ‘𝑁)𝑣))
69	67, 68	eqtr3d 2768	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · 𝑦)) = (𝑢( ·_𝑠 ‘𝑁)𝑣))
70	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
71	36, 39, 42, 70	syl3anc 1368	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
72	51	oveq2d 7421	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑢( ·_𝑠 ‘𝑁)𝑤))
73	71, 72	eqtr3d 2768	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝐹‘(𝑢 · 𝑧)) = (𝑢( ·_𝑠 ‘𝑁)𝑤))
74	69, 73	oveq12d 7423	. . . . 5 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → ((𝐹‘(𝑢 · 𝑦))(+_g‘𝑁)(𝐹‘(𝑢 · 𝑧))) = ((𝑢( ·_𝑠 ‘𝑁)𝑣)(+_g‘𝑁)(𝑢( ·_𝑠 ‘𝑁)𝑤)))
75	59, 65, 74	3eqtr2d 2772	. . . 4 ⊢ ((((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) ∧ 𝑦 ∈ 𝑉) ∧ (𝐹‘𝑦) = 𝑣) → (𝑢( ·_𝑠 ‘𝑁)(𝑣(+_g‘𝑁)𝑤)) = ((𝑢( ·_𝑠 ‘𝑁)𝑣)(+_g‘𝑁)(𝑢( ·_𝑠 ‘𝑁)𝑤)))
76		simplll 772	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝜑)
77	37	simp2d 1140	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑣 ∈ 𝐵)
78		fofn 6801	. . . . . . 7 ⊢ (𝐹:𝑉–onto→𝐵 → 𝐹 Fn 𝑉)
79	4, 78	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn 𝑉)
80		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ 𝐵)
81		forn 6802	. . . . . . . . 9 ⊢ (𝐹:𝑉–onto→𝐵 → ran 𝐹 = 𝐵)
82	4, 81	syl 17	. . . . . . . 8 ⊢ (𝜑 → ran 𝐹 = 𝐵)
83	82	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → ran 𝐹 = 𝐵)
84	80, 83	eleqtrrd 2830	. . . . . 6 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ ran 𝐹)
85		fvelrnb 6946	. . . . . . 7 ⊢ (𝐹 Fn 𝑉 → (𝑣 ∈ ran 𝐹 ↔ ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣))
86	85	biimpa 476	. . . . . 6 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑣 ∈ ran 𝐹) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
87	79, 84, 86	syl2an2r 682	. . . . 5 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐵) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
88	76, 77, 87	syl2anc 583	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ∃𝑦 ∈ 𝑉 (𝐹‘𝑦) = 𝑣)
89	75, 88	r19.29a 3156	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·_𝑠 ‘𝑁)(𝑣(+_g‘𝑁)𝑤)) = ((𝑢( ·_𝑠 ‘𝑁)𝑣)(+_g‘𝑁)(𝑢( ·_𝑠 ‘𝑁)𝑤)))
90		simpr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ 𝐵)
91	82	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → ran 𝐹 = 𝐵)
92	90, 91	eleqtrrd 2830	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ ran 𝐹)
93		fvelrnb 6946	. . . . . 6 ⊢ (𝐹 Fn 𝑉 → (𝑤 ∈ ran 𝐹 ↔ ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤))
94	93	biimpa 476	. . . . 5 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑤 ∈ ran 𝐹) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
95	79, 92, 94	syl2an2r 682	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐵) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
96	95	3ad2antr3 1187	. . 3 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
97	89, 96	r19.29a 3156	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢( ·_𝑠 ‘𝑁)(𝑣(+_g‘𝑁)𝑤)) = ((𝑢( ·_𝑠 ‘𝑁)𝑣)(+_g‘𝑁)(𝑢( ·_𝑠 ‘𝑁)𝑤)))
98		simplll 772	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝜑)
99	5	ad3antrrr 727	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑀 ∈ LMod)
100		simpllr 773	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵))
101	100	simp1d 1139	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑢 ∈ 𝑆)
102	100	simp2d 1140	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑣 ∈ 𝑆)
103		eqid 2726	. . . . . . 7 ⊢ (+_g‘(Scalar‘𝑀)) = (+_g‘(Scalar‘𝑀))
104	8, 11, 103	lmodacl 20718	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢(+_g‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
105	99, 101, 102, 104	syl3anc 1368	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢(+_g‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
106		simplr 766	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → 𝑧 ∈ 𝑉)
107	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . 5 ⊢ ((𝜑 ∧ (𝑢(+_g‘(Scalar‘𝑀))𝑣) ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(+_g‘(Scalar‘𝑀))𝑣) · 𝑧)))
108	98, 105, 106, 107	syl3anc 1368	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(+_g‘(Scalar‘𝑀))𝑣) · 𝑧)))
109		simpr 484	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘𝑧) = 𝑤)
110	109	oveq2d 7421	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = ((𝑢(+_g‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤))
111	2, 18, 8, 26, 11, 103	lmodvsdir 20732	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉)) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣) · 𝑧) = ((𝑢 · 𝑧) + (𝑣 · 𝑧)))
112	99, 101, 102, 106, 111	syl13anc 1369	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣) · 𝑧) = ((𝑢 · 𝑧) + (𝑣 · 𝑧)))
113	112	fveq2d 6889	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(+_g‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
114	99, 101, 106, 62	syl3anc 1368	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢 · 𝑧) ∈ 𝑉)
115	2, 8, 26, 11	lmodvscl 20724	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑣 · 𝑧) ∈ 𝑉)
116	99, 102, 106, 115	syl3anc 1368	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣 · 𝑧) ∈ 𝑉)
117	4, 20, 1, 3, 5, 18, 47	imasaddval 17487	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢 · 𝑧) ∈ 𝑉 ∧ (𝑣 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑢 · 𝑧))(+_g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
118	98, 114, 116, 117	syl3anc 1368	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝐹‘(𝑢 · 𝑧))(+_g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘((𝑢 · 𝑧) + (𝑣 · 𝑧))))
119	98, 101, 106, 70	syl3anc 1368	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑢 · 𝑧)))
120	109	oveq2d 7421	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑢( ·_𝑠 ‘𝑁)𝑤))
121	119, 120	eqtr3d 2768	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘(𝑢 · 𝑧)) = (𝑢( ·_𝑠 ‘𝑁)𝑤))
122	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → (𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑣 · 𝑧)))
123	98, 102, 106, 122	syl3anc 1368	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘(𝑣 · 𝑧)))
124	109	oveq2d 7421	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝑣( ·_𝑠 ‘𝑁)𝑤))
125	123, 124	eqtr3d 2768	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘(𝑣 · 𝑧)) = (𝑣( ·_𝑠 ‘𝑁)𝑤))
126	121, 125	oveq12d 7423	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝐹‘(𝑢 · 𝑧))(+_g‘𝑁)(𝐹‘(𝑣 · 𝑧))) = ((𝑢( ·_𝑠 ‘𝑁)𝑤)(+_g‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
127	113, 118, 126	3eqtr2d 2772	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(+_g‘(Scalar‘𝑀))𝑣) · 𝑧)) = ((𝑢( ·_𝑠 ‘𝑁)𝑤)(+_g‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
128	108, 110, 127	3eqtr3d 2774	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤) = ((𝑢( ·_𝑠 ‘𝑁)𝑤)(+_g‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
129	95	3ad2antr3 1187	. . 3 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ∃𝑧 ∈ 𝑉 (𝐹‘𝑧) = 𝑤)
130	128, 129	r19.29a 3156	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+_g‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤) = ((𝑢( ·_𝑠 ‘𝑁)𝑤)(+_g‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
131		eqid 2726	. . . . . . . 8 ⊢ (._r‘(Scalar‘𝑀)) = (._r‘(Scalar‘𝑀))
132	8, 11, 131	lmodmcl 20719	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢(._r‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
133	99, 101, 102, 132	syl3anc 1368	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢(._r‘(Scalar‘𝑀))𝑣) ∈ 𝑆)
134	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . . 6 ⊢ ((𝜑 ∧ (𝑢(._r‘(Scalar‘𝑀))𝑣) ∈ 𝑆 ∧ 𝑧 ∈ 𝑉) → ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(._r‘(Scalar‘𝑀))𝑣) · 𝑧)))
135	98, 133, 106, 134	syl3anc 1368	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = (𝐹‘((𝑢(._r‘(Scalar‘𝑀))𝑣) · 𝑧)))
136	109	oveq2d 7421	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)(𝐹‘𝑧)) = ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤))
137	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ (𝑣 · 𝑧) ∈ 𝑉) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
138	98, 101, 116, 137	syl3anc 1368	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·_𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
139	123	oveq2d 7421	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧))) = (𝑢( ·_𝑠 ‘𝑁)(𝐹‘(𝑣 · 𝑧))))
140	2, 8, 26, 11, 131	lmodvsass 20733	. . . . . . . 8 ⊢ ((𝑀 ∈ LMod ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑉)) → ((𝑢(._r‘(Scalar‘𝑀))𝑣) · 𝑧) = (𝑢 · (𝑣 · 𝑧)))
141	99, 101, 102, 106, 140	syl13anc 1369	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(._r‘(Scalar‘𝑀))𝑣) · 𝑧) = (𝑢 · (𝑣 · 𝑧)))
142	141	fveq2d 6889	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(._r‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝐹‘(𝑢 · (𝑣 · 𝑧))))
143	138, 139, 142	3eqtr4rd 2777	. . . . 5 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝐹‘((𝑢(._r‘(Scalar‘𝑀))𝑣) · 𝑧)) = (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧))))
144	135, 136, 143	3eqtr3d 2774	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤) = (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧))))
145	124	oveq2d 7421	. . . 4 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)(𝐹‘𝑧))) = (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
146	144, 145	eqtrd 2766	. . 3 ⊢ ((((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) ∧ 𝑧 ∈ 𝑉) ∧ (𝐹‘𝑧) = 𝑤) → ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤) = (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
147	146, 129	r19.29a 3156	. 2 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘(Scalar‘𝑀))𝑣)( ·_𝑠 ‘𝑁)𝑤) = (𝑢( ·_𝑠 ‘𝑁)(𝑣( ·_𝑠 ‘𝑁)𝑤)))
148		simplll 772	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝜑)
149		eqid 2726	. . . . . . . 8 ⊢ (1_r‘(Scalar‘𝑀)) = (1_r‘(Scalar‘𝑀))
150	11, 149	ringidcl 20165	. . . . . . 7 ⊢ ((Scalar‘𝑀) ∈ Ring → (1_r‘(Scalar‘𝑀)) ∈ 𝑆)
151	17, 150	syl 17	. . . . . 6 ⊢ (𝜑 → (1_r‘(Scalar‘𝑀)) ∈ 𝑆)
152	151	ad3antrrr 727	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (1_r‘(Scalar‘𝑀)) ∈ 𝑆)
153		simplr 766	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝑥 ∈ 𝑉)
154	1, 3, 4, 5, 8, 11, 26, 27, 28	imasvscaval 17493	. . . . 5 ⊢ ((𝜑 ∧ (1_r‘(Scalar‘𝑀)) ∈ 𝑆 ∧ 𝑥 ∈ 𝑉) → ((1_r‘(Scalar‘𝑀))( ·_𝑠 ‘𝑁)(𝐹‘𝑥)) = (𝐹‘((1_r‘(Scalar‘𝑀)) · 𝑥)))
155	148, 152, 153, 154	syl3anc 1368	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1_r‘(Scalar‘𝑀))( ·_𝑠 ‘𝑁)(𝐹‘𝑥)) = (𝐹‘((1_r‘(Scalar‘𝑀)) · 𝑥)))
156		simpr 484	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘𝑥) = 𝑢)
157	156	oveq2d 7421	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1_r‘(Scalar‘𝑀))( ·_𝑠 ‘𝑁)(𝐹‘𝑥)) = ((1_r‘(Scalar‘𝑀))( ·_𝑠 ‘𝑁)𝑢))
158	5	ad3antrrr 727	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → 𝑀 ∈ LMod)
159	2, 8, 26, 149	lmodvs1 20736	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑥 ∈ 𝑉) → ((1_r‘(Scalar‘𝑀)) · 𝑥) = 𝑥)
160	158, 153, 159	syl2anc 583	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1_r‘(Scalar‘𝑀)) · 𝑥) = 𝑥)
161	160	fveq2d 6889	. . . . 5 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘((1_r‘(Scalar‘𝑀)) · 𝑥)) = (𝐹‘𝑥))
162	161, 156	eqtrd 2766	. . . 4 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → (𝐹‘((1_r‘(Scalar‘𝑀)) · 𝑥)) = 𝑢)
163	155, 157, 162	3eqtr3d 2774	. . 3 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝐵) ∧ 𝑥 ∈ 𝑉) ∧ (𝐹‘𝑥) = 𝑢) → ((1_r‘(Scalar‘𝑀))( ·_𝑠 ‘𝑁)𝑢) = 𝑢)
164		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
165	82	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ran 𝐹 = 𝐵)
166	164, 165	eleqtrrd 2830	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ ran 𝐹)
167		fvelrnb 6946	. . . . 5 ⊢ (𝐹 Fn 𝑉 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢))
168	167	biimpa 476	. . . 4 ⊢ ((𝐹 Fn 𝑉 ∧ 𝑢 ∈ ran 𝐹) → ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢)
169	79, 166, 168	syl2an2r 682	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ∃𝑥 ∈ 𝑉 (𝐹‘𝑥) = 𝑢)
170	163, 169	r19.29a 3156	. 2 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝐵) → ((1_r‘(Scalar‘𝑀))( ·_𝑠 ‘𝑁)𝑢) = 𝑢)
171	6, 7, 9, 10, 12, 13, 14, 15, 17, 25, 35, 97, 130, 147, 170	islmodd 20712	1 ⊢ (𝜑 → 𝑁 ∈ LMod)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1084 = wceq 1533 ∈ wcel 2098 ∃wrex 3064 ran crn 5670 Fn wfn 6532 –onto→wfo 6535 ‘cfv 6537 (class class class)co 7405 Basecbs 17153 +_gcplusg 17206 ._rcmulr 17207 Scalarcsca 17209 ·_𝑠 cvsca 17210 0_gc0g 17394 “_s cimas 17459 Grpcgrp 18863 1_rcur 20086 Ringcrg 20138 LModclmod 20706

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2697 ax-rep 5278 ax-sep 5292 ax-nul 5299 ax-pow 5356 ax-pr 5420 ax-un 7722 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2704 df-cleq 2718 df-clel 2804 df-nfc 2879 df-ne 2935 df-nel 3041 df-ral 3056 df-rex 3065 df-rmo 3370 df-reu 3371 df-rab 3427 df-v 3470 df-sbc 3773 df-csb 3889 df-dif 3946 df-un 3948 df-in 3950 df-ss 3960 df-pss 3962 df-nul 4318 df-if 4524 df-pw 4599 df-sn 4624 df-pr 4626 df-tp 4628 df-op 4630 df-uni 4903 df-iun 4992 df-br 5142 df-opab 5204 df-mpt 5225 df-tr 5259 df-id 5567 df-eprel 5573 df-po 5581 df-so 5582 df-fr 5624 df-we 5626 df-xp 5675 df-rel 5676 df-cnv 5677 df-co 5678 df-dm 5679 df-rn 5680 df-res 5681 df-ima 5682 df-pred 6294 df-ord 6361 df-on 6362 df-lim 6363 df-suc 6364 df-iota 6489 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-om 7853 df-1st 7974 df-2nd 7975 df-frecs 8267 df-wrecs 8298 df-recs 8372 df-rdg 8411 df-1o 8467 df-er 8705 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-sup 9439 df-inf 9440 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-nn 12217 df-2 12279 df-3 12280 df-4 12281 df-5 12282 df-6 12283 df-7 12284 df-8 12285 df-9 12286 df-n0 12477 df-z 12563 df-dec 12682 df-uz 12827 df-fz 13491 df-struct 17089 df-sets 17106 df-slot 17124 df-ndx 17136 df-base 17154 df-plusg 17219 df-mulr 17220 df-sca 17222 df-vsca 17223 df-ip 17224 df-tset 17225 df-ple 17226 df-ds 17228 df-0g 17396 df-imas 17463 df-mgm 18573 df-sgrp 18652 df-mnd 18668 df-grp 18866 df-minusg 18867 df-mgp 20040 df-ur 20087 df-ring 20140 df-lmod 20708

This theorem is referenced by: imaslmhm 32975 quslmod 32976

W3C validator