esplyind - Mathbox for Thierry Arnoux

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

Theorem esplyind 33766

Description: A recursive formula for the elementary symmetric polynomials. (Contributed by Thierry Arnoux, 25-Jan-2026.)

**Hypotheses**
Ref	Expression
esplyind.w	⊢ 𝑊 = (𝐼 mPoly 𝑅)
esplyind.v	⊢ 𝑉 = (𝐼 mVar 𝑅)
esplyind.p	⊢ + = (+_g‘𝑊)
esplyind.m	⊢ · = (._r‘𝑊)
esplyind.d	⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
esplyind.g	⊢ 𝐺 = ((𝐼extendVars𝑅)‘𝑌)
esplyind.i	⊢ (𝜑 → 𝐼 ∈ Fin)
esplyind.r	⊢ (𝜑 → 𝑅 ∈ Ring)
esplyind.y	⊢ (𝜑 → 𝑌 ∈ 𝐼)
esplyind.j	⊢ 𝐽 = (𝐼 ∖ {𝑌})
esplyind.e	⊢ 𝐸 = (𝐽eSymPoly𝑅)
esplyind.k	⊢ (𝜑 → 𝐾 ∈ (1...(♯‘𝐼)))
esplyind.1	⊢ 𝐶 = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}

**Assertion**
Ref	Expression
esplyind	⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘𝐾) = (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) + (𝐺‘(𝐸‘𝐾))))

Distinct variable groups: ℎ,𝐼 ℎ,𝐽 ℎ,𝑌 Allowed substitution hints: 𝜑(ℎ) 𝐶(ℎ) 𝐷(ℎ) + (ℎ) 𝑅(ℎ) · (ℎ) 𝐸(ℎ) 𝐺(ℎ) 𝐾(ℎ) 𝑉(ℎ) 𝑊(ℎ)

Proof of Theorem esplyind Dummy variables 𝑓 𝑔 𝑧 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ovif12 7463	. . . 4 ⊢ (if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))(+_g‘𝑅)if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) = if((𝑓‘𝑌) = 0, ((0_g‘𝑅)(+_g‘𝑅)if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))), (((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))(+_g‘𝑅)(0_g‘𝑅)))
2		eqid 2740	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
3		eqid 2740	. . . . . . 7 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
4		eqid 2740	. . . . . . 7 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
5		esplyind.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Ring)
6	5	ringgrpd 20221	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Grp)
7	6	ad2antrr 732	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝑅 ∈ Grp)
8		eqid 2740	. . . . . . . . . . 11 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
9	2, 8, 5	ringidcld 20245	. . . . . . . . . 10 ⊢ (𝜑 → (1_r‘𝑅) ∈ (Base‘𝑅))
10	9	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (1_r‘𝑅) ∈ (Base‘𝑅))
11		ringgrp 20217	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
12	2, 4	grpidcl 18939	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Grp → (0_g‘𝑅) ∈ (Base‘𝑅))
13	5, 11, 12	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (0_g‘𝑅) ∈ (Base‘𝑅))
14	13	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (0_g‘𝑅) ∈ (Base‘𝑅))
15	10, 14	ifcld 4508	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) ∈ (Base‘𝑅))
16	15	adantr 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) ∈ (Base‘𝑅))
17	2, 3, 4, 7, 16	grplidd 18943	. . . . . 6 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((0_g‘𝑅)(+_g‘𝑅)if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))) = if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
18		snsspr1 4752	. . . . . . . . . . 11 ⊢ {0} ⊆ {0, 1}
19	18	biantru 534	. . . . . . . . . 10 ⊢ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ↔ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ {0} ⊆ {0, 1}))
20		unss 4126	. . . . . . . . . 10 ⊢ ((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ {0} ⊆ {0, 1}) ↔ (ran (𝑓 ↾ 𝐽) ∪ {0}) ⊆ {0, 1})
21	19, 20	bitri 276	. . . . . . . . 9 ⊢ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ↔ (ran (𝑓 ↾ 𝐽) ∪ {0}) ⊆ {0, 1})
22		esplyind.i	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐼 ∈ Fin)
23	22	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝐼 ∈ Fin)
24		nn0ex 12441	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ₀ ∈ V
25	24	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ℕ₀ ∈ V)
26		esplyind.d	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
27	26	ssrab3 4020	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐷 ⊆ (ℕ₀ ↑_m 𝐼)
28	27	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
29	28	sselda 3922	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 ∈ (ℕ₀ ↑_m 𝐼))
30	23, 25, 29	elmaprd 32779	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓:𝐼⟶ℕ₀)
31	30	freld 6668	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → Rel 𝑓)
32	30	ffnd 6663	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 Fn 𝐼)
33	32	fndmd 6597	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → dom 𝑓 = 𝐼)
34		esplyind.j	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐽 = (𝐼 ∖ {𝑌})
35	34	uneq1i 4101	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐽 ∪ {𝑌}) = ((𝐼 ∖ {𝑌}) ∪ {𝑌})
36		esplyind.y	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑌 ∈ 𝐼)
37	36	snssd 4725	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → {𝑌} ⊆ 𝐼)
38		undifr 4418	. . . . . . . . . . . . . . . . . . . 20 ⊢ ({𝑌} ⊆ 𝐼 ↔ ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼)
39	37, 38	sylib 219	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼)
40	35, 39	eqtr2id 2788	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐼 = (𝐽 ∪ {𝑌}))
41	40	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝐼 = (𝐽 ∪ {𝑌}))
42	33, 41	eqtrd 2775	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → dom 𝑓 = (𝐽 ∪ {𝑌}))
43	34	ineq1i 4152	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 ∩ {𝑌}) = ((𝐼 ∖ {𝑌}) ∩ {𝑌})
44		disjdifr 4408	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∖ {𝑌}) ∩ {𝑌}) = ∅
45	43, 44	eqtri 2763	. . . . . . . . . . . . . . . . 17 ⊢ (𝐽 ∩ {𝑌}) = ∅
46	45	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝐽 ∩ {𝑌}) = ∅)
47		reldisjun 5991	. . . . . . . . . . . . . . . 16 ⊢ ((Rel 𝑓 ∧ dom 𝑓 = (𝐽 ∪ {𝑌}) ∧ (𝐽 ∩ {𝑌}) = ∅) → 𝑓 = ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})))
48	31, 42, 46, 47	syl3anc 1379	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 = ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})))
49	48	rneqd 5887	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ran 𝑓 = ran ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})))
50		rnun 6103	. . . . . . . . . . . . . 14 ⊢ ran ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})) = (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌}))
51	49, 50	eqtr2di 2792	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) = ran 𝑓)
52	32	fnfund 6593	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → Fun 𝑓)
53	36	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑌 ∈ 𝐼)
54	53, 33	eleqtrrd 2843	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑌 ∈ dom 𝑓)
55		rnressnsn 32776	. . . . . . . . . . . . . . 15 ⊢ ((Fun 𝑓 ∧ 𝑌 ∈ dom 𝑓) → ran (𝑓 ↾ {𝑌}) = {(𝑓‘𝑌)})
56	52, 54, 55	syl2anc 590	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ran (𝑓 ↾ {𝑌}) = {(𝑓‘𝑌)})
57	56	uneq2d 4105	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) = (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}))
58	51, 57	eqtr3d 2777	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ran 𝑓 = (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}))
59	58	adantr 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ran 𝑓 = (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}))
60		simpr 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓‘𝑌) = 0)
61	60	sneqd 4574	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → {(𝑓‘𝑌)} = {0})
62	61	uneq2d 4105	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}) = (ran (𝑓 ↾ 𝐽) ∪ {0}))
63	59, 62	eqtrd 2775	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ran 𝑓 = (ran (𝑓 ↾ 𝐽) ∪ {0}))
64	63	sseq1d 3953	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (ran 𝑓 ⊆ {0, 1} ↔ (ran (𝑓 ↾ 𝐽) ∪ {0}) ⊆ {0, 1}))
65	21, 64	bitr4id 291	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ↔ ran 𝑓 ⊆ {0, 1}))
66	48	oveq1d 7378	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})) supp 0))
67	29	resexd 5987	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ 𝐽) ∈ V)
68	29	resexd 5987	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ {𝑌}) ∈ V)
69		0nn0 12450	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℕ₀
70	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 0 ∈ ℕ₀)
71	67, 68, 70	suppun2 32783	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})) supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
72	66, 71	eqtrd 2775	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
73	72	adantr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
74		fnressn 7108	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 Fn 𝐼 ∧ 𝑌 ∈ 𝐼) → (𝑓 ↾ {𝑌}) = {⟨𝑌, (𝑓‘𝑌)⟩})
75	32, 53, 74	syl2anc 590	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ {𝑌}) = {⟨𝑌, (𝑓‘𝑌)⟩})
76	75	oveq1d 7378	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝑓 ↾ {𝑌}) supp 0) = ({⟨𝑌, (𝑓‘𝑌)⟩} supp 0))
77	30, 53	ffvelcdmd 7033	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓‘𝑌) ∈ ℕ₀)
78		eqid 2740	. . . . . . . . . . . . . . . . 17 ⊢ {⟨𝑌, (𝑓‘𝑌)⟩} = {⟨𝑌, (𝑓‘𝑌)⟩}
79	78	suppsnop 8125	. . . . . . . . . . . . . . . 16 ⊢ ((𝑌 ∈ 𝐼 ∧ (𝑓‘𝑌) ∈ ℕ₀ ∧ 0 ∈ ℕ₀) → ({⟨𝑌, (𝑓‘𝑌)⟩} supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
80	53, 77, 70, 79	syl3anc 1379	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ({⟨𝑌, (𝑓‘𝑌)⟩} supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
81	76, 80	eqtrd 2775	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝑓 ↾ {𝑌}) supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
82	81	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
83	60	iftrued 4469	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((𝑓‘𝑌) = 0, ∅, {𝑌}) = ∅)
84	82, 83	eqtrd 2775	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = ∅)
85	84	uneq2d 4105	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)) = (((𝑓 ↾ 𝐽) supp 0) ∪ ∅))
86		un0 4329	. . . . . . . . . . 11 ⊢ (((𝑓 ↾ 𝐽) supp 0) ∪ ∅) = ((𝑓 ↾ 𝐽) supp 0)
87	85, 86	eqtrdi 2791	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)) = ((𝑓 ↾ 𝐽) supp 0))
88	73, 87	eqtr2d 2776	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑓 ↾ 𝐽) supp 0) = (𝑓 supp 0))
89	88	fveqeq2d 6842	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾 ↔ (♯‘(𝑓 supp 0)) = 𝐾))
90	65, 89	anbi12d 638	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾) ↔ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾)))
91	90	ifbid 4485	. . . . . 6 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
92	17, 91	eqtrd 2775	. . . . 5 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((0_g‘𝑅)(+_g‘𝑅)if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
93	6	ad2antrr 732	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑅 ∈ Grp)
94		esplyind.w	. . . . . . . . . 10 ⊢ 𝑊 = (𝐼 mPoly 𝑅)
95		eqid 2740	. . . . . . . . . 10 ⊢ (Base‘𝑊) = (Base‘𝑊)
96	26	psrbasfsupp 33702	. . . . . . . . . 10 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
97		esplyind.g	. . . . . . . . . . . 12 ⊢ 𝐺 = ((𝐼extendVars𝑅)‘𝑌)
98	97	fveq1i 6835	. . . . . . . . . . 11 ⊢ (𝐺‘(𝐸‘(𝐾 − 1))) = (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))
99		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Base‘(𝐽 mPoly 𝑅)) = (Base‘(𝐽 mPoly 𝑅))
100	94	fveq2i 6837	. . . . . . . . . . . . 13 ⊢ (Base‘𝑊) = (Base‘(𝐼 mPoly 𝑅))
101	26, 4, 22, 5, 2, 34, 99, 36, 100	extvfvalf 33728	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐼extendVars𝑅)‘𝑌):(Base‘(𝐽 mPoly 𝑅))⟶(Base‘𝑊))
102		esplyind.e	. . . . . . . . . . . . . 14 ⊢ 𝐸 = (𝐽eSymPoly𝑅)
103	102	fveq1i 6835	. . . . . . . . . . . . 13 ⊢ (𝐸‘(𝐾 − 1)) = ((𝐽eSymPoly𝑅)‘(𝐾 − 1))
104		esplyind.1	. . . . . . . . . . . . . 14 ⊢ 𝐶 = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}
105		difssd 4074	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ∖ {𝑌}) ⊆ 𝐼)
106	34, 105	eqsstrid 3960	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
107	22, 106	ssfid 9176	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐽 ∈ Fin)
108		esplyind.k	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ (1...(♯‘𝐼)))
109		elfznn 13505	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ (1...(♯‘𝐼)) → 𝐾 ∈ ℕ)
110		nnm1nn0 12476	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ ℕ → (𝐾 − 1) ∈ ℕ₀)
111	108, 109, 110	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ₀)
112	104, 107, 5, 111, 99	esplympl 33758	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(𝐾 − 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
113	103, 112	eqeltrid 2844	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸‘(𝐾 − 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
114	101, 113	ffvelcdmd 7033	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1))) ∈ (Base‘𝑊))
115	98, 114	eqeltrid 2844	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺‘(𝐸‘(𝐾 − 1))) ∈ (Base‘𝑊))
116	94, 2, 95, 96, 115	mplelf 21979	. . . . . . . . 9 ⊢ (𝜑 → (𝐺‘(𝐸‘(𝐾 − 1))):𝐷⟶(Base‘𝑅))
117	116	ad2antrr 732	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝐺‘(𝐸‘(𝐾 − 1))):𝐷⟶(Base‘𝑅))
118		simplr 774	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑓 ∈ 𝐷)
119		indf 12163	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼) → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶{0, 1})
120	22, 37, 119	syl2anc 590	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶{0, 1})
121	69	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ∈ ℕ₀)
122		1nn0 12451	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℕ₀
123	122	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℕ₀)
124	121, 123	prssd 4760	. . . . . . . . . . 11 ⊢ (𝜑 → {0, 1} ⊆ ℕ₀)
125	120, 124	fssd 6679	. . . . . . . . . 10 ⊢ (𝜑 → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀)
126	125	ad2antrr 732	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀)
127	22	ad2antrr 732	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝐼 ∈ Fin)
128	127	ad2antrr 732	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝐼 ∈ Fin)
129	37	ad4antr 738	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → {𝑌} ⊆ 𝐼)
130		velsn 4578	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑌} ↔ 𝑥 = 𝑌)
131	130	bilanri 507	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑥 ∈ {𝑌})
132		ind1 12166	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼 ∧ 𝑥 ∈ {𝑌}) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 1)
133	128, 129, 131, 132	syl3anc 1379	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 1)
134	30	ad3antrrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑓:𝐼⟶ℕ₀)
135		simplr 774	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑥 ∈ 𝐼)
136	134, 135	ffvelcdmd 7033	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) ∈ ℕ₀)
137		simpr 485	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑥 = 𝑌)
138	137	fveq2d 6838	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) = (𝑓‘𝑌))
139		simpllr 781	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → ¬ (𝑓‘𝑌) = 0)
140	139	neqned 2942	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑌) ≠ 0)
141	138, 140	eqnetrd 3002	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) ≠ 0)
142		elnnne0 12449	. . . . . . . . . . . . . . 15 ⊢ ((𝑓‘𝑥) ∈ ℕ ↔ ((𝑓‘𝑥) ∈ ℕ₀ ∧ (𝑓‘𝑥) ≠ 0))
143	136, 141, 142	sylanbrc 589	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) ∈ ℕ)
144	143	nnge1d 12223	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 1 ≤ (𝑓‘𝑥))
145	133, 144	eqbrtrd 5101	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
146	127	ad2antrr 732	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝐼 ∈ Fin)
147	37	ad4antr 738	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → {𝑌} ⊆ 𝐼)
148		simplr 774	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝑥 ∈ 𝐼)
149		simpr 485	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝑥 ≠ 𝑌)
150	148, 149	eldifsnd 4727	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝑥 ∈ (𝐼 ∖ {𝑌}))
151		ind0 12167	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼 ∧ 𝑥 ∈ (𝐼 ∖ {𝑌})) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 0)
152	146, 147, 150, 151	syl3anc 1379	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 0)
153	30	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑓:𝐼⟶ℕ₀)
154	153	ffvelcdmda 7032	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ ℕ₀)
155	154	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → (𝑓‘𝑥) ∈ ℕ₀)
156	155	nn0ge0d 12499	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 0 ≤ (𝑓‘𝑥))
157	152, 156	eqbrtrd 5101	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
158	145, 157	pm2.61dane 3022	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
159	158	ralrimiva 3132	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ∀𝑥 ∈ 𝐼 (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
160	126	ffnd 6663	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
161	32	adantr 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑓 Fn 𝐼)
162		inidm 4162	. . . . . . . . . . 11 ⊢ (𝐼 ∩ 𝐼) = 𝐼
163		eqidd 2741	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = (((𝟭‘𝐼)‘{𝑌})‘𝑥))
164		eqidd 2741	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) = (𝑓‘𝑥))
165	160, 161, 127, 127, 162, 163, 164	ofrfval 7637	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓 ↔ ∀𝑥 ∈ 𝐼 (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥)))
166	159, 165	mpbird 258	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓)
167	96	psrbagcon 21907	. . . . . . . . . 10 ⊢ ((𝑓 ∈ 𝐷 ∧ ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀ ∧ ((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷 ∧ (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∘_r ≤ 𝑓))
168	167	simpld 495	. . . . . . . . 9 ⊢ ((𝑓 ∈ 𝐷 ∧ ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀ ∧ ((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷)
169	118, 126, 166, 168	syl3anc 1379	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷)
170	117, 169	ffvelcdmd 7033	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) ∈ (Base‘𝑅))
171	2, 3, 4, 93, 170	grpridd 18944	. . . . . 6 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))(+_g‘𝑅)(0_g‘𝑅)) = ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))
172	98	fveq1i 6835	. . . . . . . 8 ⊢ ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))
173	172	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))
174	5	ad2antrr 732	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑅 ∈ Ring)
175	36	ad2antrr 732	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑌 ∈ 𝐼)
176	113	ad2antrr 732	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝐸‘(𝐾 − 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
177	26, 4, 127, 174, 175, 34, 99, 176, 169	extvfvv 33725	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = if(((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0, ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)), (0_g‘𝑅)))
178	104, 107, 5, 111, 4, 8	esplyfval3 33763	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(𝐾 − 1)) = (𝑧 ∈ 𝐶 ↦ if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅))))
179	103, 178	eqtrid 2787	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸‘(𝐾 − 1)) = (𝑧 ∈ 𝐶 ↦ if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅))))
180	179	ad3antrrr 736	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝐸‘(𝐾 − 1)) = (𝑧 ∈ 𝐶 ↦ if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅))))
181	51	ad4antr 738	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) = ran 𝑓)
182		simpr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽))
183	120	ffnd 6663	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
184	183	adantr 481	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
185	32, 184, 23, 23, 162	offn 7640	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) Fn 𝐼)
186	185	ad3antrrr 736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) Fn 𝐼)
187	106	ad4antr 738	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝐽 ⊆ 𝐼)
188	186, 187	fnssresd 6616	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) Fn 𝐽)
189		fneq1 6583	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) → (𝑧 Fn 𝐽 ↔ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) Fn 𝐽))
190	189	biimpar 478	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) Fn 𝐽) → 𝑧 Fn 𝐽)
191	182, 188, 190	syl2anc 590	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝑧 Fn 𝐽)
192	32	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝑓 Fn 𝐼)
193	106	ad3antrrr 736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐽 ⊆ 𝐼)
194	192, 193	fnssresd 6616	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ↾ 𝐽) Fn 𝐽)
195	194	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (𝑓 ↾ 𝐽) Fn 𝐽)
196		simplr 774	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽))
197	196	fveq1d 6836	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑧‘𝑥) = (((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)‘𝑥))
198		simpr 485	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ 𝐽)
199	198	fvresd 6854	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)‘𝑥) = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥))
200	192	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑓 Fn 𝐼)
201	160	adantr 481	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
202	201	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
203	23	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐼 ∈ Fin)
204	203	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝐼 ∈ Fin)
205	187	sselda 3922	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ 𝐼)
206		fnfvof 7644	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑓 Fn 𝐼 ∧ ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼) ∧ (𝐼 ∈ Fin ∧ 𝑥 ∈ 𝐼)) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥) = ((𝑓‘𝑥) − (((𝟭‘𝐼)‘{𝑌})‘𝑥)))
207	200, 202, 204, 205, 206	syl22anc 844	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥) = ((𝑓‘𝑥) − (((𝟭‘𝐼)‘{𝑌})‘𝑥)))
208	37	ad5antr 740	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → {𝑌} ⊆ 𝐼)
209	198, 34	eleqtrdi 2850	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ (𝐼 ∖ {𝑌}))
210	204, 208, 209, 151	syl3anc 1379	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 0)
211	210	oveq2d 7379	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓‘𝑥) − (((𝟭‘𝐼)‘{𝑌})‘𝑥)) = ((𝑓‘𝑥) − 0))
212	153	ad3antrrr 736	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑓:𝐼⟶ℕ₀)
213	212, 205	ffvelcdmd 7033	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑓‘𝑥) ∈ ℕ₀)
214	213	nn0cnd 12498	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑓‘𝑥) ∈ ℂ)
215	214	subid1d 11492	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓‘𝑥) − 0) = (𝑓‘𝑥))
216	198	fvresd 6854	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓 ↾ 𝐽)‘𝑥) = (𝑓‘𝑥))
217	215, 216	eqtr4d 2778	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓‘𝑥) − 0) = ((𝑓 ↾ 𝐽)‘𝑥))
218	207, 211, 217	3eqtrd 2779	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥) = ((𝑓 ↾ 𝐽)‘𝑥))
219	197, 199, 218	3eqtrd 2779	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑧‘𝑥) = ((𝑓 ↾ 𝐽)‘𝑥))
220	191, 195, 219	eqfnfvd 6981	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝑧 = (𝑓 ↾ 𝐽))
221	220	rneqd 5887	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ran 𝑧 = ran (𝑓 ↾ 𝐽))
222	221	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran 𝑧 = ran (𝑓 ↾ 𝐽))
223		simpr 485	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran 𝑧 ⊆ {0, 1})
224	222, 223	eqsstrrd 3957	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ 𝐽) ⊆ {0, 1})
225	52	ad4antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → Fun 𝑓)
226	54	ad4antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → 𝑌 ∈ dom 𝑓)
227	225, 226, 55	syl2anc 590	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ {𝑌}) = {(𝑓‘𝑌)})
228	77	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) ∈ ℕ₀)
229	228	nn0cnd 12498	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) ∈ ℂ)
230	120, 36	ffvelcdmd 7033	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ {0, 1})
231	124, 230	sseldd 3923	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ ℕ₀)
232	231	nn0cnd 12498	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ ℂ)
233	232	ad3antrrr 736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ ℂ)
234	175	adantr 481	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝑌 ∈ 𝐼)
235		fnfvof 7644	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑓 Fn 𝐼 ∧ ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼) ∧ (𝐼 ∈ Fin ∧ 𝑌 ∈ 𝐼)) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)))
236	192, 201, 203, 234, 235	syl22anc 844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)))
237		simpr 485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0)
238	236, 237	eqtr3d 2777	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)) = 0)
239	229, 233, 238	subeq0d 11511	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) = (((𝟭‘𝐼)‘{𝑌})‘𝑌))
240		snidg 4599	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑌 ∈ 𝐼 → 𝑌 ∈ {𝑌})
241	36, 240	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑌 ∈ {𝑌})
242		ind1 12166	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼 ∧ 𝑌 ∈ {𝑌}) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
243	22, 37, 241, 242	syl3anc 1379	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
244	243	ad3antrrr 736	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
245	239, 244	eqtrd 2775	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) = 1)
246	245	ad2antrr 732	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → (𝑓‘𝑌) = 1)
247	246	sneqd 4574	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → {(𝑓‘𝑌)} = {1})
248	227, 247	eqtrd 2775	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ {𝑌}) = {1})
249		snsspr2 4753	. . . . . . . . . . . . . . . 16 ⊢ {1} ⊆ {0, 1}
250	248, 249	eqsstrdi 3966	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ {𝑌}) ⊆ {0, 1})
251	224, 250	unssd 4128	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) ⊆ {0, 1})
252	181, 251	eqsstrrd 3957	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
253	220	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑧 = (𝑓 ↾ 𝐽))
254	253	rneqd 5887	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑧 = ran (𝑓 ↾ 𝐽))
255		rnresss 5976	. . . . . . . . . . . . . . 15 ⊢ ran (𝑓 ↾ 𝐽) ⊆ ran 𝑓
256		simpr 485	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
257	255, 256	sstrid 3933	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran (𝑓 ↾ 𝐽) ⊆ {0, 1})
258	254, 257	eqsstrd 3956	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑧 ⊆ {0, 1})
259	252, 258	impbida 806	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (ran 𝑧 ⊆ {0, 1} ↔ ran 𝑓 ⊆ {0, 1}))
260	220	oveq1d 7378	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (𝑧 supp 0) = ((𝑓 ↾ 𝐽) supp 0))
261	260	fveqeq2d 6842	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ((♯‘(𝑧 supp 0)) = (𝐾 − 1) ↔ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)))
262	259, 261	anbi12d 638	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)) ↔ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1))))
263	262	ifbid 4485	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)))
264		breq1 5082	. . . . . . . . . . . 12 ⊢ (ℎ = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) → (ℎ finSupp 0 ↔ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) finSupp 0))
265	24	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ℕ₀ ∈ V)
266	203, 193	ssexd 5259	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐽 ∈ V)
267	27, 169	sselid 3920	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ (ℕ₀ ↑_m 𝐼))
268	267	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ (ℕ₀ ↑_m 𝐼))
269	203, 265, 268	elmaprd 32779	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})):𝐼⟶ℕ₀)
270	269, 193	fssresd 6701	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽):𝐽⟶ℕ₀)
271	265, 266, 270	elmapdd 8785	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
272		breq1 5082	. . . . . . . . . . . . . 14 ⊢ (ℎ = (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) → (ℎ finSupp 0 ↔ (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) finSupp 0))
273	169	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷)
274	273, 26	eleqtrdi 2850	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0})
275	272, 274	elrabrd 32593	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) finSupp 0)
276	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 0 ∈ ℕ₀)
277	275, 276	fsuppres 9303	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) finSupp 0)
278	264, 271, 277	elrabd 3638	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
279	278, 104	eleqtrrdi 2851	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∈ 𝐶)
280	10	ad2antrr 732	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (1_r‘𝑅) ∈ (Base‘𝑅))
281	14	ad2antrr 732	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (0_g‘𝑅) ∈ (Base‘𝑅))
282	280, 281	ifcld 4508	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)) ∈ (Base‘𝑅))
283	180, 263, 279, 282	fvmptd 6950	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)))
284		eqcom 2747	. . . . . . . . . . . . 13 ⊢ ((𝐾 − 1) = (♯‘((𝑓 ↾ 𝐽) supp 0)) ↔ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1))
285		fz1ssfz0 13575	. . . . . . . . . . . . . . . . . 18 ⊢ (1...(♯‘𝐼)) ⊆ (0...(♯‘𝐼))
286		fz0ssnn0 13574	. . . . . . . . . . . . . . . . . 18 ⊢ (0...(♯‘𝐼)) ⊆ ℕ₀
287	285, 286	sstri 3931	. . . . . . . . . . . . . . . . 17 ⊢ (1...(♯‘𝐼)) ⊆ ℕ₀
288	287, 108	sselid 3920	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐾 ∈ ℕ₀)
289	288	nn0cnd 12498	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ ℂ)
290	289	ad3antrrr 736	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐾 ∈ ℂ)
291		1cnd 11137	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 1 ∈ ℂ)
292		c0ex 11136	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 0 ∈ V
293	292	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 0 ∈ V)
294	30, 23, 293	fidmfisupp 9282	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 finSupp 0)
295	294, 293	fsuppres 9303	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ 𝐽) finSupp 0)
296	295	ad2antrr 732	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ↾ 𝐽) finSupp 0)
297	296	fsuppimpd 9279	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ 𝐽) supp 0) ∈ Fin)
298		hashcl 14316	. . . . . . . . . . . . . . . 16 ⊢ (((𝑓 ↾ 𝐽) supp 0) ∈ Fin → (♯‘((𝑓 ↾ 𝐽) supp 0)) ∈ ℕ₀)
299	297, 298	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘((𝑓 ↾ 𝐽) supp 0)) ∈ ℕ₀)
300	299	nn0cnd 12498	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘((𝑓 ↾ 𝐽) supp 0)) ∈ ℂ)
301	290, 291, 300	subadd2d 11522	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝐾 − 1) = (♯‘((𝑓 ↾ 𝐽) supp 0)) ↔ ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1) = 𝐾))
302	284, 301	bitr3id 286	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1) ↔ ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1) = 𝐾))
303	72	ad2antrr 732	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
304	81	ad2antrr 732	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
305		simplr 774	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ (𝑓‘𝑌) = 0)
306	305	iffalsed 4472	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((𝑓‘𝑌) = 0, ∅, {𝑌}) = {𝑌})
307	304, 306	eqtrd 2775	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = {𝑌})
308	307	uneq2d 4105	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)) = (((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌}))
309	303, 308	eqtrd 2775	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌}))
310	309	fveq2d 6838	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘(𝑓 supp 0)) = (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})))
311		suppssdm 8124	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑓 ↾ 𝐽) supp 0) ⊆ dom (𝑓 ↾ 𝐽)
312		resdmss 6193	. . . . . . . . . . . . . . . . . 18 ⊢ dom (𝑓 ↾ 𝐽) ⊆ 𝐽
313	311, 312	sstri 3931	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 ↾ 𝐽) supp 0) ⊆ 𝐽
314	313	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ 𝐽) supp 0) ⊆ 𝐽)
315	34	eqimssi 3982	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐽 ⊆ (𝐼 ∖ {𝑌})
316		ssdifsn 4728	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐽 ⊆ (𝐼 ∖ {𝑌}) ↔ (𝐽 ⊆ 𝐼 ∧ ¬ 𝑌 ∈ 𝐽))
317	315, 316	mpbi 231	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 ⊆ 𝐼 ∧ ¬ 𝑌 ∈ 𝐽)
318	317	simpri 486	. . . . . . . . . . . . . . . . 17 ⊢ ¬ 𝑌 ∈ 𝐽
319	318	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ 𝑌 ∈ 𝐽)
320	314, 319	ssneldd 3925	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ 𝑌 ∈ ((𝑓 ↾ 𝐽) supp 0))
321		hashunsng 14352	. . . . . . . . . . . . . . . 16 ⊢ (𝑌 ∈ 𝐼 → ((((𝑓 ↾ 𝐽) supp 0) ∈ Fin ∧ ¬ 𝑌 ∈ ((𝑓 ↾ 𝐽) supp 0)) → (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1)))
322	321	imp 407	. . . . . . . . . . . . . . 15 ⊢ ((𝑌 ∈ 𝐼 ∧ (((𝑓 ↾ 𝐽) supp 0) ∈ Fin ∧ ¬ 𝑌 ∈ ((𝑓 ↾ 𝐽) supp 0))) → (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1))
323	234, 297, 320, 322	syl12anc 842	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1))
324	310, 323	eqtrd 2775	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘(𝑓 supp 0)) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1))
325	324	eqeq1d 2742	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((♯‘(𝑓 supp 0)) = 𝐾 ↔ ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1) = 𝐾))
326	302, 325	bitr4d 283	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1) ↔ (♯‘(𝑓 supp 0)) = 𝐾))
327	326	anbi2d 636	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)) ↔ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾)))
328	327	ifbid 4485	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
329	283, 328	eqtrd 2775	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
330		simpr 485	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
331	161	ad2antrr 732	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓 Fn 𝐼)
332	175	ad2antrr 732	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑌 ∈ 𝐼)
333	331, 332	fnfvelrnd 7030	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ∈ ran 𝑓)
334	330, 333	sseldd 3923	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ∈ {0, 1})
335		simpllr 781	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ (𝑓‘𝑌) = 0)
336	335	neqned 2942	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ≠ 0)
337	77	nn0cnd 12498	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓‘𝑌) ∈ ℂ)
338	337	ad3antrrr 736	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ∈ ℂ)
339		1cnd 11137	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 1 ∈ ℂ)
340		simplr 774	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0)
341	160	ad2antrr 732	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
342	127	ad2antrr 732	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 𝐼 ∈ Fin)
343	331, 341, 342, 332, 235	syl22anc 844	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)))
344	243	ad4antr 738	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
345	344	oveq2d 7379	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)) = ((𝑓‘𝑌) − 1))
346	343, 345	eqtrd 2775	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − 1))
347	346	eqeq1d 2742	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0 ↔ ((𝑓‘𝑌) − 1) = 0))
348	340, 347	mtbid 325	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ ((𝑓‘𝑌) − 1) = 0)
349		subeq0 11418	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑓‘𝑌) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝑓‘𝑌) − 1) = 0 ↔ (𝑓‘𝑌) = 1))
350	349	notbid 319	. . . . . . . . . . . . . . . 16 ⊢ (((𝑓‘𝑌) ∈ ℂ ∧ 1 ∈ ℂ) → (¬ ((𝑓‘𝑌) − 1) = 0 ↔ ¬ (𝑓‘𝑌) = 1))
351	350	biimpa 477	. . . . . . . . . . . . . . 15 ⊢ ((((𝑓‘𝑌) ∈ ℂ ∧ 1 ∈ ℂ) ∧ ¬ ((𝑓‘𝑌) − 1) = 0) → ¬ (𝑓‘𝑌) = 1)
352	338, 339, 348, 351	syl21anc 843	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ (𝑓‘𝑌) = 1)
353	352	neqned 2942	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ≠ 1)
354	336, 353	nelprd 4596	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ (𝑓‘𝑌) ∈ {0, 1})
355	334, 354	pm2.65da 822	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ ran 𝑓 ⊆ {0, 1})
356	355	intnanrd 490	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾))
357	356	iffalsed 4472	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) = (0_g‘𝑅))
358	357	eqcomd 2746	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (0_g‘𝑅) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
359	329, 358	ifeqda 4498	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → if(((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0, ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)), (0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
360	173, 177, 359	3eqtrd 2779	. . . . . 6 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
361	171, 360	eqtrd 2775	. . . . 5 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))(+_g‘𝑅)(0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
362	92, 361	ifeqda 4498	. . . 4 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((𝑓‘𝑌) = 0, ((0_g‘𝑅)(+_g‘𝑅)if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))), (((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))(+_g‘𝑅)(0_g‘𝑅))) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
363	1, 362	eqtrid 2787	. . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))(+_g‘𝑅)if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
364	363	mpteq2dva 5172	. 2 ⊢ (𝜑 → (𝑓 ∈ 𝐷 ↦ (if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))(+_g‘𝑅)if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))) = (𝑓 ∈ 𝐷 ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
365		esplyind.p	. . . 4 ⊢ + = (+_g‘𝑊)
366		esplyind.m	. . . . 5 ⊢ · = (._r‘𝑊)
367	94, 22, 5	mplringd 22004	. . . . 5 ⊢ (𝜑 → 𝑊 ∈ Ring)
368		esplyind.v	. . . . . 6 ⊢ 𝑉 = (𝐼 mVar 𝑅)
369	94, 368, 95, 22, 5, 36	mvrcl 21973	. . . . 5 ⊢ (𝜑 → (𝑉‘𝑌) ∈ (Base‘𝑊))
370	95, 366, 367, 369, 115	ringcld 20239	. . . 4 ⊢ (𝜑 → ((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) ∈ (Base‘𝑊))
371	97	fveq1i 6835	. . . . 5 ⊢ (𝐺‘(𝐸‘𝐾)) = (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾))
372	102	fveq1i 6835	. . . . . . 7 ⊢ (𝐸‘𝐾) = ((𝐽eSymPoly𝑅)‘𝐾)
373	104, 107, 5, 288, 99	esplympl 33758	. . . . . . 7 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅)))
374	372, 373	eqeltrid 2844	. . . . . 6 ⊢ (𝜑 → (𝐸‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅)))
375	101, 374	ffvelcdmd 7033	. . . . 5 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾)) ∈ (Base‘𝑊))
376	371, 375	eqeltrid 2844	. . . 4 ⊢ (𝜑 → (𝐺‘(𝐸‘𝐾)) ∈ (Base‘𝑊))
377	94, 95, 3, 365, 370, 376	mpladd 21990	. . 3 ⊢ (𝜑 → (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) + (𝐺‘(𝐸‘𝐾))) = (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) ∘_f (+_g‘𝑅)(𝐺‘(𝐸‘𝐾))))
378	368	fveq1i 6835	. . . . 5 ⊢ (𝑉‘𝑌) = ((𝐼 mVar 𝑅)‘𝑌)
379		eqid 2740	. . . . 5 ⊢ ((𝟭‘𝐼)‘{𝑌}) = ((𝟭‘𝐼)‘{𝑌})
380	94, 378, 95, 366, 4, 26, 379, 22, 36, 5, 115	mplmulmvr 33730	. . . 4 ⊢ (𝜑 → ((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))))
381	97	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐺 = ((𝐼extendVars𝑅)‘𝑌))
382	104, 107, 5, 288, 4, 8	esplyfval3 33763	. . . . . . 7 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘𝐾) = (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
383	372, 382	eqtrid 2787	. . . . . 6 ⊢ (𝜑 → (𝐸‘𝐾) = (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
384	381, 383	fveq12d 6841	. . . . 5 ⊢ (𝜑 → (𝐺‘(𝐸‘𝐾)) = (((𝐼extendVars𝑅)‘𝑌)‘(𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))))
385	382, 373	eqeltrrd 2841	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))) ∈ (Base‘(𝐽 mPoly 𝑅)))
386	26, 4, 22, 5, 36, 34, 99, 385	extvfv 33724	. . . . 5 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, ((𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))‘(𝑓 ↾ 𝐽)), (0_g‘𝑅))))
387		rneq 5885	. . . . . . . . . . 11 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → ran 𝑔 = ran (𝑓 ↾ 𝐽))
388	387	sseq1d 3953	. . . . . . . . . 10 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → (ran 𝑔 ⊆ {0, 1} ↔ ran (𝑓 ↾ 𝐽) ⊆ {0, 1}))
389		oveq1 7370	. . . . . . . . . . 11 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → (𝑔 supp 0) = ((𝑓 ↾ 𝐽) supp 0))
390	389	fveqeq2d 6842	. . . . . . . . . 10 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → ((♯‘(𝑔 supp 0)) = 𝐾 ↔ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾))
391	388, 390	anbi12d 638	. . . . . . . . 9 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → ((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾) ↔ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾)))
392	391	ifbid 4485	. . . . . . . 8 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) = if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
393		eqidd 2741	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))) = (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
394		breq1 5082	. . . . . . . . . 10 ⊢ (ℎ = (𝑓 ↾ 𝐽) → (ℎ finSupp 0 ↔ (𝑓 ↾ 𝐽) finSupp 0))
395	24	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ℕ₀ ∈ V)
396	107	ad2antrr 732	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝐽 ∈ Fin)
397	30	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝑓:𝐼⟶ℕ₀)
398	106	ad2antrr 732	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝐽 ⊆ 𝐼)
399	397, 398	fssresd 6701	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽):𝐽⟶ℕ₀)
400	395, 396, 399	elmapdd 8785	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
401	295	adantr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) finSupp 0)
402	394, 400, 401	elrabd 3638	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
403	402, 104	eleqtrrdi 2851	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) ∈ 𝐶)
404		fvexd 6849	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (1_r‘𝑅) ∈ V)
405		fvexd 6849	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (0_g‘𝑅) ∈ V)
406	404, 405	ifcld 4508	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) ∈ V)
407	392, 393, 403, 406	fvmptd4 6967	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))‘(𝑓 ↾ 𝐽)) = if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
408	407	ifeq1da 4493	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((𝑓‘𝑌) = 0, ((𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))‘(𝑓 ↾ 𝐽)), (0_g‘𝑅)) = if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
409	408	mpteq2dva 5172	. . . . 5 ⊢ (𝜑 → (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, ((𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))‘(𝑓 ↾ 𝐽)), (0_g‘𝑅))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))))
410	384, 386, 409	3eqtrd 2779	. . . 4 ⊢ (𝜑 → (𝐺‘(𝐸‘𝐾)) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))))
411	380, 410	oveq12d 7381	. . 3 ⊢ (𝜑 → (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) ∘_f (+_g‘𝑅)(𝐺‘(𝐸‘𝐾))) = ((𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) ∘_f (+_g‘𝑅)(𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))))
412		ovex 7396	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
413	26, 412	rabex2 5276	. . . . 5 ⊢ 𝐷 ∈ V
414	413	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
415		nfv 1921	. . . . 5 ⊢ Ⅎ𝑓𝜑
416		fvexd 6849	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) ∈ V)
417	14, 416	ifexd 4510	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))) ∈ V)
418		eqid 2740	. . . . 5 ⊢ (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))))
419	415, 417, 418	fnmptd 6633	. . . 4 ⊢ (𝜑 → (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) Fn 𝐷)
420	15, 14	ifcld 4508	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)) ∈ (Base‘𝑅))
421		eqid 2740	. . . . 5 ⊢ (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
422	415, 420, 421	fnmptd 6633	. . . 4 ⊢ (𝜑 → (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) Fn 𝐷)
423		ofmpteq 7650	. . . 4 ⊢ ((𝐷 ∈ V ∧ (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) Fn 𝐷 ∧ (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) Fn 𝐷) → ((𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) ∘_f (+_g‘𝑅)(𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))) = (𝑓 ∈ 𝐷 ↦ (if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))(+_g‘𝑅)if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))))
424	414, 419, 422, 423	syl3anc 1379	. . 3 ⊢ (𝜑 → ((𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) ∘_f (+_g‘𝑅)(𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))) = (𝑓 ∈ 𝐷 ↦ (if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))(+_g‘𝑅)if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))))
425	377, 411, 424	3eqtrd 2779	. 2 ⊢ (𝜑 → (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) + (𝐺‘(𝐸‘𝐾))) = (𝑓 ∈ 𝐷 ↦ (if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))(+_g‘𝑅)if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))))
426	26, 22, 5, 288, 4, 8	esplyfval3 33763	. 2 ⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘𝐾) = (𝑓 ∈ 𝐷 ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
427	364, 425, 426	3eqtr4rd 2786	1 ⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘𝐾) = (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) + (𝐺‘(𝐸‘𝐾))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 396 ∧ w3a 1092 = wceq 1547 ∈ wcel 2119 ≠ wne 2935 ∀wral 3054 {crab 3392 Vcvv 3432 ∖ cdif 3887 ∪ cun 3888 ∩ cin 3889 ⊆ wss 3890 ∅c0 4268 ifcif 4461 {csn 4562 {cpr 4564 ⟨cop 4568 class class class wbr 5079 ↦ cmpt 5160 dom cdm 5625 ran crn 5626 ↾ cres 5627 Rel wrel 5630 Fun wfun 6486 Fn wfn 6487 ⟶wf 6488 ‘cfv 6492 (class class class)co 7363 ∘_f cof 7625 ∘_r cofr 7626 supp csupp 8107 ↑_m cmap 8770 Fincfn 8890 finSupp cfsupp 9271 ℂcc 11034 0cc0 11036 1c1 11037 + caddc 11039 ≤ cle 11178 − cmin 11375 𝟭cind 12157 ℕcn 12172 ℕ₀cn0 12435 ...cfz 13459 ♯chash 14290 Basecbs 17177 +_gcplusg 17218 ._rcmulr 17219 0_gc0g 17400 Grpcgrp 18907 1_rcur 20160 Ringcrg 20212 mVar cmvr 21887 mPoly cmpl 21888 extendVarscextv 33720 eSymPolycesply 33747

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1802 ax-4 1816 ax-5 1917 ax-6 1974 ax-7 2015 ax-8 2121 ax-9 2129 ax-10 2152 ax-11 2168 ax-12 2189 ax-ext 2712 ax-rep 5206 ax-sep 5225 ax-nul 5235 ax-pow 5301 ax-pr 5369 ax-un 7685 ax-cnex 11092 ax-resscn 11093 ax-1cn 11094 ax-icn 11095 ax-addcl 11096 ax-addrcl 11097 ax-mulcl 11098 ax-mulrcl 11099 ax-mulcom 11100 ax-addass 11101 ax-mulass 11102 ax-distr 11103 ax-i2m1 11104 ax-1ne0 11105 ax-1rid 11106 ax-rnegex 11107 ax-rrecex 11108 ax-cnre 11109 ax-pre-lttri 11110 ax-pre-lttrn 11111 ax-pre-ltadd 11112 ax-pre-mulgt0 11113 ax-addf 11115 ax-mulf 11116

This theorem depends on definitions: df-bi 208 df-an 397 df-or 854 df-3or 1093 df-3an 1094 df-tru 1550 df-fal 1560 df-ex 1787 df-nf 1791 df-sb 2074 df-mo 2543 df-eu 2573 df-clab 2719 df-cleq 2732 df-clel 2815 df-nfc 2889 df-ne 2936 df-nel 3040 df-ral 3055 df-rex 3065 df-rmo 3345 df-reu 3346 df-rab 3393 df-v 3434 df-sbc 3731 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4269 df-if 4462 df-pw 4538 df-sn 4563 df-pr 4565 df-tp 4567 df-op 4569 df-uni 4846 df-int 4885 df-iun 4930 df-iin 4931 df-br 5080 df-opab 5142 df-mpt 5161 df-tr 5187 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-se 5579 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-isom 6501 df-riota 7320 df-ov 7366 df-oprab 7367 df-mpo 7368 df-of 7627 df-ofr 7628 df-om 7814 df-1st 7938 df-2nd 7939 df-supp 8108 df-frecs 8228 df-wrecs 8259 df-recs 8308 df-rdg 8346 df-1o 8402 df-2o 8403 df-oadd 8406 df-er 8640 df-map 8772 df-pm 8773 df-ixp 8843 df-en 8891 df-dom 8892 df-sdom 8893 df-fin 8894 df-fsupp 9272 df-sup 9352 df-oi 9422 df-dju 9823 df-card 9861 df-pnf 11179 df-mnf 11180 df-xr 11181 df-ltxr 11182 df-le 11183 df-sub 11377 df-neg 11378 df-div 11806 df-ind 12158 df-nn 12173 df-2 12242 df-3 12243 df-4 12244 df-5 12245 df-6 12246 df-7 12247 df-8 12248 df-9 12249 df-n0 12436 df-xnn0 12509 df-z 12523 df-dec 12643 df-uz 12787 df-rp 12941 df-fz 13460 df-fzo 13607 df-seq 13962 df-fac 14234 df-bc 14263 df-hash 14291 df-struct 17115 df-sets 17132 df-slot 17150 df-ndx 17162 df-base 17178 df-ress 17199 df-plusg 17231 df-mulr 17232 df-starv 17233 df-sca 17234 df-vsca 17235 df-ip 17236 df-tset 17237 df-ple 17238 df-ds 17240 df-unif 17241 df-hom 17242 df-cco 17243 df-0g 17402 df-gsum 17403 df-prds 17408 df-pws 17410 df-mre 17546 df-mrc 17547 df-acs 17549 df-mgm 18606 df-sgrp 18685 df-mnd 18701 df-mhm 18749 df-submnd 18750 df-grp 18910 df-minusg 18911 df-mulg 19042 df-subg 19097 df-ghm 19186 df-cntz 19290 df-cmn 19755 df-abl 19756 df-mgp 20120 df-rng 20132 df-ur 20161 df-ring 20214 df-cring 20215 df-rhm 20450 df-subrng 20525 df-subrg 20549 df-cnfld 21355 df-zring 21429 df-zrh 21485 df-psr 21891 df-mvr 21892 df-mpl 21893 df-extv 33721 df-esply 33749

This theorem is referenced by: esplyindfv 33767

W3C validator