Theorem elrspunidl 33436

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 3995	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝑆) → 𝑖 ∈ (LIdeal‘𝑅))
8		eqid 2735	. . . . . . 7 ⊢ (LIdeal‘𝑅) = (LIdeal‘𝑅)
9	2, 8	lidlss 21240	. . . . . 6 ⊢ (𝑖 ∈ (LIdeal‘𝑅) → 𝑖 ⊆ 𝐵)
10	7, 9	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝑆) → 𝑖 ⊆ 𝐵)
11	10	ralrimiva 3144	. . . 4 ⊢ (𝜑 → ∀𝑖 ∈ 𝑆 𝑖 ⊆ 𝐵)
12		unissb 4944	. . . 4 ⊢ (∪ 𝑆 ⊆ 𝐵 ↔ ∀𝑖 ∈ 𝑆 𝑖 ⊆ 𝐵)
13	11, 12	sylibr 234	. . 3 ⊢ (𝜑 → ∪ 𝑆 ⊆ 𝐵)
14	1, 2, 3, 4, 5, 13	elrsp 33380	. 2 ⊢ (𝜑 → (𝑋 ∈ (𝑁‘∪ 𝑆) ↔ ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))))
15		fvexd 6922	. . . . . . . . . 10 ⊢ (𝜑 → (LIdeal‘𝑅) ∈ V)
16	15, 6	ssexd 5330	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ V)
17	16	uniexd 7761	. . . . . . . 8 ⊢ (𝜑 → ∪ 𝑆 ∈ V)
18		eluni2 4916	. . . . . . . . . . 11 ⊢ (𝑗 ∈ ∪ 𝑆 ↔ ∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
19	18	biimpi 216	. . . . . . . . . 10 ⊢ (𝑗 ∈ ∪ 𝑆 → ∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
20	19	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ∪ 𝑆) → ∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
21	20	ralrimiva 3144	. . . . . . . 8 ⊢ (𝜑 → ∀𝑗 ∈ ∪ 𝑆∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖)
22		eleq2 2828	. . . . . . . . 9 ⊢ (𝑖 = (𝑓‘𝑗) → (𝑗 ∈ 𝑖 ↔ 𝑗 ∈ (𝑓‘𝑗)))
23	22	ac6sg 10526	. . . . . . . 8 ⊢ (∪ 𝑆 ∈ V → (∀𝑗 ∈ ∪ 𝑆∃𝑖 ∈ 𝑆 𝑗 ∈ 𝑖 → ∃𝑓(𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))))
24	17, 21, 23	sylc 65	. . . . . . 7 ⊢ (𝜑 → ∃𝑓(𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)))
25	24	ad3antrrr 730	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) → ∃𝑓(𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)))
26		simp-5l 785	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝜑)
27	26	adantr 480	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → 𝜑)
28		ringcmn 20296	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
29	27, 5, 28	3syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → 𝑅 ∈ CMnd)
30		vex 3482	. . . . . . . . . . . . 13 ⊢ 𝑓 ∈ V
31		cnvexg 7947	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ V → ◡𝑓 ∈ V)
32		imaexg 7936	. . . . . . . . . . . . 13 ⊢ (◡𝑓 ∈ V → (◡𝑓 “ {𝑖}) ∈ V)
33	30, 31, 32	mp2b 10	. . . . . . . . . . . 12 ⊢ (◡𝑓 “ {𝑖}) ∈ V
34	33	a1i 11	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (◡𝑓 “ {𝑖}) ∈ V)
35	5	ad7antr 738	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑅 ∈ Ring)
36		elmapi 8888	. . . . . . . . . . . . . . 15 ⊢ (𝑏 ∈ (𝐵 ↑m ∪ 𝑆) → 𝑏:∪ 𝑆⟶𝐵)
37	36	ad7antlr 739	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑏:∪ 𝑆⟶𝐵)
38		cnvimass 6102	. . . . . . . . . . . . . . . . 17 ⊢ (◡𝑓 “ {𝑖}) ⊆ dom 𝑓
39		fdm 6746	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓:∪ 𝑆⟶𝑆 → dom 𝑓 = ∪ 𝑆)
40	38, 39	sseqtrid 4048	. . . . . . . . . . . . . . . 16 ⊢ (𝑓:∪ 𝑆⟶𝑆 → (◡𝑓 “ {𝑖}) ⊆ ∪ 𝑆)
41	40	ad3antlr 731	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (◡𝑓 “ {𝑖}) ⊆ ∪ 𝑆)
42	41	sselda 3995	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑙 ∈ ∪ 𝑆)
43	37, 42	ffvelcdmd 7105	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → (𝑏‘𝑙) ∈ 𝐵)
44	13	ad7antr 738	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → ∪ 𝑆 ⊆ 𝐵)
45	44, 42	sseldd 3996	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → 𝑙 ∈ 𝐵)
46	2, 4	ringcl 20268	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝑏‘𝑙) ∈ 𝐵 ∧ 𝑙 ∈ 𝐵) → ((𝑏‘𝑙) · 𝑙) ∈ 𝐵)
47	35, 43, 45, 46	syl3anc 1370	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑖})) → ((𝑏‘𝑙) · 𝑙) ∈ 𝐵)
48		fveq2 6907	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑙 → (𝑏‘𝑗) = (𝑏‘𝑙))
49		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑙 → 𝑗 = 𝑙)
50	48, 49	oveq12d 7449	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑙 → ((𝑏‘𝑗) · 𝑗) = ((𝑏‘𝑙) · 𝑙))
51	50	cbvmptv 5261	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑙 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑙) · 𝑙))
52	47, 51	fmptd 7134	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)):(◡𝑓 “ {𝑖})⟶𝐵)
53	34	mptexd 7244	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V)
54	52	ffund 6741	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → Fun (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))
55		simp-5r 786	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → 𝑏 finSupp 0 )
56		nfv 1912	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑗((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 )
57		nfcv 2903	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑗𝑅
58		nfcv 2903	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑗 Σg
59		nfmpt1 5256	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑗(𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))
60	57, 58, 59	nfov 7461	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑗(𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))
61	60	nfeq2 2921	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑗 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))
62	56, 61	nfan 1897	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗(((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))
63		nfv 1912	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗 𝑓:∪ 𝑆⟶𝑆
64	62, 63	nfan 1897	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆)
65		nfra1 3282	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)
66	64, 65	nfan 1897	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))
67		nfv 1912	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗 𝑖 ∈ 𝑆
68	66, 67	nfan 1897	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆)
69		nfcv 2903	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗(◡𝑓 “ {𝑖})
70		nfcv 2903	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗(𝑏 supp 0 )
71	36	ad7antlr 739	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑏:∪ 𝑆⟶𝐵)
72	71	ffnd 6738	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑏 Fn ∪ 𝑆)
73	26, 17	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∪ 𝑆 ∈ V)
74	73	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ∈ V)
75	3	fvexi 6921	. . . . . . . . . . . . . . . . 17 ⊢ 0 ∈ V
76	75	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 0 ∈ V)
77	41	ssdifd 4155	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 )) ⊆ (∪ 𝑆 ∖ (𝑏 supp 0 )))
78	77	sselda 3995	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
79	72, 74, 76, 78	fvdifsupp 8195	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
80	79	oveq1d 7446	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
81	5	ad7antr 738	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑅 ∈ Ring)
82	13	ad7antr 738	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ⊆ 𝐵)
83	78	eldifad 3975	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ ∪ 𝑆)
84	82, 83	sseldd 3996	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ 𝐵)
85	2, 4, 3	ringlz 20307	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝑗 ∈ 𝐵) → ( 0 · 𝑗) = 0 )
86	81, 84, 85	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ( 0 · 𝑗) = 0 )
87	80, 86	eqtrd 2775	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑖}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = 0 )
88	68, 69, 70, 87, 34	suppss2f 32655	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → ((𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))
89		fsuppsssupp 9419	. . . . . . . . . . . 12 ⊢ ((((𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V ∧ Fun (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) ∧ (𝑏 finSupp 0 ∧ ((𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
90	53, 54, 55, 88, 89	syl22anc 839	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
91	2, 3, 29, 34, 52, 90	gsumcl 19948	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) ∈ 𝐵)
92	91	fmpttd 7135	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))):𝑆⟶𝐵)
93	2	fvexi 6921	. . . . . . . . . . . 12 ⊢ 𝐵 ∈ V
94	93	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ∈ V)
95	94, 16	elmapd 8879	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ (𝐵 ↑m 𝑆) ↔ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))):𝑆⟶𝐵))
96	95	biimpar 477	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))):𝑆⟶𝐵) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ (𝐵 ↑m 𝑆))
97	26, 92, 96	syl2anc 584	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ (𝐵 ↑m 𝑆))
98		breq1 5151	. . . . . . . . . 10 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑎 finSupp 0 ↔ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ))
99		oveq2 7439	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑅 Σg 𝑎) = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))))
100	99	eqeq2d 2746	. . . . . . . . . 10 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑋 = (𝑅 Σg 𝑎) ↔ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))))))
101		fveq1 6906	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (𝑎‘𝑘) = ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘))
102	101	eleq1d 2824	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → ((𝑎‘𝑘) ∈ 𝑘 ↔ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘))
103	102	ralbidv 3176	. . . . . . . . . 10 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → (∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘 ↔ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘))
104	98, 100, 103	3anbi123d 1435	. . . . . . . . 9 ⊢ (𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) → ((𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ↔ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) ∧ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)))
105	104	adantl 481	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑎 = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) → ((𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ↔ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) ∧ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)))
106	26, 16	syl 17	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑆 ∈ V)
107	106	mptexd 7244	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ V)
108	75	a1i 11	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 0 ∈ V)
109		funmpt 6606	. . . . . . . . . . 11 ⊢ Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))
110	109	a1i 11	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))))
111		simplr 769	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑓:∪ 𝑆⟶𝑆)
112	111	ffund 6741	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Fun 𝑓)
113		simp-4r 784	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑏 finSupp 0 )
114	113	fsuppimpd 9407	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑏 supp 0 ) ∈ Fin)
115		imafi 9351	. . . . . . . . . . . 12 ⊢ ((Fun 𝑓 ∧ (𝑏 supp 0 ) ∈ Fin) → (𝑓 “ (𝑏 supp 0 )) ∈ Fin)
116	112, 114, 115	syl2anc 584	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑓 “ (𝑏 supp 0 )) ∈ Fin)
117		nfv 1912	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))
118	66, 117	nfan 1897	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))))
119		simpllr 776	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 𝑓:∪ 𝑆⟶𝑆)
120	119	ffund 6741	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → Fun 𝑓)
121		snssi 4813	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))) → {𝑖} ⊆ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))))
122	121	adantl 481	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → {𝑖} ⊆ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 ))))
123		sspreima 7088	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((Fun 𝑓 ∧ {𝑖} ⊆ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))))
124	120, 122, 123	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))))
125		difpreima 7085	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Fun 𝑓 → (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) = ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))))
126	120, 125	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) = ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))))
127	124, 126	sseqtrd 4036	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))))
128		suppssdm 8201	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑏 supp 0 ) ⊆ dom 𝑏
129	36	ad6antlr 737	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 𝑏:∪ 𝑆⟶𝐵)
130	128, 129	fssdm 6756	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ ∪ 𝑆)
131	119	fdmd 6747	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → dom 𝑓 = ∪ 𝑆)
132	130, 131	sseqtrrd 4037	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ dom 𝑓)
133		sseqin2 4231	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑏 supp 0 ) ⊆ dom 𝑓 ↔ (dom 𝑓 ∩ (𝑏 supp 0 )) = (𝑏 supp 0 ))
134	133	biimpi 216	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑏 supp 0 ) ⊆ dom 𝑓 → (dom 𝑓 ∩ (𝑏 supp 0 )) = (𝑏 supp 0 ))
135		dminss 6175	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (dom 𝑓 ∩ (𝑏 supp 0 )) ⊆ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))
136	134, 135	eqsstrrdi 4051	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑏 supp 0 ) ⊆ dom 𝑓 → (𝑏 supp 0 ) ⊆ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 ))))
137	132, 136	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 ))))
138	137	sscond 4156	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → ((◡𝑓 “ 𝑆) ∖ (◡𝑓 “ (𝑓 “ (𝑏 supp 0 )))) ⊆ ((◡𝑓 “ 𝑆) ∖ (𝑏 supp 0 )))
139	127, 138	sstrd 4006	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ ((◡𝑓 “ 𝑆) ∖ (𝑏 supp 0 )))
140		fimacnv 6759	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓:∪ 𝑆⟶𝑆 → (◡𝑓 “ 𝑆) = ∪ 𝑆)
141	119, 140	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ 𝑆) = ∪ 𝑆)
142	141	difeq1d 4135	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → ((◡𝑓 “ 𝑆) ∖ (𝑏 supp 0 )) = (∪ 𝑆 ∖ (𝑏 supp 0 )))
143	139, 142	sseqtrd 4036	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ (∪ 𝑆 ∖ (𝑏 supp 0 )))
144	143	sselda 3995	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
145		ssidd 4019	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑏 supp 0 ) ⊆ (𝑏 supp 0 ))
146	73	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → ∪ 𝑆 ∈ V)
147	75	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 0 ∈ V)
148	129, 145, 146, 147	suppssr 8219	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
149	144, 148	syldan 591	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → (𝑏‘𝑗) = 0 )
150	149	oveq1d 7446	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
151	5	ad7antr 738	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑅 ∈ Ring)
152	13	ad7antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ∪ 𝑆 ⊆ 𝐵)
153	40	ad3antlr 731	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (◡𝑓 “ {𝑖}) ⊆ ∪ 𝑆)
154	153	sselda 3995	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑗 ∈ ∪ 𝑆)
155	152, 154	sseldd 3996	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → 𝑗 ∈ 𝐵)
156	151, 155, 85	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ( 0 · 𝑗) = 0 )
157	150, 156	eqtrd 2775	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) ∧ 𝑗 ∈ (◡𝑓 “ {𝑖})) → ((𝑏‘𝑗) · 𝑗) = 0 )
158	118, 157	mpteq2da 5246	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 ))
159	158	oveq2d 7447	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 )))
160	5, 28	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ CMnd)
161	160	cmnmndd 19837	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑅 ∈ Mnd)
162	161	ad6antr 736	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → 𝑅 ∈ Mnd)
163	3	gsumz 18862	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Mnd ∧ (◡𝑓 “ {𝑖}) ∈ V) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 )) = 0 )
164	162, 33, 163	sylancl 586	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ 0 )) = 0 )
165	159, 164	eqtrd 2775	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ (𝑆 ∖ (𝑓 “ (𝑏 supp 0 )))) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) = 0 )
166	165, 106	suppss2 8224	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ⊆ (𝑓 “ (𝑏 supp 0 )))
167	116, 166	ssfid 9299	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ∈ Fin)
168		isfsupp 9403	. . . . . . . . . . 11 ⊢ (((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ V ∧ 0 ∈ V) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ↔ (Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ∈ Fin)))
169	168	biimpar 477	. . . . . . . . . 10 ⊢ ((((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∈ V ∧ 0 ∈ V) ∧ (Fun (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) supp 0 ) ∈ Fin)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 )
170	107, 108, 110, 167, 169	syl22anc 839	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 )
171		simpllr 776	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))
172	26, 160	syl 17	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑅 ∈ CMnd)
173	5	ad6antr 736	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑅 ∈ Ring)
174	36	ad5antlr 735	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑏:∪ 𝑆⟶𝐵)
175	174	ffvelcdmda 7104	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → (𝑏‘𝑗) ∈ 𝐵)
176	26, 13	syl 17	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∪ 𝑆 ⊆ 𝐵)
177	176	sselda 3995	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑗 ∈ 𝐵)
178	2, 4	ringcl 20268	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝑏‘𝑗) ∈ 𝐵 ∧ 𝑗 ∈ 𝐵) → ((𝑏‘𝑗) · 𝑗) ∈ 𝐵)
179	173, 175, 177, 178	syl3anc 1370	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ ∪ 𝑆) → ((𝑏‘𝑗) · 𝑗) ∈ 𝐵)
180		eqid 2735	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))
181	66, 179, 180	fmptdf 7137	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)):∪ 𝑆⟶𝐵)
182	73	mptexd 7244	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V)
183		funmpt 6606	. . . . . . . . . . . . 13 ⊢ Fun (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))
184	183	a1i 11	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Fun (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))
185		nfcv 2903	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗∪ 𝑆
186	174	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑏:∪ 𝑆⟶𝐵)
187	186	ffnd 6738	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑏 Fn ∪ 𝑆)
188	73	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ∈ V)
189	75	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 0 ∈ V)
190		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
191	187, 188, 189, 190	fvdifsupp 8195	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
192	191	oveq1d 7446	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
193	5	ad6antr 736	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑅 ∈ Ring)
194	176	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ⊆ 𝐵)
195	190	eldifad 3975	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑗 ∈ ∪ 𝑆)
196	194, 195	sseldd 3996	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → 𝑗 ∈ 𝐵)
197	193, 196, 85	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ( 0 · 𝑗) = 0 )
198	192, 197	eqtrd 2775	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = 0 )
199	66, 185, 70, 198, 73	suppss2f 32655	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))
200		fsuppsssupp 9419	. . . . . . . . . . . 12 ⊢ ((((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V ∧ Fun (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) ∧ (𝑏 finSupp 0 ∧ ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
201	182, 184, 113, 199, 200	syl22anc 839	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
202		sndisj 5140	. . . . . . . . . . . 12 ⊢ Disj 𝑖 ∈ 𝑆 {𝑖}
203		disjpreima 32604	. . . . . . . . . . . 12 ⊢ ((Fun 𝑓 ∧ Disj 𝑖 ∈ 𝑆 {𝑖}) → Disj 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
204	112, 202, 203	sylancl 586	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → Disj 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
205		iunid 5065	. . . . . . . . . . . . 13 ⊢ ∪ 𝑖 ∈ 𝑆 {𝑖} = 𝑆
206	205	imaeq2i 6078	. . . . . . . . . . . 12 ⊢ (◡𝑓 “ ∪ 𝑖 ∈ 𝑆 {𝑖}) = (◡𝑓 “ 𝑆)
207		iunpreima 32585	. . . . . . . . . . . . 13 ⊢ (Fun 𝑓 → (◡𝑓 “ ∪ 𝑖 ∈ 𝑆 {𝑖}) = ∪ 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
208	112, 207	syl 17	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (◡𝑓 “ ∪ 𝑖 ∈ 𝑆 {𝑖}) = ∪ 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}))
209	140	ad2antlr 727	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (◡𝑓 “ 𝑆) = ∪ 𝑆)
210	206, 208, 209	3eqtr3a 2799	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∪ 𝑖 ∈ 𝑆 (◡𝑓 “ {𝑖}) = ∪ 𝑆)
211	2, 3, 172, 73, 106, 181, 201, 204, 210	gsumpart 33043	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖}))))))
212	41	resmptd 6060	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖})) = (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))
213	212	oveq2d 7447	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑖 ∈ 𝑆) → (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖}))) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))
214	213	mpteq2dva 5248	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑖 ∈ 𝑆 ↦ (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖})))) = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))))
215	214	oveq2d 7447	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg ((𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) ↾ (◡𝑓 “ {𝑖}))))) = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))))
216	171, 211, 215	3eqtrd 2779	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))))
217		eqid 2735	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) = (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))
218		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → 𝑖 = 𝑘)
219	218	sneqd 4643	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → {𝑖} = {𝑘})
220	219	imaeq2d 6080	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → (◡𝑓 “ {𝑖}) = (◡𝑓 “ {𝑘}))
221	220	mpteq1d 5243	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)))
222	221	oveq2d 7447	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑖 = 𝑘) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))))
223		simpr 484	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ 𝑆)
224		ovexd 7466	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))) ∈ V)
225	217, 222, 223, 224	fvmptd2 7024	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) = (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))))
226	160	ad6antr 736	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑅 ∈ CMnd)
227	30	cnvex 7948	. . . . . . . . . . . . . 14 ⊢ ◡𝑓 ∈ V
228	227	imaex 7937	. . . . . . . . . . . . 13 ⊢ (◡𝑓 “ {𝑘}) ∈ V
229	228	a1i 11	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (◡𝑓 “ {𝑘}) ∈ V)
230	5	ad6antr 736	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑅 ∈ Ring)
231	26, 6	syl 17	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → 𝑆 ⊆ (LIdeal‘𝑅))
232	231	sselda 3995	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ (LIdeal‘𝑅))
233	8	lidlsubg 21251	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (LIdeal‘𝑅)) → 𝑘 ∈ (SubGrp‘𝑅))
234		subgsubm 19179	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (SubGrp‘𝑅) → 𝑘 ∈ (SubMnd‘𝑅))
235	233, 234	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (LIdeal‘𝑅)) → 𝑘 ∈ (SubMnd‘𝑅))
236	230, 232, 235	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ (SubMnd‘𝑅))
237	230	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑅 ∈ Ring)
238	232	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑘 ∈ (LIdeal‘𝑅))
239	36	ad7antlr 739	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑏:∪ 𝑆⟶𝐵)
240		cnvimass 6102	. . . . . . . . . . . . . . . . . 18 ⊢ (◡𝑓 “ {𝑘}) ⊆ dom 𝑓
241	240, 39	sseqtrid 4048	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓:∪ 𝑆⟶𝑆 → (◡𝑓 “ {𝑘}) ⊆ ∪ 𝑆)
242	241	ad3antlr 731	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (◡𝑓 “ {𝑘}) ⊆ ∪ 𝑆)
243	242	sselda 3995	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑙 ∈ ∪ 𝑆)
244	239, 243	ffvelcdmd 7105	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑏‘𝑙) ∈ 𝐵)
245		fveq2 6907	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑙 → (𝑓‘𝑗) = (𝑓‘𝑙))
246	49, 245	eleq12d 2833	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑙 → (𝑗 ∈ (𝑓‘𝑗) ↔ 𝑙 ∈ (𝑓‘𝑙)))
247		simpllr 776	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))
248	246, 247, 243	rspcdva 3623	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑙 ∈ (𝑓‘𝑙))
249		simp-4r 784	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑓:∪ 𝑆⟶𝑆)
250	249	ffnd 6738	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑓 Fn ∪ 𝑆)
251		elpreima 7078	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 Fn ∪ 𝑆 → (𝑙 ∈ (◡𝑓 “ {𝑘}) ↔ (𝑙 ∈ ∪ 𝑆 ∧ (𝑓‘𝑙) ∈ {𝑘})))
252	251	biimpa 476	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 Fn ∪ 𝑆 ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑙 ∈ ∪ 𝑆 ∧ (𝑓‘𝑙) ∈ {𝑘}))
253		elsni 4648	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓‘𝑙) ∈ {𝑘} → (𝑓‘𝑙) = 𝑘)
254	252, 253	simpl2im 503	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓 Fn ∪ 𝑆 ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑓‘𝑙) = 𝑘)
255	250, 254	sylancom 588	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → (𝑓‘𝑙) = 𝑘)
256	248, 255	eleqtrd 2841	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → 𝑙 ∈ 𝑘)
257	8, 2, 4	lidlmcl 21253	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ 𝑘 ∈ (LIdeal‘𝑅)) ∧ ((𝑏‘𝑙) ∈ 𝐵 ∧ 𝑙 ∈ 𝑘)) → ((𝑏‘𝑙) · 𝑙) ∈ 𝑘)
258	237, 238, 244, 256, 257	syl22anc 839	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑙 ∈ (◡𝑓 “ {𝑘})) → ((𝑏‘𝑙) · 𝑙) ∈ 𝑘)
259	50	cbvmptv 5261	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑙 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑙) · 𝑙))
260	258, 259	fmptd 7134	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)):(◡𝑓 “ {𝑘})⟶𝑘)
261	229	mptexd 7244	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V)
262	260	ffund 6741	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → Fun (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)))
263		simp-5r 786	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → 𝑏 finSupp 0 )
264		nfv 1912	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗 𝑘 ∈ 𝑆
265	66, 264	nfan 1897	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆)
266		nfcv 2903	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(◡𝑓 “ {𝑘})
267	36	ad7antlr 739	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑏:∪ 𝑆⟶𝐵)
268	267	ffnd 6738	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑏 Fn ∪ 𝑆)
269	73	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ∈ V)
270	75	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 0 ∈ V)
271	242	ssdifd 4155	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 )) ⊆ (∪ 𝑆 ∖ (𝑏 supp 0 )))
272	271	sselda 3995	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ (∪ 𝑆 ∖ (𝑏 supp 0 )))
273	268, 269, 270, 272	fvdifsupp 8195	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → (𝑏‘𝑗) = 0 )
274	273	oveq1d 7446	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = ( 0 · 𝑗))
275	13	ad7antr 738	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ∪ 𝑆 ⊆ 𝐵)
276	272	eldifad 3975	. . . . . . . . . . . . . . . . 17 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ ∪ 𝑆)
277	275, 276	sseldd 3996	. . . . . . . . . . . . . . . 16 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → 𝑗 ∈ 𝐵)
278	230, 277, 85	syl2an2r 685	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ( 0 · 𝑗) = 0 )
279	274, 278	eqtrd 2775	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) ∧ 𝑗 ∈ ((◡𝑓 “ {𝑘}) ∖ (𝑏 supp 0 ))) → ((𝑏‘𝑗) · 𝑗) = 0 )
280	265, 266, 70, 279, 229	suppss2f 32655	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))
281		fsuppsssupp 9419	. . . . . . . . . . . . 13 ⊢ ((((𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) ∈ V ∧ Fun (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))) ∧ (𝑏 finSupp 0 ∧ ((𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) supp 0 ) ⊆ (𝑏 supp 0 ))) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
282	261, 262, 263, 280, 281	syl22anc 839	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗)) finSupp 0 )
283	3, 226, 229, 236, 260, 282	gsumsubmcl 19952	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑘}) ↦ ((𝑏‘𝑗) · 𝑗))) ∈ 𝑘)
284	225, 283	eqeltrd 2839	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) ∧ 𝑘 ∈ 𝑆) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)
285	284	ralrimiva 3144	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘)
286	170, 216, 285	3jca 1127	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗)))) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))) ∧ ∀𝑘 ∈ 𝑆 ((𝑖 ∈ 𝑆 ↦ (𝑅 Σg (𝑗 ∈ (◡𝑓 “ {𝑖}) ↦ ((𝑏‘𝑗) · 𝑗))))‘𝑘) ∈ 𝑘))
287	97, 105, 286	rspcedvd 3624	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ 𝑓:∪ 𝑆⟶𝑆) ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗)) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
288	287	anasss 466	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ∧ (𝑓:∪ 𝑆⟶𝑆 ∧ ∀𝑗 ∈ ∪ 𝑆𝑗 ∈ (𝑓‘𝑗))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
289	25, 288	exlimddv 1933	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ 𝑏 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
290	289	anasss 466	. . . 4 ⊢ (((𝜑 ∧ 𝑏 ∈ (𝐵 ↑m ∪ 𝑆)) ∧ (𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
291	290	r19.29an 3156	. . 3 ⊢ ((𝜑 ∧ ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))) → ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘))
292	5	ad4antr 732	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑅 ∈ Ring)
293	292	adantr 480	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑅 ∈ Ring)
294		eqid 2735	. . . . . . . . . . . . . 14 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
295	294	zrhrhm 21540	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → (ℤRHom‘𝑅) ∈ (ℤring RingHom 𝑅))
296		zringbas 21482	. . . . . . . . . . . . . 14 ⊢ ℤ = (Base‘ℤring)
297	296, 2	rhmf 20502	. . . . . . . . . . . . 13 ⊢ ((ℤRHom‘𝑅) ∈ (ℤring RingHom 𝑅) → (ℤRHom‘𝑅):ℤ⟶𝐵)
298	293, 295, 297	3syl 18	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (ℤRHom‘𝑅):ℤ⟶𝐵)
299		simp-5r 786	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 ∈ (𝐵 ↑m 𝑆))
300	75	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 0 ∈ V)
301		ssv 4020	. . . . . . . . . . . . . . . . . 18 ⊢ ran 𝑎 ⊆ V
302		ssdif 4154	. . . . . . . . . . . . . . . . . 18 ⊢ (ran 𝑎 ⊆ V → (ran 𝑎 ∖ { 0 }) ⊆ (V ∖ { 0 }))
303	301, 302	ax-mp 5	. . . . . . . . . . . . . . . . 17 ⊢ (ran 𝑎 ∖ { 0 }) ⊆ (V ∖ { 0 })
304	303	sseli 3991	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 ∈ (ran 𝑎 ∖ { 0 }) → 𝑚 ∈ (V ∖ { 0 }))
305	304	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑚 ∈ (V ∖ { 0 }))
306		simp-4r 784	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 finSupp 0 )
307	299, 300, 305, 306	fsuppinisegfi 32702	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (◡𝑎 “ {𝑚}) ∈ Fin)
308		hashcl 14392	. . . . . . . . . . . . . 14 ⊢ ((◡𝑎 “ {𝑚}) ∈ Fin → (♯‘(◡𝑎 “ {𝑚})) ∈ ℕ0)
309	307, 308	syl 17	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑚})) ∈ ℕ0)
310	309	nn0zd 12637	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑚})) ∈ ℤ)
311	298, 310	ffvelcdmd 7105	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑚 ∈ (ran 𝑎 ∖ { 0 })) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))) ∈ 𝐵)
312		eqid 2735	. . . . . . . . . . 11 ⊢ (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) = (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))))
313	311, 312	fmptd 7134	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))):(ran 𝑎 ∖ { 0 })⟶𝐵)
314	2, 3	ring0cl 20281	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 0 ∈ 𝐵)
315		fconst6g 6798	. . . . . . . . . . 11 ⊢ ( 0 ∈ 𝐵 → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }):(∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))⟶𝐵)
316	292, 314, 315	3syl 18	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }):(∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))⟶𝐵)
317		disjdif 4478	. . . . . . . . . . 11 ⊢ ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅
318	317	a1i 11	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅)
319	313, 316, 318	fun2d 6773	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))⟶𝐵)
320		simplll 775	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)))
321	94, 16	elmapd 8879	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑎 ∈ (𝐵 ↑m 𝑆) ↔ 𝑎:𝑆⟶𝐵))
322	321	biimpa 476	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) → 𝑎:𝑆⟶𝐵)
323	320, 322	syl 17	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎:𝑆⟶𝐵)
324	323	ffnd 6738	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎 Fn 𝑆)
325		elssuni 4942	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ 𝑆 → 𝑘 ⊆ ∪ 𝑆)
326	325	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ 𝑘 ∈ 𝑆) → 𝑘 ⊆ ∪ 𝑆)
327	326	sseld 3994	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ 𝑘 ∈ 𝑆) → ((𝑎‘𝑘) ∈ 𝑘 → (𝑎‘𝑘) ∈ ∪ 𝑆))
328	327	ralimdva 3165	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) → (∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘 → ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ ∪ 𝑆))
329	328	imp 406	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ ∪ 𝑆)
330		fnfvrnss 7141	. . . . . . . . . . . . 13 ⊢ ((𝑎 Fn 𝑆 ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ ∪ 𝑆) → ran 𝑎 ⊆ ∪ 𝑆)
331	324, 329, 330	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ran 𝑎 ⊆ ∪ 𝑆)
332	331	ssdifssd 4157	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (ran 𝑎 ∖ { 0 }) ⊆ ∪ 𝑆)
333		undif 4488	. . . . . . . . . . 11 ⊢ ((ran 𝑎 ∖ { 0 }) ⊆ ∪ 𝑆 ↔ ((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∪ 𝑆)
334	332, 333	sylib 218	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∪ 𝑆)
335	334	feq2d 6723	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):((ran 𝑎 ∖ { 0 }) ∪ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))⟶𝐵 ↔ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):∪ 𝑆⟶𝐵))
336	319, 335	mpbid 232	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):∪ 𝑆⟶𝐵)
337	93	a1i 11	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝐵 ∈ V)
338	17	ad4antr 732	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∪ 𝑆 ∈ V)
339	337, 338	elmapd 8879	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ (𝐵 ↑m ∪ 𝑆) ↔ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })):∪ 𝑆⟶𝐵))
340	336, 339	mpbird 257	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ (𝐵 ↑m ∪ 𝑆))
341		breq1 5151	. . . . . . . . 9 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑏 finSupp 0 ↔ ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ))
342		fveq1 6906	. . . . . . . . . . . . 13 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑏‘𝑗) = (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗))
343	342	oveq1d 7446	. . . . . . . . . . . 12 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → ((𝑏‘𝑗) · 𝑗) = ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))
344	343	mpteq2dv 5250	. . . . . . . . . . 11 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)) = (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)))
345	344	oveq2d 7447	. . . . . . . . . 10 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))
346	345	eqeq2d 2746	. . . . . . . . 9 ⊢ (𝑏 = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) → (𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))) ↔ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)))))
347	341, 346	anbi12d 632	. . . . . . . 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 }))‘𝑗) · 𝑗))))))
348	347	adantl 481	. . . . . . 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 }))‘𝑗) · 𝑗))))))
349	319	ffund 6741	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → Fun ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })))
350	340	elexd 3502	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) ∈ V)
351	75	a1i 11	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 0 ∈ V)
352	323	ffund 6741	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → Fun 𝑎)
353	320	simprd 495	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎 ∈ (𝐵 ↑m 𝑆))
354		simpllr 776	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑎 finSupp 0 )
355		fsupprnfi 32707	. . . . . . . . . . . . 13 ⊢ (((Fun 𝑎 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ ( 0 ∈ V ∧ 𝑎 finSupp 0 )) → ran 𝑎 ∈ Fin)
356		diffi 9214	. . . . . . . . . . . . 13 ⊢ (ran 𝑎 ∈ Fin → (ran 𝑎 ∖ { 0 }) ∈ Fin)
357	355, 356	syl 17	. . . . . . . . . . . 12 ⊢ (((Fun 𝑎 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ ( 0 ∈ V ∧ 𝑎 finSupp 0 )) → (ran 𝑎 ∖ { 0 }) ∈ Fin)
358	352, 353, 351, 354, 357	syl22anc 839	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (ran 𝑎 ∖ { 0 }) ∈ Fin)
359	313, 358, 351	fdmfifsupp 9413	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) finSupp 0 )
360	13	ssdifssd 4157	. . . . . . . . . . . . 13 ⊢ (𝜑 → (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ⊆ 𝐵)
361	360	ad4antr 732	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ⊆ 𝐵)
362	337, 361	ssexd 5330	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) ∈ V)
363	362, 351	fczfsuppd 9424	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) finSupp 0 )
364	359, 363	fsuppun 9425	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) supp 0 ) ∈ Fin)
365		funisfsupp 9405	. . . . . . . . . 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))
366	365	biimpar 477	. . . . . . . . 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 )
367	349, 350, 351, 364, 366	syl31anc 1372	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 )
368		fvex 6920	. . . . . . . . . . . . . . . 16 ⊢ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))) ∈ V
369	368, 312	fnmpti 6712	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) Fn (ran 𝑎 ∖ { 0 })
370	369	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) Fn (ran 𝑎 ∖ { 0 }))
371		fnconstg 6797	. . . . . . . . . . . . . . . 16 ⊢ ( 0 ∈ V → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))
372	75, 371	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))
373	372	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }) Fn (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })))
374	317	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅)
375		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑗 ∈ (ran 𝑎 ∖ { 0 }))
376	370, 373, 374, 375	fvun1d 7002	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))))‘𝑗))
377		sneq 4641	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 = 𝑗 → {𝑚} = {𝑗})
378	377	imaeq2d 6080	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = 𝑗 → (◡𝑎 “ {𝑚}) = (◡𝑎 “ {𝑗}))
379	378	fveq2d 6911	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = 𝑗 → (♯‘(◡𝑎 “ {𝑚})) = (♯‘(◡𝑎 “ {𝑗})))
380	379	fveq2d 6911	. . . . . . . . . . . . . 14 ⊢ (𝑚 = 𝑗 → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))) = ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))))
381		fvexd 6922	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) ∈ V)
382	312, 380, 375, 381	fvmptd3 7039	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚}))))‘𝑗) = ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))))
383	376, 382	eqtrd 2775	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))))
384	383	oveq1d 7446	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) = (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))
385	384	mpteq2dva 5248	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)) = (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗)))
386	385	oveq2d 7447	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))))
387	292, 28	syl 17	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑅 ∈ CMnd)
388	317	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅)
389		fvun2 7001	. . . . . . . . . . . . . . 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 })‘𝑗))
390	369, 372, 389	mp3an12 1450	. . . . . . . . . . . . . 14 ⊢ ((((ran 𝑎 ∖ { 0 }) ∩ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) = ∅ ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗))
391	388, 390	sylancom 588	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗))
392	75	fvconst2 7224	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) → (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗) = 0 )
393	392	adantl 481	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })‘𝑗) = 0 )
394	391, 393	eqtrd 2775	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) = 0 )
395	394	oveq1d 7446	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) = ( 0 · 𝑗))
396	361	sselda 3995	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → 𝑗 ∈ 𝐵)
397	292, 396, 85	syl2an2r 685	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ( 0 · 𝑗) = 0 )
398	395, 397	eqtrd 2775	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 }))) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) = 0 )
399	292	adantr 480	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑅 ∈ Ring)
400	336	ffvelcdmda 7104	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) ∈ 𝐵)
401	13	ad4antr 732	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∪ 𝑆 ⊆ 𝐵)
402	401	sselda 3995	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → 𝑗 ∈ 𝐵)
403	2, 4	ringcl 20268	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) ∈ 𝐵 ∧ 𝑗 ∈ 𝐵) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) ∈ 𝐵)
404	399, 400, 402, 403	syl3anc 1370	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ ∪ 𝑆) → ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗) ∈ 𝐵)
405	2, 3, 387, 338, 398, 358, 404, 332	gsummptres2 33039	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))
406		eqid 2735	. . . . . . . . . . 11 ⊢ (.g‘𝑅) = (.g‘𝑅)
407	2, 3, 406, 387, 323, 354	gsumhashmul 33047	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg 𝑎) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))))
408		simplr 769	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑋 = (𝑅 Σg 𝑎))
409	292	adantr 480	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑅 ∈ Ring)
410	353	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 ∈ (𝐵 ↑m 𝑆))
411	75	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 0 ∈ V)
412	303, 375	sselid 3993	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑗 ∈ (V ∖ { 0 }))
413	354	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑎 finSupp 0 )
414	410, 411, 412, 413	fsuppinisegfi 32702	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (◡𝑎 “ {𝑗}) ∈ Fin)
415		hashcl 14392	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑎 “ {𝑗}) ∈ Fin → (♯‘(◡𝑎 “ {𝑗})) ∈ ℕ0)
416	414, 415	syl 17	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑗})) ∈ ℕ0)
417	416	nn0zd 12637	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ)
418	332, 401	sstrd 4006	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (ran 𝑎 ∖ { 0 }) ⊆ 𝐵)
419	418	sselda 3995	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → 𝑗 ∈ 𝐵)
420		eqid 2735	. . . . . . . . . . . . . . . . 17 ⊢ (1r‘𝑅) = (1r‘𝑅)
421	294, 406, 420	zrhmulg 21538	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)))
422	421	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)))
423	422	oveq1d 7446	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗) = (((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)) · 𝑗))
424		simpll 767	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → 𝑅 ∈ Ring)
425		simplr 769	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ)
426	2, 420	ringidcl 20280	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ 𝐵)
427	426	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (1r‘𝑅) ∈ 𝐵)
428		simpr 484	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → 𝑗 ∈ 𝐵)
429	2, 406, 4	mulgass2 20323	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ ((♯‘(◡𝑎 “ {𝑗})) ∈ ℤ ∧ (1r‘𝑅) ∈ 𝐵 ∧ 𝑗 ∈ 𝐵)) → (((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)((1r‘𝑅) · 𝑗)))
430	424, 425, 427, 428, 429	syl13anc 1371	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)(1r‘𝑅)) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)((1r‘𝑅) · 𝑗)))
431	2, 4, 420	ringlidm 20283	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ 𝑗 ∈ 𝐵) → ((1r‘𝑅) · 𝑗) = 𝑗)
432	424, 431	sylancom 588	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → ((1r‘𝑅) · 𝑗) = 𝑗)
433	432	oveq2d 7447	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)((1r‘𝑅) · 𝑗)) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))
434	423, 430, 433	3eqtrd 2779	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ (♯‘(◡𝑎 “ {𝑗})) ∈ ℤ) ∧ 𝑗 ∈ 𝐵) → (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))
435	409, 417, 419, 434	syl21anc 838	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) ∧ 𝑗 ∈ (ran 𝑎 ∖ { 0 })) → (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗) = ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))
436	435	mpteq2dva 5248	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗)) = (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗)))
437	436	oveq2d 7447	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))) = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((♯‘(◡𝑎 “ {𝑗}))(.g‘𝑅)𝑗))))
438	407, 408, 437	3eqtr4d 2785	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑋 = (𝑅 Σg (𝑗 ∈ (ran 𝑎 ∖ { 0 }) ↦ (((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑗}))) · 𝑗))))
439	386, 405, 438	3eqtr4rd 2786	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗))))
440	367, 439	jca 511	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → (((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 })) finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((((𝑚 ∈ (ran 𝑎 ∖ { 0 }) ↦ ((ℤRHom‘𝑅)‘(♯‘(◡𝑎 “ {𝑚})))) ∪ ((∪ 𝑆 ∖ (ran 𝑎 ∖ { 0 })) × { 0 }))‘𝑗) · 𝑗)))))
441	340, 348, 440	rspcedvd 3624	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ 𝑎 finSupp 0 ) ∧ 𝑋 = (𝑅 Σg 𝑎)) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘) → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))))
442	441	exp41 434	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) → (𝑎 finSupp 0 → (𝑋 = (𝑅 Σg 𝑎) → (∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘 → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗))))))))
443	442	3imp2 1348	. . . 4 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐵 ↑m 𝑆)) ∧ (𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)) → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))))
444	443	r19.29an 3156	. . 3 ⊢ ((𝜑 ∧ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)) → ∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))))
445	291, 444	impbida 801	. 2 ⊢ (𝜑 → (∃𝑏 ∈ (𝐵 ↑m ∪ 𝑆)(𝑏 finSupp 0 ∧ 𝑋 = (𝑅 Σg (𝑗 ∈ ∪ 𝑆 ↦ ((𝑏‘𝑗) · 𝑗)))) ↔ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)))
446	14, 445	bitrd 279	1 ⊢ (𝜑 → (𝑋 ∈ (𝑁‘∪ 𝑆) ↔ ∃𝑎 ∈ (𝐵 ↑m 𝑆)(𝑎 finSupp 0 ∧ 𝑋 = (𝑅 Σg 𝑎) ∧ ∀𝑘 ∈ 𝑆 (𝑎‘𝑘) ∈ 𝑘)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1537  ∃wex 1776   ∈ wcel 2106  ∀wral 3059  ∃wrex 3068  Vcvv 3478   ∖ cdif 3960   ∪ cun 3961   ∩ cin 3962   ⊆ wss 3963  ∅c0 4339  {csn 4631  ∪ cuni 4912  ∪ ciun 4996  Disj wdisj 5115   class class class wbr 5148   ↦ cmpt 5231   × cxp 5687  ^◡ccnv 5688  dom cdm 5689  ran crn 5690   ↾ cres 5691   “ cima 5692  Fun wfun 6557   Fn wfn 6558  ⟶wf 6559  ‘cfv 6563  (class class class)co 7431   supp csupp 8184   ↑_m cmap 8865  Fincfn 8984   finSupp cfsupp 9399  ℕ₀cn0 12524  ℤcz 12611  ♯chash 14366  Basecbs 17245  ._rcmulr 17299  0_gc0g 17486   Σ_g cgsu 17487  Mndcmnd 18760  SubMndcsubmnd 18808  ._gcmg 19098  SubGrpcsubg 19151  CMndccmn 19813  1_rcur 20199  Ringcrg 20251   RingHom crh 20486  LIdealclidl 21234  RSpancrsp 21235  ℤ_ringczring 21475  ℤRHomczrh 21528

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754  ax-reg 9630  ax-inf2 9679  ax-ac2 10501  ax-cnex 11209  ax-resscn 11210  ax-1cn 11211  ax-icn 11212  ax-addcl 11213  ax-addrcl 11214  ax-mulcl 11215  ax-mulrcl 11216  ax-mulcom 11217  ax-addass 11218  ax-mulass 11219  ax-distr 11220  ax-i2m1 11221  ax-1ne0 11222  ax-1rid 11223  ax-rnegex 11224  ax-rrecex 11225  ax-cnre 11226  ax-pre-lttri 11227  ax-pre-lttrn 11228  ax-pre-ltadd 11229  ax-pre-mulgt0 11230  ax-addf 11232  ax-mulf 11233

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3378  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-tp 4636  df-op 4638  df-uni 4913  df-int 4952  df-iun 4998  df-iin 4999  df-disj 5116  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-se 5642  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-pred 6323  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-isom 6572  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-of 7697  df-om 7888  df-1st 8013  df-2nd 8014  df-supp 8185  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-rdg 8449  df-1o 8505  df-2o 8506  df-er 8744  df-map 8867  df-ixp 8937  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-fsupp 9400  df-sup 9480  df-oi 9548  df-r1 9802  df-rank 9803  df-card 9977  df-ac 10154  df-pnf 11295  df-mnf 11296  df-xr 11297  df-ltxr 11298  df-le 11299  df-sub 11492  df-neg 11493  df-nn 12265  df-2 12327  df-3 12328  df-4 12329  df-5 12330  df-6 12331  df-7 12332  df-8 12333  df-9 12334  df-n0 12525  df-z 12612  df-dec 12732  df-uz 12877  df-fz 13545  df-fzo 13692  df-seq 14040  df-hash 14367  df-struct 17181  df-sets 17198  df-slot 17216  df-ndx 17228  df-base 17246  df-ress 17275  df-plusg 17311  df-mulr 17312  df-starv 17313  df-sca 17314  df-vsca 17315  df-ip 17316  df-tset 17317  df-ple 17318  df-ds 17320  df-unif 17321  df-hom 17322  df-cco 17323  df-0g 17488  df-gsum 17489  df-prds 17494  df-pws 17496  df-mre 17631  df-mrc 17632  df-acs 17634  df-mgm 18666  df-sgrp 18745  df-mnd 18761  df-mhm 18809  df-submnd 18810  df-grp 18967  df-minusg 18968  df-sbg 18969  df-mulg 19099  df-subg 19154  df-ghm 19244  df-cntz 19348  df-cmn 19815  df-abl 19816  df-mgp 20153  df-rng 20171  df-ur 20200  df-ring 20253  df-cring 20254  df-rhm 20489  df-nzr 20530  df-subrng 20563  df-subrg 20587  df-lmod 20877  df-lss 20948  df-lsp 20988  df-lmhm 21039  df-lbs 21092  df-sra 21190  df-rgmod 21191  df-lidl 21236  df-rsp 21237  df-cnfld 21383  df-zring 21476  df-zrh 21532  df-dsmm 21770  df-frlm 21785  df-uvc 21821

This theorem is referenced by:  zarcmplem  33842