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 34251

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 6925	. . . . 5 ⊢ 𝐵 ∈ V
3	2	a1i 11	. . . 4 ⊢ (𝜑 → 𝐵 ∈ V)
4		extvfvvcl.d	. . . . . 6 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
5		ovex 7479	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
6	4, 5	rabex2 5307	. . . . 5 ⊢ 𝐷 ∈ V
7	6	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
8		fvexd 6926	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝐹‘(𝑥 ↾ 𝐽)) ∈ V)
9		extvfvvcl.3	. . . . . . . 8 ⊢ 0 = (0_g‘𝑅)
10	9	fvexi 6925	. . . . . . 7 ⊢ 0 ∈ V
11	10	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 0 ∈ V)
12	8, 11	ifcld 4532	. . . . 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 34248	. . . . 5 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) = (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )))
20	13	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐼 ∈ 𝑉)
21	14	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑅 ∈ Ring)
22	15	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐴 ∈ 𝐼)
23	18	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐹 ∈ 𝑀)
24		simpr 490	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑥 ∈ 𝐷)
25	4, 9, 20, 21, 1, 16, 17, 22, 23, 24	extvfvvcl 34250	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ((((𝐼extendVars𝑅)‘𝐴)‘𝐹)‘𝑥) ∈ 𝐵)
26	12, 19, 25	fmpt2d 7152	. . . 4 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹):𝐷⟶𝐵)
27	3, 7, 26	elmapdd 8892	. . 3 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (𝐵 ↑_m 𝐷))
28		eqid 2763	. . . 4 ⊢ (𝐼 mPwSer 𝑅) = (𝐼 mPwSer 𝑅)
29	4	psrbasfsupp 34226	. . . 4 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
30		eqid 2763	. . . 4 ⊢ (Base‘(𝐼 mPwSer 𝑅)) = (Base‘(𝐼 mPwSer 𝑅))
31	28, 1, 29, 30, 13	psrbas 22275	. . 3 ⊢ (𝜑 → (Base‘(𝐼 mPwSer 𝑅)) = (𝐵 ↑_m 𝐷))
32	27, 31	eleqtrrd 2867	. 2 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (Base‘(𝐼 mPwSer 𝑅)))
33	7	mptexd 7256	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) ∈ V)
34	10	a1i 11	. . . 4 ⊢ (𝜑 → 0 ∈ V)
35	12	fmpttd 7142	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )):𝐷⟶V)
36	35	ffund 6739	. . . 4 ⊢ (𝜑 → Fun (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )))
37		fveq1 6910	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → (𝑦‘𝐴) = (𝑥‘𝐴))
38	37	eqeq1d 2765	. . . . . . . . 9 ⊢ (𝑦 = 𝑥 → ((𝑦‘𝐴) = 0 ↔ (𝑥‘𝐴) = 0))
39	38	cbvrabv 3426	. . . . . . . 8 ⊢ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} = {𝑥 ∈ 𝐷 ∣ (𝑥‘𝐴) = 0}
40	39	partfun2 33344	. . . . . . 7 ⊢ (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ))
41	40	oveq1i 7456	. . . . . 6 ⊢ ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )) supp 0 )
42	39, 7	rabexd 5306	. . . . . . . 8 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ∈ V)
43	42	mptexd 7256	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∈ V)
44	7	difexd 5298	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∈ V)
45	44	mptexd 7256	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) ∈ V)
46	43, 45, 34	suppun2 33351	. . . . . 6 ⊢ (𝜑 → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )))
47	41, 46	eqtrid 2810	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )))
48		eqid 2763	. . . . . . . . . 10 ⊢ (𝐽 mPoly 𝑅) = (𝐽 mPoly 𝑅)
49		eqid 2763	. . . . . . . . . . 11 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}
50	49	psrbasfsupp 34226	. . . . . . . . . 10 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡ℎ “ ℕ) ∈ Fin}
51	48, 1, 17, 50, 18	mplelf 22338	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:{ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}⟶𝐵)
52		breq1 5109	. . . . . . . . . 10 ⊢ (ℎ = (𝑥 ↾ 𝐽) → (ℎ finSupp 0 ↔ (𝑥 ↾ 𝐽) finSupp 0))
53		ssrab2 4008	. . . . . . . . . . . . 13 ⊢ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ 𝐷
54		ssrab2 4008	. . . . . . . . . . . . . . 15 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} ⊆ (ℕ₀ ↑_m 𝐼)
55	54	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} ⊆ (ℕ₀ ↑_m 𝐼))
56	4, 55	eqsstrid 3951	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
57	53, 56	sstrid 3924	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ (ℕ₀ ↑_m 𝐼))
58	57	sselda 3913	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 ∈ (ℕ₀ ↑_m 𝐼))
59		difssd 4076	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐼 ∖ {𝐴}) ⊆ 𝐼)
60	16, 59	eqsstrid 3951	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
61	60	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝐽 ⊆ 𝐼)
62	58, 61	elmapssresd 8926	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
63	53	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ 𝐷)
64	63	sselda 3913	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 ∈ 𝐷)
65	29	psrbagfsupp 22260	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐷 → 𝑥 finSupp 0)
66	64, 65	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 finSupp 0)
67		c0ex 11330	. . . . . . . . . . . 12 ⊢ 0 ∈ V
68	67	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 0 ∈ V)
69	66, 68	fsuppres 9415	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) finSupp 0)
70	52, 62, 69	elrabd 3650	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
71	51, 70	cofmpt 7160	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))))
72	71	oveq1d 7461	. . . . . . 7 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ))
73	42	mptexd 7256	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∈ V)
74		suppco 8254	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝑀 ∧ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∈ V) → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )))
75	18, 73, 74	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )))
76	62	fmpttd 7142	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽))
77		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣))
78		eqid 2763	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))
79		reseq1 5976	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑢 → (𝑥 ↾ 𝐽) = (𝑢 ↾ 𝐽))
80		simpllr 788	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})
81	80	resexd 6030	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) ∈ V)
82	78, 79, 80, 81	fvmptd3 7043	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = (𝑢 ↾ 𝐽))
83		reseq1 5976	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑣 → (𝑥 ↾ 𝐽) = (𝑣 ↾ 𝐽))
84		simplr 781	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})
85	84	resexd 6030	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣 ↾ 𝐽) ∈ V)
86	78, 83, 84, 85	fvmptd3 7043	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) = (𝑣 ↾ 𝐽))
87	77, 82, 86	3eqtr3d 2806	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) = (𝑣 ↾ 𝐽))
88	16	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐽 = (𝐼 ∖ {𝐴}))
89	88	reseq2d 5982	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) = (𝑢 ↾ (𝐼 ∖ {𝐴})))
90	88	reseq2d 5982	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣 ↾ 𝐽) = (𝑣 ↾ (𝐼 ∖ {𝐴})))
91	87, 89, 90	3eqtr3d 2806	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ (𝐼 ∖ {𝐴})) = (𝑣 ↾ (𝐼 ∖ {𝐴})))
92		fveq1 6910	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑢 → (𝑦‘𝐴) = (𝑢‘𝐴))
93	92	eqeq1d 2765	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑢 → ((𝑦‘𝐴) = 0 ↔ (𝑢‘𝐴) = 0))
94	93, 80	elrabrd 3651	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢‘𝐴) = 0)
95		fveq1 6910	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑣 → (𝑦‘𝐴) = (𝑣‘𝐴))
96	95	eqeq1d 2765	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑣 → ((𝑦‘𝐴) = 0 ↔ (𝑣‘𝐴) = 0))
97	96, 84	elrabrd 3651	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣‘𝐴) = 0)
98	94, 97	eqtr4d 2801	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢‘𝐴) = (𝑣‘𝐴))
99	98	opeq2d 4850	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ⟨𝐴, (𝑢‘𝐴)⟩ = ⟨𝐴, (𝑣‘𝐴)⟩)
100	99	sneqd 4596	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → {⟨𝐴, (𝑢‘𝐴)⟩} = {⟨𝐴, (𝑣‘𝐴)⟩})
101	91, 100	uneq12d 4171	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}) = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
102	56	ad3antrrr 743	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
103	53, 80	sselid 3911	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ 𝐷)
104	102, 103	sseldd 3914	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ (ℕ₀ ↑_m 𝐼))
105	104	elmaprd 8901	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢:𝐼⟶ℕ₀)
106	105	ffnd 6735	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 Fn 𝐼)
107	15	ad3antrrr 743	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐴 ∈ 𝐼)
108		fnsnsplit 7215	. . . . . . . . . . . . . . . 16 ⊢ ((𝑢 Fn 𝐼 ∧ 𝐴 ∈ 𝐼) → 𝑢 = ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}))
109	106, 107, 108	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 = ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}))
110	53, 84	sselid 3911	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ 𝐷)
111	102, 110	sseldd 3914	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ (ℕ₀ ↑_m 𝐼))
112	111	elmaprd 8901	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣:𝐼⟶ℕ₀)
113	112	ffnd 6735	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 Fn 𝐼)
114		fnsnsplit 7215	. . . . . . . . . . . . . . . 16 ⊢ ((𝑣 Fn 𝐼 ∧ 𝐴 ∈ 𝐼) → 𝑣 = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
115	113, 107, 114	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
116	101, 109, 115	3eqtr4d 2808	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 = 𝑣)
117	116	ex 418	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
118	117	anasss 472	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})) → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
119	118	ralrimivva 3209	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}∀𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
120		dff13 7284	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶1-1(ℕ₀ ↑_m 𝐽) ↔ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽) ∧ ∀𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}∀𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣)))
121	76, 119, 120	sylanbrc 595	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶1-1(ℕ₀ ↑_m 𝐽))
122		df-f1 6566	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶1-1(ℕ₀ ↑_m 𝐽) ↔ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽) ∧ Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))))
123	122	simprbi 503	. . . . . . . . . 10 ⊢ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶1-1(ℕ₀ ↑_m 𝐽) → Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)))
124	121, 123	syl 18	. . . . . . . . 9 ⊢ (𝜑 → Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)))
125	48, 17, 9, 18	mplelsfi 22335	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 finSupp 0 )
126	125	fsuppimpd 9392	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
127		imafi 9338	. . . . . . . . 9 ⊢ ((Fun ^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∧ (𝐹 supp 0 ) ∈ Fin) → (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )) ∈ Fin)
128	124, 126, 127	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → (^◡(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) “ (𝐹 supp 0 )) ∈ Fin)
129	75, 128	eqeltrd 2864	. . . . . . 7 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) ∈ Fin)
130	72, 129	eqeltrrd 2865	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∈ Fin)
131		fconstmpt 5718	. . . . . . . . . 10 ⊢ ((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) = (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )
132	131	oveq1i 7456	. . . . . . . . 9 ⊢ (((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) supp 0 ) = ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )
133		fczsupp0 8241	. . . . . . . . 9 ⊢ (((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) supp 0 ) = ∅
134	132, 133	eqtr3i 2788	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) = ∅
135		0fi 9101	. . . . . . . 8 ⊢ ∅ ∈ Fin
136	134, 135	eqeltri 2860	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) ∈ Fin
137	136	a1i 11	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) ∈ Fin)
138	130, 137	unfid 9218	. . . . 5 ⊢ (𝜑 → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )) ∈ Fin)
139	47, 138	eqeltrd 2864	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) ∈ Fin)
140	33, 34, 36, 139	isfsuppd 9389	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) finSupp 0 )
141	19, 140	eqbrtrd 5131	. 2 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) finSupp 0 )
142		eqid 2763	. . 3 ⊢ (𝐼 mPoly 𝑅) = (𝐼 mPoly 𝑅)
143		extvfvcl.n	. . 3 ⊢ 𝑁 = (Base‘(𝐼 mPoly 𝑅))
144	142, 28, 30, 9, 143	mplelbas 22331	. 2 ⊢ ((((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ 𝑁 ↔ ((((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ (((𝐼extendVars𝑅)‘𝐴)‘𝐹) finSupp 0 ))
145	32, 141, 144	sylanbrc 595	1 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ 𝑁)

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2147 ∀wral 3080 {crab 3416 Vcvv 3454 ⊆ wss 3900 ∖ cdif 4048 ∪ cun 4152 ∅c0 4281 ifcif 4485 {csn 4588 ⟨cop 4838 class class class wbr 5106 ↦ cmpt 5190 × cxp 5654 ^◡ccnv 5655 ↾ cres 5658 “ cima 5659 ∘ ccom 5660 Fun wfun 6555 Fn wfn 6556 ⟶wf 6557 ⟶1-1wf1 6558 ‘cfv 6561 (class class class)co 7446 supp csupp 8207 ↑_m cmap 8878 Fincfn 9004 finSupp cfsupp 9384 0cc0 11230 ℕ₀cn0 12636 Basecbs 17419 0_gc0g 17642 Ringcrg 20492 mPwSer cmps 22245 mPoly cmpl 22247 extendVarscextv 34244

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-11 2197 ax-12 2216 ax-ext 2735 ax-rep 5236 ax-sep 5253 ax-nul 5264 ax-pow 5332 ax-pr 5396 ax-un 7778 ax-cnex 11286 ax-resscn 11287 ax-1cn 11288 ax-icn 11289 ax-addcl 11290 ax-addrcl 11291 ax-mulcl 11292 ax-mulrcl 11293 ax-mulcom 11294 ax-addass 11295 ax-mulass 11296 ax-distr 11297 ax-i2m1 11298 ax-1ne0 11299 ax-1rid 11300 ax-rnegex 11301 ax-rrecex 11302 ax-cnre 11303 ax-pre-lttri 11304 ax-pre-lttrn 11305 ax-pre-ltadd 11306 ax-pre-mulgt0 11307

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-tp 4593 df-op 4839 df-uni 4871 df-iun 4956 df-br 5107 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5551 df-eprel 5556 df-po 5564 df-so 5565 df-fr 5609 df-we 5611 df-xp 5662 df-rel 5663 df-cnv 5664 df-co 5665 df-dm 5666 df-rn 5667 df-res 5668 df-ima 5669 df-pred 6325 df-ord 6386 df-on 6387 df-lim 6388 df-suc 6389 df-iota 6515 df-fun 6563 df-fn 6564 df-f 6565 df-f1 6566 df-fo 6567 df-f1o 6568 df-fv 6569 df-riota 7403 df-ov 7449 df-oprab 7450 df-mpo 7451 df-of 7720 df-om 7905 df-1st 8028 df-2nd 8029 df-supp 8208 df-frecs 8330 df-wrecs 8361 df-recs 8410 df-rdg 8449 df-1o 8507 df-er 8748 df-map 8880 df-en 9005 df-dom 9006 df-sdom 9007 df-fin 9008 df-fsupp 9385 df-pnf 11375 df-mnf 11376 df-xr 11377 df-ltxr 11378 df-le 11379 df-sub 11573 df-neg 11574 df-nn 12366 df-2 12435 df-3 12436 df-4 12437 df-5 12438 df-6 12439 df-7 12440 df-8 12441 df-9 12442 df-n0 12637 df-z 12724 df-uz 12996 df-fz 13670 df-struct 17357 df-sets 17374 df-slot 17392 df-ndx 17404 df-base 17420 df-ress 17441 df-plusg 17473 df-mulr 17474 df-sca 17476 df-vsca 17477 df-tset 17479 df-0g 17644 df-mgm 18848 df-sgrp 18940 df-mnd 18956 df-grp 19179 df-ring 20494 df-psr 22250 df-mpl 22252 df-extv 34245

This theorem is used by: extvfvalf 34252 evlextv 34257 esplyindfv 34291

W3C validator