extvfvcl - Mathbox for Thierry Arnoux

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

Theorem extvfvcl 33794

Description: Closure for the "variable extension" function evaluated for converting a given polynomial 𝐹 by adding a variable with index 𝐴. (Contributed by Thierry Arnoux, 25-Jan-2026.)

**Hypotheses**
Ref	Expression
extvfvvcl.d	⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
extvfvvcl.3	⊢ 0 = (0_g‘𝑅)
extvfvvcl.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
extvfvvcl.r	⊢ (𝜑 → 𝑅 ∈ Ring)
extvfvvcl.b	⊢ 𝐵 = (Base‘𝑅)
extvfvvcl.j	⊢ 𝐽 = (𝐼 ∖ {𝐴})
extvfvvcl.m	⊢ 𝑀 = (Base‘(𝐽 mPoly 𝑅))
extvfvvcl.1	⊢ (𝜑 → 𝐴 ∈ 𝐼)
extvfvvcl.f	⊢ (𝜑 → 𝐹 ∈ 𝑀)
extvfvcl.n	⊢ 𝑁 = (Base‘(𝐼 mPoly 𝑅))

**Assertion**
Ref	Expression
extvfvcl	⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ 𝑁)

Distinct variable groups: 𝐴,ℎ ℎ,𝐼 ℎ,𝐽 Allowed substitution hints: 𝜑(ℎ) 𝐵(ℎ) 𝐷(ℎ) 𝑅(ℎ) 𝐹(ℎ) 𝑀(ℎ) 𝑁(ℎ) 𝑉(ℎ) 0 (ℎ)

Proof of Theorem extvfvcl Dummy variables 𝑥 𝑦 𝑢 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		extvfvvcl.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
2	1	fvexi 6877	. . . . 5 ⊢ 𝐵 ∈ V
3	2	a1i 11	. . . 4 ⊢ (𝜑 → 𝐵 ∈ V)
4		extvfvvcl.d	. . . . . 6 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
5		ovex 7425	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
6	4, 5	rabex2 5296	. . . . 5 ⊢ 𝐷 ∈ V
7	6	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
8		fvexd 6878	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝐹‘(𝑥 ↾ 𝐽)) ∈ V)
9		extvfvvcl.3	. . . . . . . 8 ⊢ 0 = (0_g‘𝑅)
10	9	fvexi 6877	. . . . . . 7 ⊢ 0 ∈ V
11	10	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 0 ∈ V)
12	8, 11	ifcld 4526	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 ) ∈ V)
13		extvfvvcl.i	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
14		extvfvvcl.r	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ Ring)
15		extvfvvcl.1	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ 𝐼)
16		extvfvvcl.j	. . . . . 6 ⊢ 𝐽 = (𝐼 ∖ {𝐴})
17		extvfvvcl.m	. . . . . 6 ⊢ 𝑀 = (Base‘(𝐽 mPoly 𝑅))
18		extvfvvcl.f	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ 𝑀)
19	4, 9, 13, 14, 15, 16, 17, 18	extvfv 33791	. . . . 5 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) = (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )))
20	13	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐼 ∈ 𝑉)
21	14	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑅 ∈ Ring)
22	15	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐴 ∈ 𝐼)
23	18	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐹 ∈ 𝑀)
24		simpr 488	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑥 ∈ 𝐷)
25	4, 9, 20, 21, 1, 16, 17, 22, 23, 24	extvfvvcl 33793	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ((((𝐼extendVars𝑅)‘𝐴)‘𝐹)‘𝑥) ∈ 𝐵)
26	12, 19, 25	fmpt2d 7102	. . . 4 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹):𝐷⟶𝐵)
27	3, 7, 26	elmapdd 8818	. . 3 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (𝐵 ↑_m 𝐷))
28		eqid 2761	. . . 4 ⊢ (𝐼 mPwSer 𝑅) = (𝐼 mPwSer 𝑅)
29	4	psrbasfsupp 33769	. . . 4 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
30		eqid 2761	. . . 4 ⊢ (Base‘(𝐼 mPwSer 𝑅)) = (Base‘(𝐼 mPwSer 𝑅))
31	28, 1, 29, 30, 13	psrbas 21966	. . 3 ⊢ (𝜑 → (Base‘(𝐼 mPwSer 𝑅)) = (𝐵 ↑_m 𝐷))
32	27, 31	eleqtrrd 2864	. 2 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (Base‘(𝐼 mPwSer 𝑅)))
33	7	mptexd 7204	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) ∈ V)
34	10	a1i 11	. . . 4 ⊢ (𝜑 → 0 ∈ V)
35	12	fmpttd 7092	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )):𝐷⟶V)
36	35	ffund 6692	. . . 4 ⊢ (𝜑 → Fun (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )))
37		fveq1 6862	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → (𝑦‘𝐴) = (𝑥‘𝐴))
38	37	eqeq1d 2763	. . . . . . . . 9 ⊢ (𝑦 = 𝑥 → ((𝑦‘𝐴) = 0 ↔ (𝑥‘𝐴) = 0))
39	38	cbvrabv 3423	. . . . . . . 8 ⊢ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} = {𝑥 ∈ 𝐷 ∣ (𝑥‘𝐴) = 0}
40	39	partfun2 32828	. . . . . . 7 ⊢ (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ))
41	40	oveq1i 7402	. . . . . 6 ⊢ ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )) supp 0 )
42	39, 7	rabexd 5295	. . . . . . . 8 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ∈ V)
43	42	mptexd 7204	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∈ V)
44	7	difexd 5286	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∈ V)
45	44	mptexd 7204	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) ∈ V)
46	43, 45, 34	suppun2 32836	. . . . . 6 ⊢ (𝜑 → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )))
47	41, 46	eqtrid 2808	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )))
48		eqid 2761	. . . . . . . . . 10 ⊢ (𝐽 mPoly 𝑅) = (𝐽 mPoly 𝑅)
49		eqid 2761	. . . . . . . . . . 11 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}
50	49	psrbasfsupp 33769	. . . . . . . . . 10 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡ℎ “ ℕ) ∈ Fin}
51	48, 1, 17, 50, 18	mplelf 22029	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:{ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}⟶𝐵)
52		breq1 5102	. . . . . . . . . 10 ⊢ (ℎ = (𝑥 ↾ 𝐽) → (ℎ finSupp 0 ↔ (𝑥 ↾ 𝐽) finSupp 0))
53		nn0ex 12484	. . . . . . . . . . . 12 ⊢ ℕ₀ ∈ V
54	53	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → ℕ₀ ∈ V)
55	13	difexd 5286	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐼 ∖ {𝐴}) ∈ V)
56	16, 55	eqeltrid 2865	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ∈ V)
57	56	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝐽 ∈ V)
58	13	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝐼 ∈ 𝑉)
59		ssrab2 4033	. . . . . . . . . . . . . . 15 ⊢ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ 𝐷
60		ssrab2 4033	. . . . . . . . . . . . . . . . 17 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} ⊆ (ℕ₀ ↑_m 𝐼)
61	60	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} ⊆ (ℕ₀ ↑_m 𝐼))
62	4, 61	eqsstrid 3974	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
63	59, 62	sstrid 3947	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ (ℕ₀ ↑_m 𝐼))
64	63	sselda 3936	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 ∈ (ℕ₀ ↑_m 𝐼))
65	58, 54, 64	elmaprd 32832	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥:𝐼⟶ℕ₀)
66		difssd 4090	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐼 ∖ {𝐴}) ⊆ 𝐼)
67	16, 66	eqsstrid 3974	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
68	67	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝐽 ⊆ 𝐼)
69	65, 68	fssresd 6727	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽):𝐽⟶ℕ₀)
70	54, 57, 69	elmapdd 8818	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
71	59	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ 𝐷)
72	71	sselda 3936	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 ∈ 𝐷)
73	29	psrbagfsupp 21951	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐷 → 𝑥 finSupp 0)
74	72, 73	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 finSupp 0)
75		c0ex 11170	. . . . . . . . . . . 12 ⊢ 0 ∈ V
76	75	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 0 ∈ V)
77	74, 76	fsuppres 9336	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) finSupp 0)
78	52, 70, 77	elrabd 3652	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
79	51, 78	cofmpt 7110	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))))
80	79	oveq1d 7407	. . . . . . 7 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ))
81	42	mptexd 7204	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∈ V)
82		suppco 8181	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝑀 ∧ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∈ V) → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )))
83	18, 81, 82	syl2anc 593	. . . . . . . 8 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )))
84	70	fmpttd 7092	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽))
85		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣))
86		eqid 2761	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))
87		reseq1 5957	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑢 → (𝑥 ↾ 𝐽) = (𝑢 ↾ 𝐽))
88		simpllr 785	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})
89	88	resexd 6012	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) ∈ V)
90	86, 87, 88, 89	fvmptd3 6995	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = (𝑢 ↾ 𝐽))
91		reseq1 5957	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑣 → (𝑥 ↾ 𝐽) = (𝑣 ↾ 𝐽))
92		simplr 778	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})
93	92	resexd 6012	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣 ↾ 𝐽) ∈ V)
94	86, 91, 92, 93	fvmptd3 6995	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) = (𝑣 ↾ 𝐽))
95	85, 90, 94	3eqtr3d 2804	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) = (𝑣 ↾ 𝐽))
96	16	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐽 = (𝐼 ∖ {𝐴}))
97	96	reseq2d 5963	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) = (𝑢 ↾ (𝐼 ∖ {𝐴})))
98	96	reseq2d 5963	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣 ↾ 𝐽) = (𝑣 ↾ (𝐼 ∖ {𝐴})))
99	95, 97, 98	3eqtr3d 2804	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ (𝐼 ∖ {𝐴})) = (𝑣 ↾ (𝐼 ∖ {𝐴})))
100		fveq1 6862	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑢 → (𝑦‘𝐴) = (𝑢‘𝐴))
101	100	eqeq1d 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑢 → ((𝑦‘𝐴) = 0 ↔ (𝑢‘𝐴) = 0))
102	101, 88	elrabrd 32646	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢‘𝐴) = 0)
103		fveq1 6862	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑣 → (𝑦‘𝐴) = (𝑣‘𝐴))
104	103	eqeq1d 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑣 → ((𝑦‘𝐴) = 0 ↔ (𝑣‘𝐴) = 0))
105	104, 92	elrabrd 32646	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣‘𝐴) = 0)
106	102, 105	eqtr4d 2799	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢‘𝐴) = (𝑣‘𝐴))
107	106	opeq2d 4837	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ⟨𝐴, (𝑢‘𝐴)⟩ = ⟨𝐴, (𝑣‘𝐴)⟩)
108	107	sneqd 4593	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → {⟨𝐴, (𝑢‘𝐴)⟩} = {⟨𝐴, (𝑣‘𝐴)⟩})
109	99, 108	uneq12d 4122	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}) = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
110	13	ad3antrrr 740	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐼 ∈ 𝑉)
111	53	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ℕ₀ ∈ V)
112	62	ad3antrrr 740	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
113	59, 88	sselid 3934	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ 𝐷)
114	112, 113	sseldd 3937	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ (ℕ₀ ↑_m 𝐼))
115	110, 111, 114	elmaprd 32832	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢:𝐼⟶ℕ₀)
116	115	ffnd 6688	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 Fn 𝐼)
117	15	ad3antrrr 740	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐴 ∈ 𝐼)
118		fnsnsplit 7164	. . . . . . . . . . . . . . . 16 ⊢ ((𝑢 Fn 𝐼 ∧ 𝐴 ∈ 𝐼) → 𝑢 = ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}))
119	116, 117, 118	syl2anc 593	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 = ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}))
120	59, 92	sselid 3934	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ 𝐷)
121	112, 120	sseldd 3937	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ (ℕ₀ ↑_m 𝐼))
122	110, 111, 121	elmaprd 32832	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣:𝐼⟶ℕ₀)
123	122	ffnd 6688	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 Fn 𝐼)
124		fnsnsplit 7164	. . . . . . . . . . . . . . . 16 ⊢ ((𝑣 Fn 𝐼 ∧ 𝐴 ∈ 𝐼) → 𝑣 = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
125	123, 117, 124	syl2anc 593	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
126	109, 119, 125	3eqtr4d 2806	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 = 𝑣)
127	126	ex 416	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
128	127	anasss 470	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})) → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
129	128	ralrimivva 3204	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}∀𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
130		dff13 7234	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}–1-1→(ℕ₀ ↑_m 𝐽) ↔ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽) ∧ ∀𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}∀𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣)))
131	84, 129, 130	sylanbrc 592	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}–1-1→(ℕ₀ ↑_m 𝐽))
132		df-f1 6522	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}–1-1→(ℕ₀ ↑_m 𝐽) ↔ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽) ∧ Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))))
133	132	simprbi 501	. . . . . . . . . 10 ⊢ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}–1-1→(ℕ₀ ↑_m 𝐽) → Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)))
134	131, 133	syl 17	. . . . . . . . 9 ⊢ (𝜑 → Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)))
135	48, 17, 9, 18	mplelsfi 22026	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 finSupp 0 )
136	135	fsuppimpd 9312	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
137		imafi 9255	. . . . . . . . 9 ⊢ ((Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∧ (𝐹 supp 0 ) ∈ Fin) → (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )) ∈ Fin)
138	134, 136, 137	syl2anc 593	. . . . . . . 8 ⊢ (𝜑 → (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )) ∈ Fin)
139	83, 138	eqeltrd 2861	. . . . . . 7 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) ∈ Fin)
140	80, 139	eqeltrrd 2862	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∈ Fin)
141		fconstmpt 5707	. . . . . . . . . 10 ⊢ ((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) = (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )
142	141	oveq1i 7402	. . . . . . . . 9 ⊢ (((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) supp 0 ) = ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )
143		fczsupp0 8168	. . . . . . . . 9 ⊢ (((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) supp 0 ) = ∅
144	142, 143	eqtr3i 2786	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) = ∅
145		0fi 9019	. . . . . . . 8 ⊢ ∅ ∈ Fin
146	144, 145	eqeltri 2857	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) ∈ Fin
147	146	a1i 11	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) ∈ Fin)
148	140, 147	unfid 9136	. . . . 5 ⊢ (𝜑 → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )) ∈ Fin)
149	47, 148	eqeltrd 2861	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) ∈ Fin)
150	33, 34, 36, 149	isfsuppd 9309	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) finSupp 0 )
151	19, 150	eqbrtrd 5121	. 2 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) finSupp 0 )
152		eqid 2761	. . 3 ⊢ (𝐼 mPoly 𝑅) = (𝐼 mPoly 𝑅)
153		extvfvcl.n	. . 3 ⊢ 𝑁 = (Base‘(𝐼 mPoly 𝑅))
154	152, 28, 30, 9, 153	mplelbas 22022	. 2 ⊢ ((((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ 𝑁 ↔ ((((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ (((𝐼extendVars𝑅)‘𝐴)‘𝐹) finSupp 0 ))
155	32, 151, 154	sylanbrc 592	1 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ 𝑁)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 399 = wceq 1559 ∈ wcel 2141 ∀wral 3075 {crab 3413 Vcvv 3453 ∖ cdif 3901 ∪ cun 3902 ⊆ wss 3904 ∅c0 4285 ifcif 4479 {csn 4581 ⟨cop 4587 class class class wbr 5099 ↦ cmpt 5180 × cxp 5643 ^◡ccnv 5644 ↾ cres 5647 “ cima 5648 ∘ ccom 5649 Fun wfun 6511 Fn wfn 6512 ⟶wf 6513 –1-1→wf1 6514 ‘cfv 6517 (class class class)co 7392 supp csupp 8135 ↑_m cmap 8803 Fincfn 8923 finSupp cfsupp 9304 0cc0 11070 ℕ₀cn0 12478 Basecbs 17228 0_gc0g 17451 Ringcrg 20262 mPwSer cmps 21936 mPoly cmpl 21938 extendVarscextv 33787

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

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-iun 4950 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-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-riota 7349 df-ov 7395 df-oprab 7396 df-mpo 7397 df-of 7656 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-er 8673 df-map 8805 df-en 8924 df-dom 8925 df-sdom 8926 df-fin 8927 df-fsupp 9305 df-pnf 11215 df-mnf 11216 df-xr 11217 df-ltxr 11218 df-le 11219 df-sub 11413 df-neg 11414 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-z 12566 df-uz 12837 df-fz 13510 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-sca 17285 df-vsca 17286 df-tset 17288 df-0g 17453 df-mgm 18657 df-sgrp 18736 df-mnd 18752 df-grp 18961 df-ring 20264 df-psr 21941 df-mpl 21943 df-extv 33788

This theorem is referenced by: extvfvalf 33795 evlextv 33800 esplyindfv 33834

W3C validator