Theorem elrspunidl 33717

Description: Elementhood in the span of a union of ideals. (Contributed by Thierry Arnoux, 30-Jun-2024.)

Hypotheses

Ref	Expression
elrspunidl.n	⊢ 𝑁 = (RSpan‘𝑅)
elrspunidl.b	⊢ 𝐵 = (Base‘𝑅)
elrspunidl.1	⊢ 0 = (0g‘𝑅)
elrspunidl.x	⊢ · = (.r‘𝑅)
elrspunidl.r	⊢ (𝜑 → 𝑅 ∈ Ring)
elrspunidl.i	⊢ (𝜑 → 𝑆 ⊆ (LIdeal‘𝑅))

Assertion

Ref	Expression
elrspunidl	⊢ (𝜑 → (𝑋 ∈ (𝑁‘∪ 𝑆) ↔ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)))

Distinct variable groups:   0 ,𝑎,𝑘   · ,𝑎,𝑘   𝐵,𝑎,𝑘   𝑅,𝑎,𝑘   𝑆,𝑎,𝑘   𝑋,𝑎,𝑘   𝜑,𝑎,𝑘

Allowed substitution hints:   𝑁(𝑘,𝑎)

Proof of Theorem elrspunidl

Dummy variables 𝑏 𝑓 𝑖 𝑗 𝑙 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elrspunidl.n	. . 3 ⊢ 𝑁 = (RSpan‘𝑅)
2		elrspunidl.b	. . 3 ⊢ 𝐵 = (Base‘𝑅)
3		elrspunidl.1	. . 3 ⊢ 0 = (0g‘𝑅)
4		elrspunidl.x	. . 3 ⊢ · = (.r‘𝑅)
5		elrspunidl.r	. . 3 ⊢ (𝜑 → 𝑅 ∈ Ring)
6		elrspunidl.i	. . . . . . 7 ⊢ (𝜑 → 𝑆 ⊆ (LIdeal‘𝑅))
7	6	sselda 3938	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝑆) → 𝑖 ∈ (LIdeal‘𝑅))
8		eqid 2763	. . . . . . 7 ⊢ (LIdeal‘𝑅) = (LIdeal‘𝑅)
9	2, 8	lidlss 21317	. . . . . 6 ⊢ (𝑖 ∈ (LIdeal‘𝑅) → 𝑖 ⊆ 𝐵)
10	7, 9	syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝑆) → 𝑖 ⊆ 𝐵)
11	10	ralrimiva 3157	. . . 4 ⊢ (𝜑 → ∀𝑖 ∈ 𝑆 𝑖 ⊆ 𝐵)
12		unissb 4907	. . . 4 ⊢ (∪ 𝑆 ⊆ 𝐵 ↔ ∀𝑖 ∈ 𝑆 𝑖 ⊆ 𝐵)
13	11, 12	sylibr 237	. . 3 ⊢ (𝜑 → ∪ 𝑆 ⊆ 𝐵)
14	1, 2, 3, 4, 5, 13	elrsp 33667	. 2 ⊢ (𝜑 → (𝑋 ∈ (𝑁‘∪ 𝑆) ↔ ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))))
15		fvexd 6898	. . . . . . . . . 10 ⊢ (𝜑 → (LIdeal‘𝑅) ∈ V)
16	15, 6	ssexd 5296	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ V)
17	16	uniexd 7742	. . . . . . . 8 ⊢ (𝜑 → ∪ 𝑆 ∈ V)
18		eluni2 4877	. . . . . . . . . 10 ⊢ (𝑗 ∈ ∪ 𝑆 ↔ ∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
19	18	bilani 509	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ∪ 𝑆) → ∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
20	19	ralrimiva 3157	. . . . . . . 8 ⊢ (𝜑 → ∀𝑗 ∈ ∪ 𝑆∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
21		eleq2 2852	. . . . . . . . 9 ⊢ (𝑖 = (𝑓‘𝑗) → (𝑗 ∈ 𝑖 ↔ 𝑗 ∈ (𝑓‘𝑗)))
22	21	ac6sg 10473	. . . . . . . 8 ⊢ (∪ 𝑆 ∈ V → (∀𝑗 ∈ ∪ 𝑆∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖 → ∃𝑓(𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))))
23	17, 20, 22	sylc 66	. . . . . . 7 ⊢ (𝜑 → ∃𝑓(𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)))
24	23	ad3antrrr 742	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) → ∃𝑓(𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)))
25		simp-5l 796	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝜑)
26	25	adantr 485	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → 𝜑)
27		ringcmn 20366	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
28	26, 5, 27	3syl 19	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → 𝑅 ∈ CMnd)
29		vex 3459	. . . . . . . . . . . . 13 ⊢ 𝑓 ∈ V
30		cnvexg 7922	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ V → ◡𝑓 ∈ V)
31		imaexg 7911	. . . . . . . . . . . . 13 ⊢ (◡𝑓 ∈ V → (◡𝑓 “ {𝑖}) ∈ V)
32	29, 30, 31	mp2b 10	. . . . . . . . . . . 12 ⊢ (◡𝑓 “ {𝑖}) ∈ V
33	32	a1i 11	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (◡𝑓 “ {𝑖}) ∈ V)
34	5	ad7antr 750	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑅 ∈ Ring)
35		elmapi 8847	. . . . . . . . . . . . . . 15 ⊢ (𝑏 ∈ (𝐵 ↑m ∪ 𝑆) → 𝑏:∪ 𝑆⟶𝐵)
36	35	ad7antlr 751	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑏:∪ 𝑆⟶𝐵)
37		cnvimass 6086	. . . . . . . . . . . . . . . . 17 ⊢ (◡𝑓 “ {𝑖}) ⊆ dom 𝑓
38		fdm 6717	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓:∪ 𝑆⟶𝑆 → dom 𝑓 = ∪ 𝑆)
39	37, 38	sseqtrid 3980	. . . . . . . . . . . . . . . 16 ⊢ (𝑓:∪ 𝑆⟶𝑆 → (◡𝑓 “ {𝑖}) ⊆ ∪ 𝑆)
40	39	ad3antlr 743	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (◡𝑓 “ {𝑖}) ⊆ ∪ 𝑆)
41	40	sselda 3938	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑙 ∈ ∪ 𝑆)
42	36, 41	ffvelcdmd 7082	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → (𝑏‘𝑙) ∈ 𝐵)
43	13	ad7antr 750	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → ∪ 𝑆 ⊆ 𝐵)
44	43, 41	sseldd 3939	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑙 ∈ 𝐵)
45	2, 4	ringcl 20333	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝑏‘𝑙) ∈ 𝐵 ∧ 𝑙 ∈ 𝐵) → ((𝑏‘𝑙) · 𝑙) ∈ 𝐵)
46	34, 42, 44, 45	syl3anc 1398	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → ((𝑏‘𝑙) · 𝑙) ∈ 𝐵)
47		fveq2 6883	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑙 → (𝑏‘𝑗) = (𝑏‘𝑙))
48		id 23	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑙 → 𝑗 = 𝑙)
49	47, 48	oveq12d 7430	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑙 → ((𝑏‘𝑗) · 𝑗) = ((𝑏‘𝑙) · 𝑙))
50	49	cbvmptv 5216	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑙 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑙) · 𝑙))
51	46, 50	fmptd 7111	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)):(◡𝑓 “ {𝑖})⟶𝐵)
52	33	mptexd 7224	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V)
53	51	ffund 6712	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → Fun (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))
54		simp-5r 797	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → 𝑏 finSupp 0 )
55		nfv 1944	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑗((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 )
56		nfcv 2925	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑗𝑅
57		nfcv 2925	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑗 Σg
58		nfmpt1 5211	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑗(𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))
59	56, 57, 58	nfov 7442	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑗(𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))
60	59	nfeq2 2942	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑗 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))
61	55, 60	nfan 1929	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗(((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))
62		nfv 1944	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗 𝑓:∪ 𝑆⟶𝑆
63	61, 62	nfan 1929	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆)
64		nfra1 3289	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)
65	63, 64	nfan 1929	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))
66		nfv 1944	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗 𝑖 ∈ 𝑆
67	65, 66	nfan 1929	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆)
68		nfcv 2925	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗(◡𝑓 “ {𝑖})
69		nfcv 2925	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗(𝑏 supp 0 )
70	35	ad7antlr 751	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑏:∪ 𝑆⟶𝐵)
71	70	ffnd 6708	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑏 Fn ∪ 𝑆)
72	25, 17	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∪ 𝑆 ∈ V)
73	72	ad2antrr 738	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ∈ V)
74	3	fvexi 6897	. . . . . . . . . . . . . . . . 17 ⊢ 0 ∈ V
75	74	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 0 ∈ V)
76	40	ssdifd 4100	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 )) ⊆ (∪ 𝑆 ∖ (𝑏 supp 0 )))
77	76	sselda 3938	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
78	71, 73, 75, 77	fvdifsupp 8168	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
79	78	oveq1d 7427	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
80	5	ad7antr 750	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑅 ∈ Ring)
81	13	ad7antr 750	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ⊆ 𝐵)
82	77	eldifad 3918	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ ∪ 𝑆)
83	81, 82	sseldd 3939	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ 𝐵)
84	2, 4, 3	ringlz 20377	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝑗 ∈ 𝐵) → ( 0 · 𝑗) = 0 )
85	80, 83, 84	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ( 0 · 𝑗) = 0 )
86	79, 85	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = 0 )
87	67, 68, 69, 86, 33	suppss2f 32964	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → ((𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))
88		fsuppsssupp 9342	. . . . . . . . . . . 12 ⊢ ((((𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V ∧ Fun (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) ∧ (𝑏 finSupp 0 ∧ ((𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
89	52, 53, 54, 87, 88	syl22anc 851	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
90	2, 3, 28, 33, 51, 89	gsumcl 19986	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) ∈ 𝐵)
91	90	fmpttd 7112	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))):𝑆⟶𝐵)
92	2	fvexi 6897	. . . . . . . . . . . 12 ⊢ 𝐵 ∈ V
93	92	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ∈ V)
94	93, 16	elmapd 8838	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ (𝐵 ↑m 𝑆) ↔ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))):𝑆⟶𝐵))
95	94	biimpar 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))):𝑆⟶𝐵) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ (𝐵 ↑m 𝑆))
96	25, 91, 95	syl2anc 595	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ (𝐵 ↑m 𝑆))
97		breq1 5113	. . . . . . . . . 10 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑎 finSupp 0 ↔ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ))
98		oveq2 7420	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑅 Σg 𝑎) = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))))
99	98	eqeq2d 2774	. . . . . . . . . 10 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑋 = (𝑅 Σg 𝑎) ↔ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))))))
100		fveq1 6882	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑎‘𝑘) = ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘))
101	100	eleq1d 2848	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → ((𝑎‘𝑘) ∈ 𝑘 ↔ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘))
102	101	ralbidv 3188	. . . . . . . . . 10 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘 ↔ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘))
103	97, 99, 102	3anbi123d 1464	. . . . . . . . 9 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → ((𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ↔ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) ∧ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)))
104	103	adantl 486	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) → ((𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ↔ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) ∧ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)))
105	25, 16	syl 18	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑆 ∈ V)
106	105	mptexd 7224	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ V)
107	74	a1i 11	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 0 ∈ V)
108		funmpt 6576	. . . . . . . . . . 11 ⊢ Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))
109	108	a1i 11	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))))
110		simplr 780	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑓:∪ 𝑆⟶𝑆)
111	110	ffund 6712	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Fun 𝑓)
112		simp-4r 795	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑏 finSupp 0 )
113	112	fsuppimpd 9330	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑏 supp 0 ) ∈ Fin)
114		imafi 9276	. . . . . . . . . . . 12 ⊢ ((Fun 𝑓 ∧ (𝑏 supp 0 ) ∈ Fin) → (𝑓 “ (𝑏 supp 0 )) ∈ Fin)
115	111, 113, 114	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑓 “ (𝑏 supp 0 )) ∈ Fin)
116		nfv 1944	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))
117	65, 116	nfan 1929	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))))
118		simpllr 787	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 𝑓:∪ 𝑆⟶𝑆)
119	118	ffund 6712	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → Fun 𝑓)
120		snssi 4752	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))) → {𝑖} ⊆ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))))
121	120	adantl 486	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → {𝑖} ⊆ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))))
122		sspreima 7065	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((Fun 𝑓 ∧ {𝑖} ⊆ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))))
123	119, 121, 122	syl2anc 595	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))))
124		difpreima 7062	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Fun 𝑓 → (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) = ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))))
125	119, 124	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) = ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))))
126	123, 125	sseqtrd 3974	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))))
127		suppssdm 8174	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑏 supp 0 ) ⊆ dom 𝑏
128	35	ad6antlr 749	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 𝑏:∪ 𝑆⟶𝐵)
129	127, 128	fssdm 6727	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ ∪ 𝑆)
130	118	fdmd 6718	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → dom 𝑓 = ∪ 𝑆)
131	129, 130	sseqtrrd 3975	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ dom 𝑓)
132		sseqin2 4177	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑏 supp 0 ) ⊆ dom 𝑓 ↔ (dom 𝑓 ∩ (𝑏 supp 0 )) = (𝑏 supp 0 ))
133	132	biimpi 219	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑏 supp 0 ) ⊆ dom 𝑓 → (dom 𝑓 ∩ (𝑏 supp 0 )) = (𝑏 supp 0 ))
134		dminss 6152	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (dom 𝑓 ∩ (𝑏 supp 0 )) ⊆ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))
135	133, 134	eqsstrrdi 3983	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑏 supp 0 ) ⊆ dom 𝑓 → (𝑏 supp 0 ) ⊆ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 ))))
136	131, 135	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 ))))
137	136	sscond 4101	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))) ⊆ ((◡𝑓 “ 𝑆) ∖ (𝑏 supp 0 )))
138	126, 137	sstrd 3948	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ ((◡𝑓 “ 𝑆) ∖ (𝑏 supp 0 )))
139		fimacnv 6730	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓:∪ 𝑆⟶𝑆 → (◡𝑓 “ 𝑆) = ∪ 𝑆)
140	118, 139	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ 𝑆) = ∪ 𝑆)
141	140	difeq1d 4081	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → ((◡𝑓 “ 𝑆) ∖ (𝑏 supp 0 )) = (∪ 𝑆 ∖ (𝑏 supp 0 )))
142	138, 141	sseqtrd 3974	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ (∪ 𝑆 ∖ (𝑏 supp 0 )))
143	142	sselda 3938	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
144		ssidd 3961	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ (𝑏 supp 0 ))
145	72	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → ∪ 𝑆 ∈ V)
146	74	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 0 ∈ V)
147	128, 144, 145, 146	suppssr 8192	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
148	143, 147	syldan 602	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → (𝑏‘𝑗) = 0 )
149	148	oveq1d 7427	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
150	5	ad7antr 750	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑅 ∈ Ring)
151	13	ad7antr 750	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ∪ 𝑆 ⊆ 𝐵)
152	39	ad3antlr 743	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ ∪ 𝑆)
153	152	sselda 3938	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑗 ∈ ∪ 𝑆)
154	151, 153	sseldd 3939	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑗 ∈ 𝐵)
155	150, 154, 84	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ( 0 · 𝑗) = 0 )
156	149, 155	eqtrd 2798	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ((𝑏‘𝑗) · 𝑗) = 0 )
157	117, 156	mpteq2da 5204	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 ))
158	157	oveq2d 7428	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 )))
159	5, 27	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ CMnd)
160	159	cmnmndd 19875	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑅 ∈ Mnd)
161	160	ad6antr 748	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 𝑅 ∈ Mnd)
162	3	gsumz 18896	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Mnd ∧ (◡𝑓 “ {𝑖}) ∈ V) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 )) = 0 )
163	161, 32, 162	sylancl 597	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 )) = 0 )
164	158, 163	eqtrd 2798	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) = 0 )
165	164, 105	suppss2 8197	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ⊆ (𝑓 “ (𝑏 supp 0 )))
166	115, 165	ssfid 9230	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ∈ Fin)
167		isfsupp 9326	. . . . . . . . . . 11 ⊢ (((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ V ∧ 0 ∈ V) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ↔ (Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ∈ Fin)))
168	167	biimpar 482	. . . . . . . . . 10 ⊢ ((((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ V ∧ 0 ∈ V) ∧ (Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ∈ Fin)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 )
169	106, 107, 109, 166, 168	syl22anc 851	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 )
170		simpllr 787	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))
171	25, 159	syl 18	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑅 ∈ CMnd)
172	5	ad6antr 748	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑅 ∈ Ring)
173	35	ad5antlr 747	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑏:∪ 𝑆⟶𝐵)
174	173	ffvelcdmda 7081	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → (𝑏‘𝑗) ∈ 𝐵)
175	25, 13	syl 18	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∪ 𝑆 ⊆ 𝐵)
176	175	sselda 3938	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑗 ∈ 𝐵)
177	2, 4	ringcl 20333	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝑏‘𝑗) ∈ 𝐵 ∧ 𝑗 ∈ 𝐵) → ((𝑏‘𝑗) · 𝑗) ∈ 𝐵)
178	172, 174, 176, 177	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → ((𝑏‘𝑗) · 𝑗) ∈ 𝐵)
179		eqid 2763	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))
180	65, 178, 179	fmptdf 7114	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)):∪ 𝑆⟶𝐵)
181	72	mptexd 7224	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V)
182		funmpt 6576	. . . . . . . . . . . . 13 ⊢ Fun (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))
183	182	a1i 11	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Fun (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))
184		nfcv 2925	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗∪ 𝑆
185	173	adantr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑏:∪ 𝑆⟶𝐵)
186	185	ffnd 6708	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑏 Fn ∪ 𝑆)
187	72	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ∈ V)
188	74	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 0 ∈ V)
189		simpr 489	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
190	186, 187, 188, 189	fvdifsupp 8168	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
191	190	oveq1d 7427	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
192	5	ad6antr 748	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑅 ∈ Ring)
193	175	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ⊆ 𝐵)
194	189	eldifad 3918	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑗 ∈ ∪ 𝑆)
195	193, 194	sseldd 3939	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑗 ∈ 𝐵)
196	192, 195, 84	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ( 0 · 𝑗) = 0 )
197	191, 196	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = 0 )
198	65, 184, 69, 197, 72	suppss2f 32964	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))
199		fsuppsssupp 9342	. . . . . . . . . . . 12 ⊢ ((((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V ∧ Fun (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) ∧ (𝑏 finSupp 0 ∧ ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
200	181, 183, 112, 198, 199	syl22anc 851	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
201		sndisj 5102	. . . . . . . . . . . 12 ⊢ Disj 𝑖 ∈ 𝑆 {𝑖}
202		disjpreima 32910	. . . . . . . . . . . 12 ⊢ ((Fun 𝑓 ∧ Disj 𝑖 ∈ 𝑆 {𝑖}) → Disj 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
203	111, 201, 202	sylancl 597	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Disj 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
204		iunid 5026	. . . . . . . . . . . . 13 ⊢ ∪ 𝑖 ∈ 𝑆 {𝑖} = 𝑆
205	204	imaeq2i 6062	. . . . . . . . . . . 12 ⊢ (◡𝑓 “ ∪ 𝑖 ∈ 𝑆 {𝑖}) = (◡𝑓 “ 𝑆)
206		iunpreima 32890	. . . . . . . . . . . . 13 ⊢ (Fun 𝑓 → (◡𝑓 “ ∪ 𝑖 ∈ 𝑆 {𝑖}) = ∪ 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
207	111, 206	syl 18	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (◡𝑓 “ ∪ 𝑖 ∈ 𝑆 {𝑖}) = ∪ 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
208	139	ad2antlr 739	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (◡𝑓 “ 𝑆) = ∪ 𝑆)
209	205, 207, 208	3eqtr3a 2822	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∪ 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}) = ∪ 𝑆)
210	2, 3, 171, 72, 105, 180, 200, 203, 209	gsumpart 33364	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖}))))))
211	40	resmptd 6044	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖})) = (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))
212	211	oveq2d 7428	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖}))) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))
213	212	mpteq2dva 5205	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖})))) = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))))
214	213	oveq2d 7428	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖}))))) = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))))
215	170, 210, 214	3eqtrd 2802	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))))
216		eqid 2763	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))
217		simpr 489	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → 𝑖 = 𝑘)
218	217	sneqd 4602	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → {𝑖} = {𝑘})
219	218	imaeq2d 6064	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → (◡𝑓 “ {𝑖}) = (◡𝑓 “ {𝑘}))
220	219	mpteq1d 5202	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)))
221	220	oveq2d 7428	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))))
222		simpr 489	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ 𝑆)
223		ovexd 7447	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))) ∈ V)
224	216, 221, 222, 223	fvmptd2 7000	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))))
225	159	ad6antr 748	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑅 ∈ CMnd)
226	29	cnvex 7923	. . . . . . . . . . . . . 14 ⊢ ◡𝑓 ∈ V
227	226	imaex 7912	. . . . . . . . . . . . 13 ⊢ (◡𝑓 “ {𝑘}) ∈ V
228	227	a1i 11	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (◡𝑓 “ {𝑘}) ∈ V)
229	5	ad6antr 748	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑅 ∈ Ring)
230	25, 6	syl 18	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑆 ⊆ (LIdeal‘𝑅))
231	230	sselda 3938	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ (LIdeal‘𝑅))
232	8	lidlsubg 21329	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (LIdeal‘𝑅)) → 𝑘 ∈ (SubGrp‘𝑅))
233		subgsubm 19216	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (SubGrp‘𝑅) → 𝑘 ∈ (SubMnd‘𝑅))
234	232, 233	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (LIdeal‘𝑅)) → 𝑘 ∈ (SubMnd‘𝑅))
235	229, 231, 234	syl2anc 595	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ (SubMnd‘𝑅))
236	229	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑅 ∈ Ring)
237	231	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑘 ∈ (LIdeal‘𝑅))
238	35	ad7antlr 751	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑏:∪ 𝑆⟶𝐵)
239		cnvimass 6086	. . . . . . . . . . . . . . . . . 18 ⊢ (◡𝑓 “ {𝑘}) ⊆ dom 𝑓
240	239, 38	sseqtrid 3980	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓:∪ 𝑆⟶𝑆 → (◡𝑓 “ {𝑘}) ⊆ ∪ 𝑆)
241	240	ad3antlr 743	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (◡𝑓 “ {𝑘}) ⊆ ∪ 𝑆)
242	241	sselda 3938	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑙 ∈ ∪ 𝑆)
243	238, 242	ffvelcdmd 7082	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑏‘𝑙) ∈ 𝐵)
244		fveq2 6883	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑙 → (𝑓‘𝑗) = (𝑓‘𝑙))
245	48, 244	eleq12d 2857	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑙 → (𝑗 ∈ (𝑓‘𝑗) ↔ 𝑙 ∈ (𝑓‘𝑙)))
246		simpllr 787	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))
247	245, 246, 242	rspcdva 3583	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑙 ∈ (𝑓‘𝑙))
248		simp-4r 795	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑓:∪ 𝑆⟶𝑆)
249	248	ffnd 6708	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑓 Fn ∪ 𝑆)
250		elpreima 7055	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 Fn ∪ 𝑆 → (𝑙 ∈ (◡𝑓 “ {𝑘}) ↔ (𝑙 ∈ ∪ 𝑆 ∧ (𝑓‘𝑙) ∈ {𝑘})))
251	250	biimpa 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 Fn ∪ 𝑆 ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑙 ∈ ∪ 𝑆 ∧ (𝑓‘𝑙) ∈ {𝑘}))
252		elsni 4607	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓‘𝑙) ∈ {𝑘} → (𝑓‘𝑙) = 𝑘)
253	251, 252	simpl2im 512	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓 Fn ∪ 𝑆 ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑓‘𝑙) = 𝑘)
254	249, 253	sylancom 599	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑓‘𝑙) = 𝑘)
255	247, 254	eleqtrd 2865	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑙 ∈ 𝑘)
256	8, 2, 4	lidlmcl 21331	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ 𝑘 ∈ (LIdeal‘𝑅)) ∧ ((𝑏‘𝑙) ∈ 𝐵 ∧ 𝑙 ∈ 𝑘)) → ((𝑏‘𝑙) · 𝑙) ∈ 𝑘)
257	236, 237, 243, 255, 256	syl22anc 851	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → ((𝑏‘𝑙) · 𝑙) ∈ 𝑘)
258	49	cbvmptv 5216	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑙 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑙) · 𝑙))
259	257, 258	fmptd 7111	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)):(◡𝑓 “ {𝑘})⟶𝑘)
260	228	mptexd 7224	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V)
261	259	ffund 6712	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → Fun (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)))
262		simp-5r 797	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑏 finSupp 0 )
263		nfv 1944	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗 𝑘 ∈ 𝑆
264	65, 263	nfan 1929	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆)
265		nfcv 2925	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(◡𝑓 “ {𝑘})
266	35	ad7antlr 751	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑏:∪ 𝑆⟶𝐵)
267	266	ffnd 6708	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑏 Fn ∪ 𝑆)
268	72	ad2antrr 738	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ∈ V)
269	74	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 0 ∈ V)
270	241	ssdifd 4100	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 )) ⊆ (∪ 𝑆 ∖ (𝑏 supp 0 )))
271	270	sselda 3938	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
272	267, 268, 269, 271	fvdifsupp 8168	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
273	272	oveq1d 7427	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
274	13	ad7antr 750	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ⊆ 𝐵)
275	271	eldifad 3918	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ ∪ 𝑆)
276	274, 275	sseldd 3939	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ 𝐵)
277	229, 276, 84	syl2an2r 697	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ( 0 · 𝑗) = 0 )
278	273, 277	eqtrd 2798	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = 0 )
279	264, 265, 69, 278, 228	suppss2f 32964	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))
280		fsuppsssupp 9342	. . . . . . . . . . . . 13 ⊢ ((((𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V ∧ Fun (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))) ∧ (𝑏 finSupp 0 ∧ ((𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
281	260, 261, 262, 279, 280	syl22anc 851	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
282	3, 225, 228, 235, 259, 281	gsumsubmcl 19990	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))) ∈ 𝑘)
283	224, 282	eqeltrd 2863	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)
284	283	ralrimiva 3157	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)
285	169, 215, 284	3jca 1146	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) ∧ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘))
286	96, 104, 285	rspcedvd 3584	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
287	286	anasss 471	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ (𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
288	24, 287	exlimddv 1965	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
289	288	anasss 471	. . . 4 ⊢ (((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ (𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
290	289	r19.29an 3169	. . 3 ⊢ ((𝜑 ∧ ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
291	5	ad4antr 744	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑅 ∈ Ring)
292	291	adantr 485	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑅 ∈ Ring)
293		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
294	293	zrhrhm 21642	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → (ℤRHom‘𝑅) ∈ (ℤring RingHom 𝑅))
295		zringbas 21584	. . . . . . . . . . . . . 14 ⊢ ℤ = (Base‘ℤring)
296	295, 2	rhmf 20567	. . . . . . . . . . . . 13 ⊢ ((ℤRHom‘𝑅) ∈ (ℤring RingHom 𝑅) → (ℤRHom‘𝑅):ℤ⟶𝐵)
297	292, 294, 296	3syl 19	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (ℤRHom‘𝑅):ℤ⟶𝐵)
298		simp-5r 797	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 ∈ (𝐵 ↑m 𝑆))
299	74	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 0 ∈ V)
300		ssv 3962	. . . . . . . . . . . . . . . . . 18 ⊢ ran 𝑎 ⊆ V
301		ssdif 4099	. . . . . . . . . . . . . . . . . 18 ⊢ (ran 𝑎 ⊆ V → (ran 𝑎 ∖ { 0 }) ⊆ (V ∖ { 0 }))
302	300, 301	ax-mp 5	. . . . . . . . . . . . . . . . 17 ⊢ (ran 𝑎 ∖ { 0 }) ⊆ (V ∖ { 0 })
303	302	sseli 3934	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 ∈ (ran 𝑎 ∖ { 0 }) → 𝑚 ∈ (V ∖ { 0 }))
304	303	adantl 486	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑚 ∈ (V ∖ { 0 }))
305		simp-4r 795	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 finSupp 0 )
306	298, 299, 304, 305	fsuppinisegfi 33013	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (◡𝑎 “ {𝑚}) ∈ Fin)
307		hashcl 14394	. . . . . . . . . . . . . 14 ⊢ ((◡𝑎 “ {𝑚}) ∈ Fin → (♯‘(◡𝑎 “ {𝑚})) ∈ ℕ0)
308	306, 307	syl 18	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑚})) ∈ ℕ0)
309	308	nn0zd 12617	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑚})) ∈ ℤ)
310	297, 309	ffvelcdmd 7082	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))) ∈ 𝐵)
311		eqid 2763	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) = (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))))
312	310, 311	fmptd 7111	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))):(ran 𝑎 ∖ { 0 })⟶𝐵)
313	2, 3	ring0cl 20351	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 0 ∈ 𝐵)
314		fconst6g 6769	. . . . . . . . . . 11 ⊢ ( 0 ∈ 𝐵 → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }):(∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))⟶𝐵)
315	291, 313, 314	3syl 19	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }):(∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))⟶𝐵)
316		disjdif 4434	. . . . . . . . . . 11 ⊢ ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅
317	316	a1i 11	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅)
318	312, 315, 317	fun2d 6744	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))⟶𝐵)
319		simplll 786	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)))
320	93, 16	elmapd 8838	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑎 ∈ (𝐵 ↑m 𝑆) ↔ 𝑎:𝑆⟶𝐵))
321	320	biimpa 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) → 𝑎:𝑆⟶𝐵)
322	319, 321	syl 18	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎:𝑆⟶𝐵)
323	322	ffnd 6708	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎 Fn 𝑆)
324		elssuni 4905	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ 𝑆 → 𝑘 ⊆ ∪ 𝑆)
325	324	adantl 486	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ⊆ ∪ 𝑆)
326	325	sseld 3937	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ 𝑘 ∈ 𝑆) → ((𝑎‘𝑘) ∈ 𝑘 → (𝑎‘𝑘) ∈ ∪ 𝑆))
327	326	ralimdva 3177	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) → (∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘 → ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ ∪ 𝑆))
328	327	imp 411	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ ∪ 𝑆)
329		fnfvrnss 7118	. . . . . . . . . . . . 13 ⊢ ((𝑎 Fn 𝑆 ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ ∪ 𝑆) → ran 𝑎 ⊆ ∪ 𝑆)
330	323, 328, 329	syl2anc 595	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ran 𝑎 ⊆ ∪ 𝑆)
331	330	ssdifssd 4102	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (ran 𝑎 ∖ { 0 }) ⊆ ∪ 𝑆)
332		undif 4444	. . . . . . . . . . 11 ⊢ ((ran 𝑎 ∖ { 0 }) ⊆ ∪ 𝑆 ↔ ((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∪ 𝑆)
333	331, 332	sylib 221	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∪ 𝑆)
334	333	feq2d 6691	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))⟶𝐵 ↔ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):∪ 𝑆⟶𝐵))
335	318, 334	mpbid 235	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):∪ 𝑆⟶𝐵)
336	92	a1i 11	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝐵 ∈ V)
337	17	ad4antr 744	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∪ 𝑆 ∈ V)
338	336, 337	elmapd 8838	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ (𝐵 ↑m ∪ 𝑆) ↔ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):∪ 𝑆⟶𝐵))
339	335, 338	mpbird 260	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ (𝐵 ↑m ∪ 𝑆))
340		breq1 5113	. . . . . . . . 9 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑏 finSupp 0 ↔ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ))
341		fveq1 6882	. . . . . . . . . . . . 13 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑏‘𝑗) = (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗))
342	341	oveq1d 7427	. . . . . . . . . . . 12 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → ((𝑏‘𝑗) · 𝑗) = ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))
343	342	mpteq2dv 5206	. . . . . . . . . . 11 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)))
344	343	oveq2d 7428	. . . . . . . . . 10 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))
345	344	eqeq2d 2774	. . . . . . . . 9 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) ↔ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)))))
346	340, 345	anbi12d 643	. . . . . . . 8 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → ((𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ↔ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))))
347	346	adantl 486	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))) → ((𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ↔ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))))
348	318	ffund 6712	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → Fun ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })))
349	339	elexd 3478	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ V)
350	74	a1i 11	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 0 ∈ V)
351	322	ffund 6712	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → Fun 𝑎)
352	319	simprd 500	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎 ∈ (𝐵 ↑m 𝑆))
353		simpllr 787	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎 finSupp 0 )
354		fsupprnfi 33018	. . . . . . . . . . . . 13 ⊢ (((Fun 𝑎 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ ( 0 ∈ V ∧ 𝑎 finSupp 0 )) → ran 𝑎 ∈ Fin)
355		diffi 9160	. . . . . . . . . . . . 13 ⊢ (ran 𝑎 ∈ Fin → (ran 𝑎 ∖ { 0 }) ∈ Fin)
356	354, 355	syl 18	. . . . . . . . . . . 12 ⊢ (((Fun 𝑎 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ ( 0 ∈ V ∧ 𝑎 finSupp 0 )) → (ran 𝑎 ∖ { 0 }) ∈ Fin)
357	351, 352, 350, 353, 356	syl22anc 851	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (ran 𝑎 ∖ { 0 }) ∈ Fin)
358	312, 357, 350	fdmfifsupp 9336	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) finSupp 0 )
359	13	ssdifssd 4102	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ⊆ 𝐵)
360	359	ad4antr 744	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ⊆ 𝐵)
361	336, 360	ssexd 5296	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ∈ V)
362	361, 350	fczfsuppd 9347	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) finSupp 0 )
363	358, 362	fsuppun 9348	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) supp 0 ) ∈ Fin)
364		funisfsupp 9328	. . . . . . . . . 10 ⊢ ((Fun ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∧ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ V ∧ 0 ∈ V) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ↔ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) supp 0 ) ∈ Fin))
365	364	biimpar 482	. . . . . . . . 9 ⊢ (((Fun ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∧ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ V ∧ 0 ∈ V) ∧ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) supp 0 ) ∈ Fin) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 )
366	348, 349, 350, 363, 365	syl31anc 1400	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 )
367		fvex 6896	. . . . . . . . . . . . . . . 16 ⊢ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))) ∈ V
368	367, 311	fnmpti 6680	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) Fn (ran 𝑎 ∖ { 0 })
369	368	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) Fn (ran 𝑎 ∖ { 0 }))
370		fnconstg 6768	. . . . . . . . . . . . . . . 16 ⊢ ( 0 ∈ V → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))
371	74, 370	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))
372	371	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))
373	316	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅)
374		simpr 489	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑗 ∈ (ran 𝑎 ∖ { 0 }))
375	369, 372, 373, 374	fvun1d 6976	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))))‘𝑗))
376		sneq 4600	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 = 𝑗 → {𝑚} = {𝑗})
377	376	imaeq2d 6064	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = 𝑗 → (◡𝑎 “ {𝑚}) = (◡𝑎 “ {𝑗}))
378	377	fveq2d 6887	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = 𝑗 → (♯‘(◡𝑎 “ {𝑚})) = (♯‘(◡𝑎 “ {𝑗})))
379	378	fveq2d 6887	. . . . . . . . . . . . . 14 ⊢ (𝑚 = 𝑗 → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))) = ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))))
380		fvexd 6898	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) ∈ V)
381	311, 379, 374, 380	fvmptd3 7015	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))))‘𝑗) = ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))))
382	375, 381	eqtrd 2798	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))))
383	382	oveq1d 7427	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) = (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))
384	383	mpteq2dva 5205	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)) = (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗)))
385	384	oveq2d 7428	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))))
386	291, 27	syl 18	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑅 ∈ CMnd)
387	316	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅)
388		fvun2 6975	. . . . . . . . . . . . . . 15 ⊢ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) Fn (ran 𝑎 ∖ { 0 }) ∧ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ∧ (((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅ ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗))
389	368, 371, 388	mp3an12 1480	. . . . . . . . . . . . . 14 ⊢ ((((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅ ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗))
390	387, 389	sylancom 599	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗))
391	74	fvconst2 7204	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) → (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗) = 0 )
392	391	adantl 486	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗) = 0 )
393	390, 392	eqtrd 2798	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = 0 )
394	393	oveq1d 7427	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) = ( 0 · 𝑗))
395	360	sselda 3938	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → 𝑗 ∈ 𝐵)
396	291, 395, 84	syl2an2r 697	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ( 0 · 𝑗) = 0 )
397	394, 396	eqtrd 2798	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) = 0 )
398	291	adantr 485	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑅 ∈ Ring)
399	335	ffvelcdmda 7081	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) ∈ 𝐵)
400	13	ad4antr 744	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∪ 𝑆 ⊆ 𝐵)
401	400	sselda 3938	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑗 ∈ 𝐵)
402	2, 4	ringcl 20333	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) ∈ 𝐵 ∧ 𝑗 ∈ 𝐵) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) ∈ 𝐵)
403	398, 399, 401, 402	syl3anc 1398	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) ∈ 𝐵)
404	2, 3, 386, 337, 397, 357, 403, 331	gsummptres2 33354	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))
405		eqid 2763	. . . . . . . . . . 11 ⊢ (.g‘𝑅) = (.g‘𝑅)
406	2, 3, 405, 386, 322, 353	gsumhashmul 33368	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg 𝑎) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))))
407		simplr 780	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑋 = (𝑅 Σg 𝑎))
408	291	adantr 485	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑅 ∈ Ring)
409	352	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 ∈ (𝐵 ↑m 𝑆))
410	74	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 0 ∈ V)
411	302, 374	sselid 3936	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑗 ∈ (V ∖ { 0 }))
412	353	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 finSupp 0 )
413	409, 410, 411, 412	fsuppinisegfi 33013	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (◡𝑎 “ {𝑗}) ∈ Fin)
414		hashcl 14394	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑎 “ {𝑗}) ∈ Fin → (♯‘(◡𝑎 “ {𝑗})) ∈ ℕ0)
415	413, 414	syl 18	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑗})) ∈ ℕ0)
416	415	nn0zd 12617	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ)
417	331, 400	sstrd 3948	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (ran 𝑎 ∖ { 0 }) ⊆ 𝐵)
418	417	sselda 3938	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑗 ∈ 𝐵)
419		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ (1r‘𝑅) = (1r‘𝑅)
420	293, 405, 419	zrhmulg 21640	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)))
421	420	adantr 485	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)))
422	421	oveq1d 7427	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗) = (((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)) · 𝑗))
423		simpll 778	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → 𝑅 ∈ Ring)
424		simplr 780	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ)
425	2, 419	ringidcl 20349	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ 𝐵)
426	425	ad2antrr 738	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (1r‘𝑅) ∈ 𝐵)
427		simpr 489	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → 𝑗 ∈ 𝐵)
428	2, 405, 4	mulgass2 20393	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ ((♯‘(◡𝑎 “ {𝑗})) ∈ ℤ ∧ (1r‘𝑅) ∈ 𝐵 ∧ 𝑗 ∈ 𝐵)) → (((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)((1r‘𝑅) · 𝑗)))
429	423, 424, 426, 427, 428	syl13anc 1399	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)((1r‘𝑅) · 𝑗)))
430	2, 4, 419	ringlidm 20353	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ 𝑗 ∈ 𝐵) → ((1r‘𝑅) · 𝑗) = 𝑗)
431	423, 430	sylancom 599	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → ((1r‘𝑅) · 𝑗) = 𝑗)
432	431	oveq2d 7428	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)((1r‘𝑅) · 𝑗)) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))
433	422, 429, 432	3eqtrd 2802	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))
434	408, 416, 418, 433	syl21anc 850	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))
435	434	mpteq2dva 5205	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗)) = (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗)))
436	435	oveq2d 7428	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))))
437	406, 407, 436	3eqtr4d 2808	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑋 = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))))
438	385, 404, 437	3eqtr4rd 2809	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))
439	366, 438	jca 520	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)))))
440	339, 347, 439	rspcedvd 3584	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))))
441	440	exp41 439	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) → (𝑎 finSupp 0 → (𝑋 = (𝑅 Σg 𝑎) → (∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘 → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))))))
442	441	3imp2 1368	. . . 4 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ (𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)) → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))))
443	442	r19.29an 3169	. . 3 ⊢ ((𝜑 ∧ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)) → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))))
444	290, 443	impbida 812	. 2 ⊢ (𝜑 → (∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ↔ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)))
445	14, 444	bitrd 282	1 ⊢ (𝜑 → (𝑋 ∈ (𝑁‘∪ 𝑆) ↔ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1103   = wceq 1570  ∃wex 1809   ∈ wcel 2143  ∀wral 3079  ∃wrex 3089  Vcvv 3455   ∖ cdif 3903   ∪ cun 3904   ∩ cin 3905   ⊆ wss 3906  ∅c0 4287  {csn 4590  ∪ cuni 4873  ∪ ciun 4957  Disj wdisj 5077   class class class wbr 5110   ↦ cmpt 5193   × cxp 5661  ^◡ccnv 5662  dom cdm 5663  ran crn 5664   ↾ cres 5665   “ cima 5666  Fun wfun 6532   Fn wfn 6533  ⟶wf 6534  ‘cfv 6538  (class class class)co 7412   supp csupp 8157   ↑_m cmap 8825  Fincfn 8944   finSupp cfsupp 9322  ℕ₀cn0 12505  ℤcz 12592  ♯chash 14368  Basecbs 17270  ._rcmulr 17312  0_gc0g 17493   Σ_g cgsu 17494  Mndcmnd 18793  SubMndcsubmnd 18841  ._gcmg 19134  SubGrpcsubg 19187  CMndccmn 19851  1_rcur 20264  Ringcrg 20316   RingHom crh 20552  LIdealclidl 21311  RSpancrsp 21312  ℤ_ringczring 21577  ℤRHomczrh 21630

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-reg 9555  ax-inf2 9611  ax-ac2 10448  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178  ax-addf 11180  ax-mulf 11181

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-tp 4595  df-op 4597  df-uni 4874  df-int 4914  df-iun 4959  df-iin 4960  df-disj 5078  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7676  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8158  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-1o 8454  df-2o 8455  df-er 8695  df-map 8827  df-ixp 8897  df-en 8945  df-dom 8946  df-sdom 8947  df-fin 8948  df-fsupp 9323  df-sup 9403  df-oi 9473  df-r1 9737  df-rank 9738  df-card 9926  df-ac 10101  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-7 12309  df-8 12310  df-9 12311  df-n0 12506  df-z 12593  df-dec 12713  df-uz 12864  df-fz 13537  df-fzo 13685  df-seq 14040  df-hash 14369  df-struct 17208  df-sets 17225  df-slot 17243  df-ndx 17255  df-base 17271  df-ress 17292  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-0g 17495  df-gsum 17496  df-prds 17501  df-pws 17503  df-mre 17639  df-mrc 17640  df-acs 17642  df-mgm 18699  df-sgrp 18778  df-mnd 18794  df-mhm 18842  df-submnd 18843  df-grp 19004  df-minusg 19005  df-sbg 19006  df-mulg 19135  df-subg 19190  df-ghm 19285  df-cntz 19388  df-cmn 19853  df-abl 19854  df-mgp 20218  df-rng 20232  df-ur 20265  df-ring 20318  df-cring 20319  df-rhm 20555  df-nzr 20597  df-subrng 20632  df-subrg 20656  df-lmod 20964  df-lss 21034  df-lsp 21074  df-lmhm 21124  df-lbs 21177  df-sra 21275  df-rgmod 21276  df-lidl 21313  df-rsp 21314  df-cnfld 21504  df-zring 21578  df-zrh 21634  df-dsmm 21863  df-frlm 21878  df-uvc 21914

This theorem is referenced by:  zarcmplem  34252