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 33833

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 7492	. . . 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 2761	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘𝑅)
3		eqid 2761	. . . . . . 7 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
4		eqid 2761	. . . . . . 7 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
5		esplyind.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Ring)
6	5	ringgrpd 20271	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Grp)
7	6	ad2antrr 736	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝑅 ∈ Grp)
8		eqid 2761	. . . . . . . . . . 11 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
9	2, 8, 5	ringidcld 20295	. . . . . . . . . 10 ⊢ (𝜑 → (1_r‘𝑅) ∈ (Base‘𝑅))
10	9	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (1_r‘𝑅) ∈ (Base‘𝑅))
11		ringgrp 20267	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
12	2, 4	grpidcl 18990	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Grp → (0_g‘𝑅) ∈ (Base‘𝑅))
13	5, 11, 12	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (0_g‘𝑅) ∈ (Base‘𝑅))
14	13	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (0_g‘𝑅) ∈ (Base‘𝑅))
15	10, 14	ifcld 4526	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) ∈ (Base‘𝑅))
16	15	adantr 484	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) ∈ (Base‘𝑅))
17	2, 3, 4, 7, 16	grplidd 18994	. . . . . 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 4771	. . . . . . . . . . 11 ⊢ {0} ⊆ {0, 1}
19	18	biantru 537	. . . . . . . . . 10 ⊢ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ↔ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ {0} ⊆ {0, 1}))
20		unss 4142	. . . . . . . . . 10 ⊢ ((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ {0} ⊆ {0, 1}) ↔ (ran (𝑓 ↾ 𝐽) ∪ {0}) ⊆ {0, 1})
21	19, 20	bitri 277	. . . . . . . . 9 ⊢ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ↔ (ran (𝑓 ↾ 𝐽) ∪ {0}) ⊆ {0, 1})
22		esplyind.i	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐼 ∈ Fin)
23	22	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝐼 ∈ Fin)
24		nn0ex 12484	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ₀ ∈ V
25	24	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ℕ₀ ∈ V)
26		esplyind.d	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
27	26	ssrab3 4035	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐷 ⊆ (ℕ₀ ↑_m 𝐼)
28	27	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
29	28	sselda 3936	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 ∈ (ℕ₀ ↑_m 𝐼))
30	23, 25, 29	elmaprd 32832	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓:𝐼⟶ℕ₀)
31	30	freld 6694	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → Rel 𝑓)
32	30	ffnd 6688	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 Fn 𝐼)
33	32	fndmd 6622	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → dom 𝑓 = 𝐼)
34		esplyind.j	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐽 = (𝐼 ∖ {𝑌})
35	34	uneq1i 4117	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐽 ∪ {𝑌}) = ((𝐼 ∖ {𝑌}) ∪ {𝑌})
36		esplyind.y	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑌 ∈ 𝐼)
37	36	snssd 4744	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → {𝑌} ⊆ 𝐼)
38		undifr 4436	. . . . . . . . . . . . . . . . . . . 20 ⊢ ({𝑌} ⊆ 𝐼 ↔ ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼)
39	37, 38	sylib 220	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼)
40	35, 39	eqtr2id 2809	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐼 = (𝐽 ∪ {𝑌}))
41	40	adantr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝐼 = (𝐽 ∪ {𝑌}))
42	33, 41	eqtrd 2796	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → dom 𝑓 = (𝐽 ∪ {𝑌}))
43	34	ineq1i 4168	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 ∩ {𝑌}) = ((𝐼 ∖ {𝑌}) ∩ {𝑌})
44		disjdifr 4426	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∖ {𝑌}) ∩ {𝑌}) = ∅
45	43, 44	eqtri 2784	. . . . . . . . . . . . . . . . 17 ⊢ (𝐽 ∩ {𝑌}) = ∅
46	45	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝐽 ∩ {𝑌}) = ∅)
47		reldisjun 6018	. . . . . . . . . . . . . . . 16 ⊢ ((Rel 𝑓 ∧ dom 𝑓 = (𝐽 ∪ {𝑌}) ∧ (𝐽 ∩ {𝑌}) = ∅) → 𝑓 = ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})))
48	31, 42, 46, 47	syl3anc 1389	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 = ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})))
49	48	rneqd 5912	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ran 𝑓 = ran ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})))
50		rnun 6126	. . . . . . . . . . . . . 14 ⊢ ran ((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})) = (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌}))
51	49, 50	eqtr2di 2813	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) = ran 𝑓)
52	32	fnfund 6618	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → Fun 𝑓)
53	36	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑌 ∈ 𝐼)
54	53, 33	eleqtrrd 2864	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑌 ∈ dom 𝑓)
55		rnressnsn 32829	. . . . . . . . . . . . . . 15 ⊢ ((Fun 𝑓 ∧ 𝑌 ∈ dom 𝑓) → ran (𝑓 ↾ {𝑌}) = {(𝑓‘𝑌)})
56	52, 54, 55	syl2anc 593	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ran (𝑓 ↾ {𝑌}) = {(𝑓‘𝑌)})
57	56	uneq2d 4121	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) = (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}))
58	51, 57	eqtr3d 2798	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ran 𝑓 = (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}))
59	58	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ran 𝑓 = (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}))
60		simpr 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓‘𝑌) = 0)
61	60	sneqd 4593	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → {(𝑓‘𝑌)} = {0})
62	61	uneq2d 4121	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (ran (𝑓 ↾ 𝐽) ∪ {(𝑓‘𝑌)}) = (ran (𝑓 ↾ 𝐽) ∪ {0}))
63	59, 62	eqtrd 2796	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ran 𝑓 = (ran (𝑓 ↾ 𝐽) ∪ {0}))
64	63	sseq1d 3967	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (ran 𝑓 ⊆ {0, 1} ↔ (ran (𝑓 ↾ 𝐽) ∪ {0}) ⊆ {0, 1}))
65	21, 64	bitr4id 292	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ↔ ran 𝑓 ⊆ {0, 1}))
66	48	oveq1d 7407	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})) supp 0))
67	29	resexd 6012	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ 𝐽) ∈ V)
68	29	resexd 6012	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ {𝑌}) ∈ V)
69		0nn0 12493	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℕ₀
70	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 0 ∈ ℕ₀)
71	67, 68, 70	suppun2 32836	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (((𝑓 ↾ 𝐽) ∪ (𝑓 ↾ {𝑌})) supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
72	66, 71	eqtrd 2796	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
73	72	adantr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
74		fnressn 7137	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 Fn 𝐼 ∧ 𝑌 ∈ 𝐼) → (𝑓 ↾ {𝑌}) = {⟨𝑌, (𝑓‘𝑌)⟩})
75	32, 53, 74	syl2anc 593	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ {𝑌}) = {⟨𝑌, (𝑓‘𝑌)⟩})
76	75	oveq1d 7407	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝑓 ↾ {𝑌}) supp 0) = ({⟨𝑌, (𝑓‘𝑌)⟩} supp 0))
77	30, 53	ffvelcdmd 7062	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓‘𝑌) ∈ ℕ₀)
78		eqid 2761	. . . . . . . . . . . . . . . . 17 ⊢ {⟨𝑌, (𝑓‘𝑌)⟩} = {⟨𝑌, (𝑓‘𝑌)⟩}
79	78	suppsnop 8153	. . . . . . . . . . . . . . . 16 ⊢ ((𝑌 ∈ 𝐼 ∧ (𝑓‘𝑌) ∈ ℕ₀ ∧ 0 ∈ ℕ₀) → ({⟨𝑌, (𝑓‘𝑌)⟩} supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
80	53, 77, 70, 79	syl3anc 1389	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ({⟨𝑌, (𝑓‘𝑌)⟩} supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
81	76, 80	eqtrd 2796	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝑓 ↾ {𝑌}) supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
82	81	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
83	60	iftrued 4487	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((𝑓‘𝑌) = 0, ∅, {𝑌}) = ∅)
84	82, 83	eqtrd 2796	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = ∅)
85	84	uneq2d 4121	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)) = (((𝑓 ↾ 𝐽) supp 0) ∪ ∅))
86		un0 4347	. . . . . . . . . . 11 ⊢ (((𝑓 ↾ 𝐽) supp 0) ∪ ∅) = ((𝑓 ↾ 𝐽) supp 0)
87	85, 86	eqtrdi 2812	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)) = ((𝑓 ↾ 𝐽) supp 0))
88	73, 87	eqtr2d 2797	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((𝑓 ↾ 𝐽) supp 0) = (𝑓 supp 0))
89	88	fveqeq2d 6871	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾 ↔ (♯‘(𝑓 supp 0)) = 𝐾))
90	65, 89	anbi12d 641	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾) ↔ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾)))
91	90	ifbid 4503	. . . . . 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 2796	. . . . 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 736	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑅 ∈ Grp)
94		esplyind.w	. . . . . . . . . 10 ⊢ 𝑊 = (𝐼 mPoly 𝑅)
95		eqid 2761	. . . . . . . . . 10 ⊢ (Base‘𝑊) = (Base‘𝑊)
96	26	psrbasfsupp 33769	. . . . . . . . . 10 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
97		esplyind.g	. . . . . . . . . . . 12 ⊢ 𝐺 = ((𝐼extendVars𝑅)‘𝑌)
98	97	fveq1i 6864	. . . . . . . . . . 11 ⊢ (𝐺‘(𝐸‘(𝐾 − 1))) = (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))
99		eqid 2761	. . . . . . . . . . . . 13 ⊢ (Base‘(𝐽 mPoly 𝑅)) = (Base‘(𝐽 mPoly 𝑅))
100	94	fveq2i 6866	. . . . . . . . . . . . 13 ⊢ (Base‘𝑊) = (Base‘(𝐼 mPoly 𝑅))
101	26, 4, 22, 5, 2, 34, 99, 36, 100	extvfvalf 33795	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐼extendVars𝑅)‘𝑌):(Base‘(𝐽 mPoly 𝑅))⟶(Base‘𝑊))
102		esplyind.e	. . . . . . . . . . . . . 14 ⊢ 𝐸 = (𝐽eSymPoly𝑅)
103	102	fveq1i 6864	. . . . . . . . . . . . 13 ⊢ (𝐸‘(𝐾 − 1)) = ((𝐽eSymPoly𝑅)‘(𝐾 − 1))
104		esplyind.1	. . . . . . . . . . . . . 14 ⊢ 𝐶 = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}
105		difssd 4090	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ∖ {𝑌}) ⊆ 𝐼)
106	34, 105	eqsstrid 3974	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
107	22, 106	ssfid 9209	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐽 ∈ Fin)
108		esplyind.k	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ (1...(♯‘𝐼)))
109		elfznn 13555	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ (1...(♯‘𝐼)) → 𝐾 ∈ ℕ)
110		nnm1nn0 12519	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ ℕ → (𝐾 − 1) ∈ ℕ₀)
111	108, 109, 110	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐾 − 1) ∈ ℕ₀)
112	104, 107, 5, 111, 99	esplympl 33825	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(𝐾 − 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
113	103, 112	eqeltrid 2865	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸‘(𝐾 − 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
114	101, 113	ffvelcdmd 7062	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1))) ∈ (Base‘𝑊))
115	98, 114	eqeltrid 2865	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺‘(𝐸‘(𝐾 − 1))) ∈ (Base‘𝑊))
116	94, 2, 95, 96, 115	mplelf 22029	. . . . . . . . 9 ⊢ (𝜑 → (𝐺‘(𝐸‘(𝐾 − 1))):𝐷⟶(Base‘𝑅))
117	116	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝐺‘(𝐸‘(𝐾 − 1))):𝐷⟶(Base‘𝑅))
118		simplr 778	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑓 ∈ 𝐷)
119		indf 12198	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼) → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶{0, 1})
120	22, 37, 119	syl2anc 593	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶{0, 1})
121	69	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ∈ ℕ₀)
122		1nn0 12494	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℕ₀
123	122	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℕ₀)
124	121, 123	prssd 4779	. . . . . . . . . . 11 ⊢ (𝜑 → {0, 1} ⊆ ℕ₀)
125	120, 124	fssd 6705	. . . . . . . . . 10 ⊢ (𝜑 → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀)
126	125	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀)
127	22	ad2antrr 736	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝐼 ∈ Fin)
128	127	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝐼 ∈ Fin)
129	37	ad4antr 742	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → {𝑌} ⊆ 𝐼)
130		velsn 4597	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑌} ↔ 𝑥 = 𝑌)
131	130	bilanri 510	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑥 ∈ {𝑌})
132		ind1 12201	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼 ∧ 𝑥 ∈ {𝑌}) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 1)
133	128, 129, 131, 132	syl3anc 1389	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 1)
134	30	ad3antrrr 740	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑓:𝐼⟶ℕ₀)
135		simplr 778	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑥 ∈ 𝐼)
136	134, 135	ffvelcdmd 7062	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) ∈ ℕ₀)
137		simpr 488	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 𝑥 = 𝑌)
138	137	fveq2d 6867	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) = (𝑓‘𝑌))
139		simpllr 785	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → ¬ (𝑓‘𝑌) = 0)
140	139	neqned 2963	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑌) ≠ 0)
141	138, 140	eqnetrd 3023	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) ≠ 0)
142		elnnne0 12492	. . . . . . . . . . . . . . 15 ⊢ ((𝑓‘𝑥) ∈ ℕ ↔ ((𝑓‘𝑥) ∈ ℕ₀ ∧ (𝑓‘𝑥) ≠ 0))
143	136, 141, 142	sylanbrc 592	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (𝑓‘𝑥) ∈ ℕ)
144	143	nnge1d 12258	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → 1 ≤ (𝑓‘𝑥))
145	133, 144	eqbrtrd 5121	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 = 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
146	127	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝐼 ∈ Fin)
147	37	ad4antr 742	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → {𝑌} ⊆ 𝐼)
148		simplr 778	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝑥 ∈ 𝐼)
149		simpr 488	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝑥 ≠ 𝑌)
150	148, 149	eldifsnd 4746	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 𝑥 ∈ (𝐼 ∖ {𝑌}))
151		ind0 12202	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼 ∧ 𝑥 ∈ (𝐼 ∖ {𝑌})) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 0)
152	146, 147, 150, 151	syl3anc 1389	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 0)
153	30	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑓:𝐼⟶ℕ₀)
154	153	ffvelcdmda 7061	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ ℕ₀)
155	154	adantr 484	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → (𝑓‘𝑥) ∈ ℕ₀)
156	155	nn0ge0d 12542	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → 0 ≤ (𝑓‘𝑥))
157	152, 156	eqbrtrd 5121	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ≠ 𝑌) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
158	145, 157	pm2.61dane 3043	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
159	158	ralrimiva 3153	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ∀𝑥 ∈ 𝐼 (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥))
160	126	ffnd 6688	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
161	32	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑓 Fn 𝐼)
162		inidm 4178	. . . . . . . . . . 11 ⊢ (𝐼 ∩ 𝐼) = 𝐼
163		eqidd 2762	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = (((𝟭‘𝐼)‘{𝑌})‘𝑥))
164		eqidd 2762	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) = (𝑓‘𝑥))
165	160, 161, 127, 127, 162, 163, 164	ofrfval 7666	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓 ↔ ∀𝑥 ∈ 𝐼 (((𝟭‘𝐼)‘{𝑌})‘𝑥) ≤ (𝑓‘𝑥)))
166	159, 165	mpbird 259	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓)
167	96	psrbagcon 21957	. . . . . . . . . 10 ⊢ ((𝑓 ∈ 𝐷 ∧ ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀ ∧ ((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷 ∧ (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∘_r ≤ 𝑓))
168	167	simpld 498	. . . . . . . . 9 ⊢ ((𝑓 ∈ 𝐷 ∧ ((𝟭‘𝐼)‘{𝑌}):𝐼⟶ℕ₀ ∧ ((𝟭‘𝐼)‘{𝑌}) ∘_r ≤ 𝑓) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷)
169	118, 126, 166, 168	syl3anc 1389	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷)
170	117, 169	ffvelcdmd 7062	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) ∈ (Base‘𝑅))
171	2, 3, 4, 93, 170	grpridd 18995	. . . . . 6 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))(+_g‘𝑅)(0_g‘𝑅)) = ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))
172	98	fveq1i 6864	. . . . . . . 8 ⊢ ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))
173	172	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))
174	5	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑅 ∈ Ring)
175	36	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → 𝑌 ∈ 𝐼)
176	113	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝐸‘(𝐾 − 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
177	26, 4, 127, 174, 175, 34, 99, 176, 169	extvfvv 33792	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = if(((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0, ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)), (0_g‘𝑅)))
178	104, 107, 5, 111, 4, 8	esplyfval3 33830	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(𝐾 − 1)) = (𝑧 ∈ 𝐶 ↦ if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅))))
179	103, 178	eqtrid 2808	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸‘(𝐾 − 1)) = (𝑧 ∈ 𝐶 ↦ if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅))))
180	179	ad3antrrr 740	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝐸‘(𝐾 − 1)) = (𝑧 ∈ 𝐶 ↦ if((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅))))
181	51	ad4antr 742	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) = ran 𝑓)
182		simpr 488	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽))
183	120	ffnd 6688	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
184	183	adantr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
185	32, 184, 23, 23, 162	offn 7669	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) Fn 𝐼)
186	185	ad3antrrr 740	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) Fn 𝐼)
187	106	ad4antr 742	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝐽 ⊆ 𝐼)
188	186, 187	fnssresd 6641	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) Fn 𝐽)
189		fneq1 6608	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) → (𝑧 Fn 𝐽 ↔ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) Fn 𝐽))
190	189	biimpar 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) Fn 𝐽) → 𝑧 Fn 𝐽)
191	182, 188, 190	syl2anc 593	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝑧 Fn 𝐽)
192	32	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝑓 Fn 𝐼)
193	106	ad3antrrr 740	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐽 ⊆ 𝐼)
194	192, 193	fnssresd 6641	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ↾ 𝐽) Fn 𝐽)
195	194	adantr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (𝑓 ↾ 𝐽) Fn 𝐽)
196		simplr 778	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽))
197	196	fveq1d 6865	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑧‘𝑥) = (((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)‘𝑥))
198		simpr 488	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ 𝐽)
199	198	fvresd 6883	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)‘𝑥) = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥))
200	192	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑓 Fn 𝐼)
201	160	adantr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
202	201	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
203	23	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐼 ∈ Fin)
204	203	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝐼 ∈ Fin)
205	187	sselda 3936	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ 𝐼)
206		fnfvof 7673	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑓 Fn 𝐼 ∧ ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼) ∧ (𝐼 ∈ Fin ∧ 𝑥 ∈ 𝐼)) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥) = ((𝑓‘𝑥) − (((𝟭‘𝐼)‘{𝑌})‘𝑥)))
207	200, 202, 204, 205, 206	syl22anc 849	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥) = ((𝑓‘𝑥) − (((𝟭‘𝐼)‘{𝑌})‘𝑥)))
208	37	ad5antr 744	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → {𝑌} ⊆ 𝐼)
209	198, 34	eleqtrdi 2871	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ (𝐼 ∖ {𝑌}))
210	204, 208, 209, 151	syl3anc 1389	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (((𝟭‘𝐼)‘{𝑌})‘𝑥) = 0)
211	210	oveq2d 7408	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓‘𝑥) − (((𝟭‘𝐼)‘{𝑌})‘𝑥)) = ((𝑓‘𝑥) − 0))
212	153	ad3antrrr 740	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → 𝑓:𝐼⟶ℕ₀)
213	212, 205	ffvelcdmd 7062	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑓‘𝑥) ∈ ℕ₀)
214	213	nn0cnd 12541	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑓‘𝑥) ∈ ℂ)
215	214	subid1d 11528	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓‘𝑥) − 0) = (𝑓‘𝑥))
216	198	fvresd 6883	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓 ↾ 𝐽)‘𝑥) = (𝑓‘𝑥))
217	215, 216	eqtr4d 2799	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓‘𝑥) − 0) = ((𝑓 ↾ 𝐽)‘𝑥))
218	207, 211, 217	3eqtrd 2800	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑥) = ((𝑓 ↾ 𝐽)‘𝑥))
219	197, 199, 218	3eqtrd 2800	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ 𝑥 ∈ 𝐽) → (𝑧‘𝑥) = ((𝑓 ↾ 𝐽)‘𝑥))
220	191, 195, 219	eqfnfvd 7010	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → 𝑧 = (𝑓 ↾ 𝐽))
221	220	rneqd 5912	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ran 𝑧 = ran (𝑓 ↾ 𝐽))
222	221	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran 𝑧 = ran (𝑓 ↾ 𝐽))
223		simpr 488	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran 𝑧 ⊆ {0, 1})
224	222, 223	eqsstrrd 3971	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ 𝐽) ⊆ {0, 1})
225	52	ad4antr 742	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → Fun 𝑓)
226	54	ad4antr 742	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → 𝑌 ∈ dom 𝑓)
227	225, 226, 55	syl2anc 593	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ {𝑌}) = {(𝑓‘𝑌)})
228	77	ad2antrr 736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) ∈ ℕ₀)
229	228	nn0cnd 12541	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) ∈ ℂ)
230	120, 36	ffvelcdmd 7062	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ {0, 1})
231	124, 230	sseldd 3937	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ ℕ₀)
232	231	nn0cnd 12541	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ ℂ)
233	232	ad3antrrr 740	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) ∈ ℂ)
234	175	adantr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝑌 ∈ 𝐼)
235		fnfvof 7673	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑓 Fn 𝐼 ∧ ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼) ∧ (𝐼 ∈ Fin ∧ 𝑌 ∈ 𝐼)) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)))
236	192, 201, 203, 234, 235	syl22anc 849	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)))
237		simpr 488	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0)
238	236, 237	eqtr3d 2798	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)) = 0)
239	229, 233, 238	subeq0d 11547	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) = (((𝟭‘𝐼)‘{𝑌})‘𝑌))
240		snidg 4618	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑌 ∈ 𝐼 → 𝑌 ∈ {𝑌})
241	36, 240	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑌 ∈ {𝑌})
242		ind1 12201	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐼 ∈ Fin ∧ {𝑌} ⊆ 𝐼 ∧ 𝑌 ∈ {𝑌}) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
243	22, 37, 241, 242	syl3anc 1389	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
244	243	ad3antrrr 740	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
245	239, 244	eqtrd 2796	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓‘𝑌) = 1)
246	245	ad2antrr 736	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → (𝑓‘𝑌) = 1)
247	246	sneqd 4593	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → {(𝑓‘𝑌)} = {1})
248	227, 247	eqtrd 2796	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ {𝑌}) = {1})
249		snsspr2 4772	. . . . . . . . . . . . . . . 16 ⊢ {1} ⊆ {0, 1}
250	248, 249	eqsstrdi 3980	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran (𝑓 ↾ {𝑌}) ⊆ {0, 1})
251	224, 250	unssd 4144	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → (ran (𝑓 ↾ 𝐽) ∪ ran (𝑓 ↾ {𝑌})) ⊆ {0, 1})
252	181, 251	eqsstrrd 3971	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑧 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
253	220	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑧 = (𝑓 ↾ 𝐽))
254	253	rneqd 5912	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑧 = ran (𝑓 ↾ 𝐽))
255		rnresss 6001	. . . . . . . . . . . . . . 15 ⊢ ran (𝑓 ↾ 𝐽) ⊆ ran 𝑓
256		simpr 488	. . . . . . . . . . . . . . 15 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
257	255, 256	sstrid 3947	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran (𝑓 ↾ 𝐽) ⊆ {0, 1})
258	254, 257	eqsstrd 3970	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑧 ⊆ {0, 1})
259	252, 258	impbida 810	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (ran 𝑧 ⊆ {0, 1} ↔ ran 𝑓 ⊆ {0, 1}))
260	220	oveq1d 7407	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → (𝑧 supp 0) = ((𝑓 ↾ 𝐽) supp 0))
261	260	fveqeq2d 6871	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ((♯‘(𝑧 supp 0)) = (𝐾 − 1) ↔ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)))
262	259, 261	anbi12d 641	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ 𝑧 = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) → ((ran 𝑧 ⊆ {0, 1} ∧ (♯‘(𝑧 supp 0)) = (𝐾 − 1)) ↔ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1))))
263	262	ifbid 4503	. . . . . . . . . 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 5102	. . . . . . . . . . . 12 ⊢ (ℎ = ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) → (ℎ finSupp 0 ↔ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) finSupp 0))
265	24	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ℕ₀ ∈ V)
266	203, 193	ssexd 5279	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐽 ∈ V)
267	27, 169	sselid 3934	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ (ℕ₀ ↑_m 𝐼))
268	267	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ (ℕ₀ ↑_m 𝐼))
269	203, 265, 268	elmaprd 32832	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})):𝐼⟶ℕ₀)
270	269, 193	fssresd 6727	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽):𝐽⟶ℕ₀)
271	265, 266, 270	elmapdd 8818	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
272		breq1 5102	. . . . . . . . . . . . . 14 ⊢ (ℎ = (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) → (ℎ finSupp 0 ↔ (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) finSupp 0))
273	169	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ 𝐷)
274	273, 26	eleqtrdi 2871	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0})
275	272, 274	elrabrd 32646	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) finSupp 0)
276	69	a1i 11	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 0 ∈ ℕ₀)
277	275, 276	fsuppres 9336	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) finSupp 0)
278	264, 271, 277	elrabd 3652	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
279	278, 104	eleqtrrdi 2872	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽) ∈ 𝐶)
280	10	ad2antrr 736	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (1_r‘𝑅) ∈ (Base‘𝑅))
281	14	ad2antrr 736	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (0_g‘𝑅) ∈ (Base‘𝑅))
282	280, 281	ifcld 4526	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)) ∈ (Base‘𝑅))
283	180, 263, 279, 282	fvmptd 6979	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)), (1_r‘𝑅), (0_g‘𝑅)))
284		eqcom 2768	. . . . . . . . . . . . 13 ⊢ ((𝐾 − 1) = (♯‘((𝑓 ↾ 𝐽) supp 0)) ↔ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1))
285		fz1ssfz0 13625	. . . . . . . . . . . . . . . . . 18 ⊢ (1...(♯‘𝐼)) ⊆ (0...(♯‘𝐼))
286		fz0ssnn0 13624	. . . . . . . . . . . . . . . . . 18 ⊢ (0...(♯‘𝐼)) ⊆ ℕ₀
287	285, 286	sstri 3945	. . . . . . . . . . . . . . . . 17 ⊢ (1...(♯‘𝐼)) ⊆ ℕ₀
288	287, 108	sselid 3934	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐾 ∈ ℕ₀)
289	288	nn0cnd 12541	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐾 ∈ ℂ)
290	289	ad3antrrr 740	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 𝐾 ∈ ℂ)
291		1cnd 11172	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → 1 ∈ ℂ)
292		c0ex 11170	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 0 ∈ V
293	292	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 0 ∈ V)
294	30, 23, 293	fidmfisupp 9315	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → 𝑓 finSupp 0)
295	294, 293	fsuppres 9336	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓 ↾ 𝐽) finSupp 0)
296	295	ad2antrr 736	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 ↾ 𝐽) finSupp 0)
297	296	fsuppimpd 9312	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ 𝐽) supp 0) ∈ Fin)
298		hashcl 14366	. . . . . . . . . . . . . . . 16 ⊢ (((𝑓 ↾ 𝐽) supp 0) ∈ Fin → (♯‘((𝑓 ↾ 𝐽) supp 0)) ∈ ℕ₀)
299	297, 298	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘((𝑓 ↾ 𝐽) supp 0)) ∈ ℕ₀)
300	299	nn0cnd 12541	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘((𝑓 ↾ 𝐽) supp 0)) ∈ ℂ)
301	290, 291, 300	subadd2d 11558	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝐾 − 1) = (♯‘((𝑓 ↾ 𝐽) supp 0)) ↔ ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1) = 𝐾))
302	284, 301	bitr3id 287	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1) ↔ ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1) = 𝐾))
303	72	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)))
304	81	ad2antrr 736	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = if((𝑓‘𝑌) = 0, ∅, {𝑌}))
305		simplr 778	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ (𝑓‘𝑌) = 0)
306	305	iffalsed 4490	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((𝑓‘𝑌) = 0, ∅, {𝑌}) = {𝑌})
307	304, 306	eqtrd 2796	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ {𝑌}) supp 0) = {𝑌})
308	307	uneq2d 4121	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (((𝑓 ↾ 𝐽) supp 0) ∪ ((𝑓 ↾ {𝑌}) supp 0)) = (((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌}))
309	303, 308	eqtrd 2796	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (𝑓 supp 0) = (((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌}))
310	309	fveq2d 6867	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘(𝑓 supp 0)) = (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})))
311		suppssdm 8152	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑓 ↾ 𝐽) supp 0) ⊆ dom (𝑓 ↾ 𝐽)
312		resdmss 6218	. . . . . . . . . . . . . . . . . 18 ⊢ dom (𝑓 ↾ 𝐽) ⊆ 𝐽
313	311, 312	sstri 3945	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 ↾ 𝐽) supp 0) ⊆ 𝐽
314	313	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝑓 ↾ 𝐽) supp 0) ⊆ 𝐽)
315	34	eqimssi 3996	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐽 ⊆ (𝐼 ∖ {𝑌})
316		ssdifsn 4747	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐽 ⊆ (𝐼 ∖ {𝑌}) ↔ (𝐽 ⊆ 𝐼 ∧ ¬ 𝑌 ∈ 𝐽))
317	315, 316	mpbi 232	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 ⊆ 𝐼 ∧ ¬ 𝑌 ∈ 𝐽)
318	317	simpri 489	. . . . . . . . . . . . . . . . 17 ⊢ ¬ 𝑌 ∈ 𝐽
319	318	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ 𝑌 ∈ 𝐽)
320	314, 319	ssneldd 3939	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ 𝑌 ∈ ((𝑓 ↾ 𝐽) supp 0))
321		hashunsng 14402	. . . . . . . . . . . . . . . 16 ⊢ (𝑌 ∈ 𝐼 → ((((𝑓 ↾ 𝐽) supp 0) ∈ Fin ∧ ¬ 𝑌 ∈ ((𝑓 ↾ 𝐽) supp 0)) → (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1)))
322	321	imp 410	. . . . . . . . . . . . . . 15 ⊢ ((𝑌 ∈ 𝐼 ∧ (((𝑓 ↾ 𝐽) supp 0) ∈ Fin ∧ ¬ 𝑌 ∈ ((𝑓 ↾ 𝐽) supp 0))) → (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1))
323	234, 297, 320, 322	syl12anc 847	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘(((𝑓 ↾ 𝐽) supp 0) ∪ {𝑌})) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1))
324	310, 323	eqtrd 2796	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (♯‘(𝑓 supp 0)) = ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1))
325	324	eqeq1d 2763	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((♯‘(𝑓 supp 0)) = 𝐾 ↔ ((♯‘((𝑓 ↾ 𝐽) supp 0)) + 1) = 𝐾))
326	302, 325	bitr4d 284	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1) ↔ (♯‘(𝑓 supp 0)) = 𝐾))
327	326	anbi2d 639	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((ran 𝑓 ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = (𝐾 − 1)) ↔ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾)))
328	327	ifbid 4503	. . . . . . . . 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 2796	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
330		simpr 488	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
331	161	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓 Fn 𝐼)
332	175	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑌 ∈ 𝐼)
333	331, 332	fnfvelrnd 7059	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ∈ ran 𝑓)
334	330, 333	sseldd 3937	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ∈ {0, 1})
335		simpllr 785	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ (𝑓‘𝑌) = 0)
336	335	neqned 2963	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ≠ 0)
337	77	nn0cnd 12541	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → (𝑓‘𝑌) ∈ ℂ)
338	337	ad3antrrr 740	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ∈ ℂ)
339		1cnd 11172	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 1 ∈ ℂ)
340		simplr 778	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0)
341	160	ad2antrr 736	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝟭‘𝐼)‘{𝑌}) Fn 𝐼)
342	127	ad2antrr 736	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → 𝐼 ∈ Fin)
343	331, 341, 342, 332, 235	syl22anc 849	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)))
344	243	ad4antr 742	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (((𝟭‘𝐼)‘{𝑌})‘𝑌) = 1)
345	344	oveq2d 7408	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝑓‘𝑌) − (((𝟭‘𝐼)‘{𝑌})‘𝑌)) = ((𝑓‘𝑌) − 1))
346	343, 345	eqtrd 2796	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = ((𝑓‘𝑌) − 1))
347	346	eqeq1d 2763	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0 ↔ ((𝑓‘𝑌) − 1) = 0))
348	340, 347	mtbid 326	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ ((𝑓‘𝑌) − 1) = 0)
349		subeq0 11454	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑓‘𝑌) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝑓‘𝑌) − 1) = 0 ↔ (𝑓‘𝑌) = 1))
350	349	notbid 320	. . . . . . . . . . . . . . . 16 ⊢ (((𝑓‘𝑌) ∈ ℂ ∧ 1 ∈ ℂ) → (¬ ((𝑓‘𝑌) − 1) = 0 ↔ ¬ (𝑓‘𝑌) = 1))
351	350	biimpa 480	. . . . . . . . . . . . . . 15 ⊢ ((((𝑓‘𝑌) ∈ ℂ ∧ 1 ∈ ℂ) ∧ ¬ ((𝑓‘𝑌) − 1) = 0) → ¬ (𝑓‘𝑌) = 1)
352	338, 339, 348, 351	syl21anc 848	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ (𝑓‘𝑌) = 1)
353	352	neqned 2963	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → (𝑓‘𝑌) ≠ 1)
354	336, 353	nelprd 4615	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) ∧ ran 𝑓 ⊆ {0, 1}) → ¬ (𝑓‘𝑌) ∈ {0, 1})
355	334, 354	pm2.65da 826	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ ran 𝑓 ⊆ {0, 1})
356	355	intnanrd 493	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾))
357	356	iffalsed 4490	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) = (0_g‘𝑅))
358	357	eqcomd 2767	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) ∧ ¬ ((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0) → (0_g‘𝑅) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
359	329, 358	ifeqda 4516	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → if(((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))‘𝑌) = 0, ((𝐸‘(𝐾 − 1))‘((𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})) ↾ 𝐽)), (0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
360	173, 177, 359	3eqtrd 2800	. . . . . 6 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
361	171, 360	eqtrd 2796	. . . . 5 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ ¬ (𝑓‘𝑌) = 0) → (((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))(+_g‘𝑅)(0_g‘𝑅)) = if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
362	92, 361	ifeqda 4516	. . . 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 2808	. . 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 5192	. 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 22054	. . . . 5 ⊢ (𝜑 → 𝑊 ∈ Ring)
368		esplyind.v	. . . . . 6 ⊢ 𝑉 = (𝐼 mVar 𝑅)
369	94, 368, 95, 22, 5, 36	mvrcl 22023	. . . . 5 ⊢ (𝜑 → (𝑉‘𝑌) ∈ (Base‘𝑊))
370	95, 366, 367, 369, 115	ringcld 20289	. . . 4 ⊢ (𝜑 → ((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) ∈ (Base‘𝑊))
371	97	fveq1i 6864	. . . . 5 ⊢ (𝐺‘(𝐸‘𝐾)) = (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾))
372	102	fveq1i 6864	. . . . . . 7 ⊢ (𝐸‘𝐾) = ((𝐽eSymPoly𝑅)‘𝐾)
373	104, 107, 5, 288, 99	esplympl 33825	. . . . . . 7 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅)))
374	372, 373	eqeltrid 2865	. . . . . 6 ⊢ (𝜑 → (𝐸‘𝐾) ∈ (Base‘(𝐽 mPoly 𝑅)))
375	101, 374	ffvelcdmd 7062	. . . . 5 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝑌)‘(𝐸‘𝐾)) ∈ (Base‘𝑊))
376	371, 375	eqeltrid 2865	. . . 4 ⊢ (𝜑 → (𝐺‘(𝐸‘𝐾)) ∈ (Base‘𝑊))
377	94, 95, 3, 365, 370, 376	mpladd 22040	. . 3 ⊢ (𝜑 → (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) + (𝐺‘(𝐸‘𝐾))) = (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) ∘_f (+_g‘𝑅)(𝐺‘(𝐸‘𝐾))))
378	368	fveq1i 6864	. . . . 5 ⊢ (𝑉‘𝑌) = ((𝐼 mVar 𝑅)‘𝑌)
379		eqid 2761	. . . . 5 ⊢ ((𝟭‘𝐼)‘{𝑌}) = ((𝟭‘𝐼)‘{𝑌})
380	94, 378, 95, 366, 4, 26, 379, 22, 36, 5, 115	mplmulmvr 33797	. . . 4 ⊢ (𝜑 → ((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))))
381	97	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐺 = ((𝐼extendVars𝑅)‘𝑌))
382	104, 107, 5, 288, 4, 8	esplyfval3 33830	. . . . . . 7 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘𝐾) = (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
383	372, 382	eqtrid 2808	. . . . . 6 ⊢ (𝜑 → (𝐸‘𝐾) = (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
384	381, 383	fveq12d 6870	. . . . 5 ⊢ (𝜑 → (𝐺‘(𝐸‘𝐾)) = (((𝐼extendVars𝑅)‘𝑌)‘(𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))))
385	382, 373	eqeltrrd 2862	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))) ∈ (Base‘(𝐽 mPoly 𝑅)))
386	26, 4, 22, 5, 36, 34, 99, 385	extvfv 33791	. . . . 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 5910	. . . . . . . . . . 11 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → ran 𝑔 = ran (𝑓 ↾ 𝐽))
388	387	sseq1d 3967	. . . . . . . . . 10 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → (ran 𝑔 ⊆ {0, 1} ↔ ran (𝑓 ↾ 𝐽) ⊆ {0, 1}))
389		oveq1 7399	. . . . . . . . . . 11 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → (𝑔 supp 0) = ((𝑓 ↾ 𝐽) supp 0))
390	389	fveqeq2d 6871	. . . . . . . . . 10 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → ((♯‘(𝑔 supp 0)) = 𝐾 ↔ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾))
391	388, 390	anbi12d 641	. . . . . . . . 9 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → ((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾) ↔ (ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾)))
392	391	ifbid 4503	. . . . . . . 8 ⊢ (𝑔 = (𝑓 ↾ 𝐽) → if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) = if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)))
393		eqidd 2762	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))) = (𝑔 ∈ 𝐶 ↦ if((ran 𝑔 ⊆ {0, 1} ∧ (♯‘(𝑔 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
394		breq1 5102	. . . . . . . . . 10 ⊢ (ℎ = (𝑓 ↾ 𝐽) → (ℎ finSupp 0 ↔ (𝑓 ↾ 𝐽) finSupp 0))
395	24	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → ℕ₀ ∈ V)
396	107	ad2antrr 736	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝐽 ∈ Fin)
397	30	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝑓:𝐼⟶ℕ₀)
398	106	ad2antrr 736	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → 𝐽 ⊆ 𝐼)
399	397, 398	fssresd 6727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽):𝐽⟶ℕ₀)
400	395, 396, 399	elmapdd 8818	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
401	295	adantr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) finSupp 0)
402	394, 400, 401	elrabd 3652	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
403	402, 104	eleqtrrdi 2872	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (𝑓 ↾ 𝐽) ∈ 𝐶)
404		fvexd 6878	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (1_r‘𝑅) ∈ V)
405		fvexd 6878	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → (0_g‘𝑅) ∈ V)
406	404, 405	ifcld 4526	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐷) ∧ (𝑓‘𝑌) = 0) → if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)) ∈ V)
407	392, 393, 403, 406	fvmptd4 6996	. . . . . . 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 4511	. . . . . 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 5192	. . . . 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 2800	. . . 4 ⊢ (𝜑 → (𝐺‘(𝐸‘𝐾)) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))))
411	380, 410	oveq12d 7410	. . 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 7425	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
413	26, 412	rabex2 5296	. . . . 5 ⊢ 𝐷 ∈ V
414	413	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
415		nfv 1933	. . . . 5 ⊢ Ⅎ𝑓𝜑
416		fvexd 6878	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))) ∈ V)
417	14, 416	ifexd 4528	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))) ∈ V)
418		eqid 2761	. . . . 5 ⊢ (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) = (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌})))))
419	415, 417, 418	fnmptd 6658	. . . 4 ⊢ (𝜑 → (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, (0_g‘𝑅), ((𝐺‘(𝐸‘(𝐾 − 1)))‘(𝑓 ∘_f − ((𝟭‘𝐼)‘{𝑌}))))) Fn 𝐷)
420	15, 14	ifcld 4526	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐷) → if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)) ∈ (Base‘𝑅))
421		eqid 2761	. . . . 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 6658	. . . 4 ⊢ (𝜑 → (𝑓 ∈ 𝐷 ↦ if((𝑓‘𝑌) = 0, if((ran (𝑓 ↾ 𝐽) ⊆ {0, 1} ∧ (♯‘((𝑓 ↾ 𝐽) supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) Fn 𝐷)
423		ofmpteq 7679	. . . 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 1389	. . 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 2800	. 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 33830	. 2 ⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘𝐾) = (𝑓 ∈ 𝐷 ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 𝐾), (1_r‘𝑅), (0_g‘𝑅))))
427	364, 425, 426	3eqtr4rd 2807	1 ⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘𝐾) = (((𝑉‘𝑌) · (𝐺‘(𝐸‘(𝐾 − 1)))) + (𝐺‘(𝐸‘𝐾))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 399 ∧ w3a 1097 = wceq 1559 ∈ wcel 2141 ≠ wne 2956 ∀wral 3075 {crab 3413 Vcvv 3453 ∖ cdif 3901 ∪ cun 3902 ∩ cin 3903 ⊆ wss 3904 ∅c0 4285 ifcif 4479 {csn 4581 {cpr 4583 ⟨cop 4587 class class class wbr 5099 ↦ cmpt 5180 dom cdm 5645 ran crn 5646 ↾ cres 5647 Rel wrel 5650 Fun wfun 6511 Fn wfn 6512 ⟶wf 6513 ‘cfv 6517 (class class class)co 7392 ∘_f cof 7654 ∘_r cofr 7655 supp csupp 8135 ↑_m cmap 8803 Fincfn 8923 finSupp cfsupp 9304 ℂcc 11068 0cc0 11070 1c1 11071 + caddc 11073 ≤ cle 11214 − cmin 11411 𝟭cind 12192 ℕcn 12207 ℕ₀cn0 12478 ...cfz 13509 ♯chash 14340 Basecbs 17228 +_gcplusg 17269 ._rcmulr 17270 0_gc0g 17451 Grpcgrp 18958 1_rcur 20210 Ringcrg 20262 mVar cmvr 21937 mPoly cmpl 21938 extendVarscextv 33787 eSymPolycesply 33814

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5226 ax-sep 5245 ax-nul 5255 ax-pow 5321 ax-pr 5389 ax-un 7714 ax-cnex 11126 ax-resscn 11127 ax-1cn 11128 ax-icn 11129 ax-addcl 11130 ax-addrcl 11131 ax-mulcl 11132 ax-mulrcl 11133 ax-mulcom 11134 ax-addass 11135 ax-mulass 11136 ax-distr 11137 ax-i2m1 11138 ax-1ne0 11139 ax-1rid 11140 ax-rnegex 11141 ax-rrecex 11142 ax-cnre 11143 ax-pre-lttri 11144 ax-pre-lttrn 11145 ax-pre-ltadd 11146 ax-pre-mulgt0 11147 ax-addf 11149 ax-mulf 11150

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4582 df-pr 4584 df-tp 4586 df-op 4588 df-uni 4865 df-int 4905 df-iun 4950 df-iin 4951 df-br 5100 df-opab 5162 df-mpt 5181 df-tr 5207 df-id 5540 df-eprel 5545 df-po 5553 df-so 5554 df-fr 5598 df-se 5599 df-we 5600 df-xp 5651 df-rel 5652 df-cnv 5653 df-co 5654 df-dm 5655 df-rn 5656 df-res 5657 df-ima 5658 df-pred 6284 df-ord 6345 df-on 6346 df-lim 6347 df-suc 6348 df-iota 6473 df-fun 6519 df-fn 6520 df-f 6521 df-f1 6522 df-fo 6523 df-f1o 6524 df-fv 6525 df-isom 6526 df-riota 7349 df-ov 7395 df-oprab 7396 df-mpo 7397 df-of 7656 df-ofr 7657 df-om 7843 df-1st 7966 df-2nd 7967 df-supp 8136 df-frecs 8257 df-wrecs 8288 df-recs 8337 df-rdg 8376 df-1o 8432 df-2o 8433 df-oadd 8436 df-er 8673 df-map 8805 df-pm 8806 df-ixp 8876 df-en 8924 df-dom 8925 df-sdom 8926 df-fin 8927 df-fsupp 9305 df-sup 9385 df-oi 9455 df-dju 9856 df-card 9894 df-pnf 11215 df-mnf 11216 df-xr 11217 df-ltxr 11218 df-le 11219 df-sub 11413 df-neg 11414 df-div 11842 df-ind 12193 df-nn 12208 df-2 12277 df-3 12278 df-4 12279 df-5 12280 df-6 12281 df-7 12282 df-8 12283 df-9 12284 df-n0 12479 df-xnn0 12552 df-z 12566 df-dec 12686 df-uz 12837 df-rp 12991 df-fz 13510 df-fzo 13657 df-seq 14012 df-fac 14284 df-bc 14313 df-hash 14341 df-struct 17166 df-sets 17183 df-slot 17201 df-ndx 17213 df-base 17229 df-ress 17250 df-plusg 17282 df-mulr 17283 df-starv 17284 df-sca 17285 df-vsca 17286 df-ip 17287 df-tset 17288 df-ple 17289 df-ds 17291 df-unif 17292 df-hom 17293 df-cco 17294 df-0g 17453 df-gsum 17454 df-prds 17459 df-pws 17461 df-mre 17597 df-mrc 17598 df-acs 17600 df-mgm 18657 df-sgrp 18736 df-mnd 18752 df-mhm 18800 df-submnd 18801 df-grp 18961 df-minusg 18962 df-mulg 19093 df-subg 19148 df-ghm 19237 df-cntz 19340 df-cmn 19805 df-abl 19806 df-mgp 20170 df-rng 20182 df-ur 20211 df-ring 20264 df-cring 20265 df-rhm 20500 df-subrng 20575 df-subrg 20599 df-cnfld 21405 df-zring 21479 df-zrh 21535 df-psr 21941 df-mvr 21942 df-mpl 21943 df-extv 33788 df-esply 33816

This theorem is referenced by: esplyindfv 33834

W3C validator