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 34214

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 6899	. . . . 5 ⊢ 𝐵 ∈ V
3	2	a1i 11	. . . 4 ⊢ (𝜑 → 𝐵 ∈ V)
4		extvfvvcl.d	. . . . . 6 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
5		ovex 7453	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
6	4, 5	rabex2 5301	. . . . 5 ⊢ 𝐷 ∈ V
7	6	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
8		fvexd 6900	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝐹‘(𝑥 ↾ 𝐽)) ∈ V)
9		extvfvvcl.3	. . . . . . . 8 ⊢ 0 = (0_g‘𝑅)
10	9	fvexi 6899	. . . . . . 7 ⊢ 0 ∈ V
11	10	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 0 ∈ V)
12	8, 11	ifcld 4528	. . . . 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 34211	. . . . 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 34213	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ((((𝐼extendVars𝑅)‘𝐴)‘𝐹)‘𝑥) ∈ 𝐵)
26	12, 19, 25	fmpt2d 7125	. . . 4 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹):𝐷⟶𝐵)
27	3, 7, 26	elmapdd 8864	. . 3 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (𝐵 ↑_m 𝐷))
28		eqid 2760	. . . 4 ⊢ (𝐼 mPwSer 𝑅) = (𝐼 mPwSer 𝑅)
29	4	psrbasfsupp 34189	. . . 4 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
30		eqid 2760	. . . 4 ⊢ (Base‘(𝐼 mPwSer 𝑅)) = (Base‘(𝐼 mPwSer 𝑅))
31	28, 1, 29, 30, 13	psrbas 22247	. . 3 ⊢ (𝜑 → (Base‘(𝐼 mPwSer 𝑅)) = (𝐵 ↑_m 𝐷))
32	27, 31	eleqtrrd 2863	. 2 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) ∈ (Base‘(𝐼 mPwSer 𝑅)))
33	7	mptexd 7230	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) ∈ V)
34	10	a1i 11	. . . 4 ⊢ (𝜑 → 0 ∈ V)
35	12	fmpttd 7115	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )):𝐷⟶V)
36	35	ffund 6714	. . . 4 ⊢ (𝜑 → Fun (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )))
37		fveq1 6884	. . . . . . . . . 10 ⊢ (𝑦 = 𝑥 → (𝑦‘𝐴) = (𝑥‘𝐴))
38	37	eqeq1d 2762	. . . . . . . . 9 ⊢ (𝑦 = 𝑥 → ((𝑦‘𝐴) = 0 ↔ (𝑥‘𝐴) = 0))
39	38	cbvrabv 3422	. . . . . . . 8 ⊢ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} = {𝑥 ∈ 𝐷 ∣ (𝑥‘𝐴) = 0}
40	39	partfun2 33317	. . . . . . 7 ⊢ (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ))
41	40	oveq1i 7430	. . . . . 6 ⊢ ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )) supp 0 )
42	39, 7	rabexd 5300	. . . . . . . 8 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ∈ V)
43	42	mptexd 7230	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∈ V)
44	7	difexd 5292	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∈ V)
45	44	mptexd 7230	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) ∈ V)
46	43, 45, 34	suppun2 33324	. . . . . 6 ⊢ (𝜑 → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) ∪ (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )))
47	41, 46	eqtrid 2807	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) = (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )))
48		eqid 2760	. . . . . . . . . 10 ⊢ (𝐽 mPoly 𝑅) = (𝐽 mPoly 𝑅)
49		eqid 2760	. . . . . . . . . . 11 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}
50	49	psrbasfsupp 34189	. . . . . . . . . 10 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡ℎ “ ℕ) ∈ Fin}
51	48, 1, 17, 50, 18	mplelf 22310	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:{ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}⟶𝐵)
52		breq1 5105	. . . . . . . . . 10 ⊢ (ℎ = (𝑥 ↾ 𝐽) → (ℎ finSupp 0 ↔ (𝑥 ↾ 𝐽) finSupp 0))
53		ssrab2 4005	. . . . . . . . . . . . 13 ⊢ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ 𝐷
54		ssrab2 4005	. . . . . . . . . . . . . . 15 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} ⊆ (ℕ₀ ↑_m 𝐼)
55	54	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} ⊆ (ℕ₀ ↑_m 𝐼))
56	4, 55	eqsstrid 3946	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
57	53, 56	sstrid 3919	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ (ℕ₀ ↑_m 𝐼))
58	57	sselda 3908	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 ∈ (ℕ₀ ↑_m 𝐼))
59		difssd 4073	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐼 ∖ {𝐴}) ⊆ 𝐼)
60	16, 59	eqsstrid 3946	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
61	60	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝐽 ⊆ 𝐼)
62	58, 61	elmapssresd 8898	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) ∈ (ℕ₀ ↑_m 𝐽))
63	53	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ⊆ 𝐷)
64	63	sselda 3908	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 ∈ 𝐷)
65	29	psrbagfsupp 22232	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐷 → 𝑥 finSupp 0)
66	64, 65	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 𝑥 finSupp 0)
67		c0ex 11303	. . . . . . . . . . . 12 ⊢ 0 ∈ V
68	67	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → 0 ∈ V)
69	66, 68	fsuppres 9388	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) finSupp 0)
70	52, 62, 69	elrabd 3646	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) → (𝑥 ↾ 𝐽) ∈ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0})
71	51, 70	cofmpt 7133	. . . . . . . 8 ⊢ (𝜑 → (𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))))
72	71	oveq1d 7435	. . . . . . 7 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ))
73	42	mptexd 7230	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) ∈ V)
74		suppco 8226	. . . . . . . . 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 7115	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)):{𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}⟶(ℕ₀ ↑_m 𝐽))
77		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣))
78		eqid 2760	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽)) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))
79		reseq1 5963	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑢 → (𝑥 ↾ 𝐽) = (𝑢 ↾ 𝐽))
80		simpllr 788	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})
81	80	resexd 6016	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) ∈ V)
82	78, 79, 80, 81	fvmptd3 7017	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = (𝑢 ↾ 𝐽))
83		reseq1 5963	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑣 → (𝑥 ↾ 𝐽) = (𝑣 ↾ 𝐽))
84		simplr 781	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0})
85	84	resexd 6016	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣 ↾ 𝐽) ∈ V)
86	78, 83, 84, 85	fvmptd3 7017	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) = (𝑣 ↾ 𝐽))
87	77, 82, 86	3eqtr3d 2803	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) = (𝑣 ↾ 𝐽))
88	16	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐽 = (𝐼 ∖ {𝐴}))
89	88	reseq2d 5969	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ 𝐽) = (𝑢 ↾ (𝐼 ∖ {𝐴})))
90	88	reseq2d 5969	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣 ↾ 𝐽) = (𝑣 ↾ (𝐼 ∖ {𝐴})))
91	87, 89, 90	3eqtr3d 2803	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢 ↾ (𝐼 ∖ {𝐴})) = (𝑣 ↾ (𝐼 ∖ {𝐴})))
92		fveq1 6884	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑢 → (𝑦‘𝐴) = (𝑢‘𝐴))
93	92	eqeq1d 2762	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑢 → ((𝑦‘𝐴) = 0 ↔ (𝑢‘𝐴) = 0))
94	93, 80	elrabrd 3647	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢‘𝐴) = 0)
95		fveq1 6884	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑣 → (𝑦‘𝐴) = (𝑣‘𝐴))
96	95	eqeq1d 2762	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑣 → ((𝑦‘𝐴) = 0 ↔ (𝑣‘𝐴) = 0))
97	96, 84	elrabrd 3647	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑣‘𝐴) = 0)
98	94, 97	eqtr4d 2798	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → (𝑢‘𝐴) = (𝑣‘𝐴))
99	98	opeq2d 4846	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ⟨𝐴, (𝑢‘𝐴)⟩ = ⟨𝐴, (𝑣‘𝐴)⟩)
100	99	sneqd 4592	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → {⟨𝐴, (𝑢‘𝐴)⟩} = {⟨𝐴, (𝑣‘𝐴)⟩})
101	91, 100	uneq12d 4168	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}) = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
102	56	ad3antrrr 743	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐷 ⊆ (ℕ₀ ↑_m 𝐼))
103	53, 80	sselid 3906	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ 𝐷)
104	102, 103	sseldd 3909	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 ∈ (ℕ₀ ↑_m 𝐼))
105	104	elmaprd 8873	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢:𝐼⟶ℕ₀)
106	105	ffnd 6710	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 Fn 𝐼)
107	15	ad3antrrr 743	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝐴 ∈ 𝐼)
108		fnsnsplit 7189	. . . . . . . . . . . . . . . 16 ⊢ ((𝑢 Fn 𝐼 ∧ 𝐴 ∈ 𝐼) → 𝑢 = ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}))
109	106, 107, 108	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑢 = ((𝑢 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑢‘𝐴)⟩}))
110	53, 84	sselid 3906	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ 𝐷)
111	102, 110	sseldd 3909	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 ∈ (ℕ₀ ↑_m 𝐼))
112	111	elmaprd 8873	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣:𝐼⟶ℕ₀)
113	112	ffnd 6710	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 Fn 𝐼)
114		fnsnsplit 7189	. . . . . . . . . . . . . . . 16 ⊢ ((𝑣 Fn 𝐼 ∧ 𝐴 ∈ 𝐼) → 𝑣 = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
115	113, 107, 114	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ 𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ∧ ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣)) → 𝑣 = ((𝑣 ↾ (𝐼 ∖ {𝐴})) ∪ {⟨𝐴, (𝑣‘𝐴)⟩}))
116	101, 109, 115	3eqtr4d 2805	. . . . . . . . . . . . . 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 3205	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑢 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}∀𝑣 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑢) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))‘𝑣) → 𝑢 = 𝑣))
120		dff13 7258	. . . . . . . . . . 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 6543	. . . . . . . . . . 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 22307	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 finSupp 0 )
126	125	fsuppimpd 9364	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
127		imafi 9310	. . . . . . . . 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 2860	. . . . . . 7 ⊢ (𝜑 → ((𝐹 ∘ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝑥 ↾ 𝐽))) supp 0 ) ∈ Fin)
130	72, 129	eqeltrrd 2861	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∈ Fin)
131		fconstmpt 5712	. . . . . . . . . 10 ⊢ ((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) = (𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 )
132	131	oveq1i 7430	. . . . . . . . 9 ⊢ (((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) supp 0 ) = ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )
133		fczsupp0 8213	. . . . . . . . 9 ⊢ (((𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) × { 0 }) supp 0 ) = ∅
134	132, 133	eqtr3i 2785	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) = ∅
135		0fi 9073	. . . . . . . 8 ⊢ ∅ ∈ Fin
136	134, 135	eqeltri 2856	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) ∈ Fin
137	136	a1i 11	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 ) ∈ Fin)
138	130, 137	unfid 9190	. . . . 5 ⊢ (𝜑 → (((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0} ↦ (𝐹‘(𝑥 ↾ 𝐽))) supp 0 ) ∪ ((𝑥 ∈ (𝐷 ∖ {𝑦 ∈ 𝐷 ∣ (𝑦‘𝐴) = 0}) ↦ 0 ) supp 0 )) ∈ Fin)
139	47, 138	eqeltrd 2860	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) supp 0 ) ∈ Fin)
140	33, 34, 36, 139	isfsuppd 9361	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if((𝑥‘𝐴) = 0, (𝐹‘(𝑥 ↾ 𝐽)), 0 )) finSupp 0 )
141	19, 140	eqbrtrd 5126	. 2 ⊢ (𝜑 → (((𝐼extendVars𝑅)‘𝐴)‘𝐹) finSupp 0 )
142		eqid 2760	. . 3 ⊢ (𝐼 mPoly 𝑅) = (𝐼 mPoly 𝑅)
143		extvfvcl.n	. . 3 ⊢ 𝑁 = (Base‘(𝐼 mPoly 𝑅))
144	142, 28, 30, 9, 143	mplelbas 22303	. 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 1569 ∈ wcel 2144 ∀wral 3076 {crab 3412 Vcvv 3450 ⊆ wss 3895 ∖ cdif 4045 ∪ cun 4149 ∅c0 4278 ifcif 4481 {csn 4584 ⟨cop 4834 class class class wbr 5102 ↦ cmpt 5185 × cxp 5648 ^◡ccnv 5649 ↾ cres 5652 “ cima 5653 ∘ ccom 5654 Fun wfun 6532 Fn wfn 6533 ⟶wf 6534 –1-1→wf1 6535 ‘cfv 6538 (class class class)co 7420 supp csupp 8179 ↑_m cmap 8850 Fincfn 8976 finSupp cfsupp 9356 0cc0 11203 ℕ₀cn0 12609 Basecbs 17392 0_gc0g 17615 Ringcrg 20464 mPwSer cmps 22217 mPoly cmpl 22219 extendVarscextv 34207

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7751 ax-cnex 11259 ax-resscn 11260 ax-1cn 11261 ax-icn 11262 ax-addcl 11263 ax-addrcl 11264 ax-mulcl 11265 ax-mulrcl 11266 ax-mulcom 11267 ax-addass 11268 ax-mulass 11269 ax-distr 11270 ax-i2m1 11271 ax-1ne0 11272 ax-1rid 11273 ax-rnegex 11274 ax-rrecex 11275 ax-cnre 11276 ax-pre-lttri 11277 ax-pre-lttrn 11278 ax-pre-ltadd 11279 ax-pre-mulgt0 11280

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4835 df-uni 4867 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7693 df-om 7878 df-1st 8001 df-2nd 8002 df-supp 8180 df-frecs 8302 df-wrecs 8333 df-recs 8382 df-rdg 8421 df-1o 8479 df-er 8720 df-map 8852 df-en 8977 df-dom 8978 df-sdom 8979 df-fin 8980 df-fsupp 9357 df-pnf 11348 df-mnf 11349 df-xr 11350 df-ltxr 11351 df-le 11352 df-sub 11546 df-neg 11547 df-nn 12339 df-2 12408 df-3 12409 df-4 12410 df-5 12411 df-6 12412 df-7 12413 df-8 12414 df-9 12415 df-n0 12610 df-z 12697 df-uz 12969 df-fz 13643 df-struct 17330 df-sets 17347 df-slot 17365 df-ndx 17377 df-base 17393 df-ress 17414 df-plusg 17446 df-mulr 17447 df-sca 17449 df-vsca 17450 df-tset 17452 df-0g 17617 df-mgm 18821 df-sgrp 18913 df-mnd 18929 df-grp 19152 df-ring 20466 df-psr 22222 df-mpl 22224 df-extv 34208

This theorem is used by: extvfvalf 34215 evlextv 34220 esplyindfv 34254

W3C validator