Theorem eldioph4b 39401

Description: Membership in Dioph expressed using a quantified union to add witness variables instead of a restriction to remove them. (Contributed by Stefan O'Rear, 16-Oct-2014.)

Hypotheses

Ref	Expression
eldioph4b.a	⊢ 𝑊 ∈ V
eldioph4b.b	⊢ ¬ 𝑊 ∈ Fin
eldioph4b.c	⊢ (𝑊 ∩ ℕ) = ∅

Assertion

Ref	Expression
eldioph4b	⊢ (𝑆 ∈ (Dioph‘𝑁) ↔ (𝑁 ∈ ℕ0 ∧ ∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0}))

Distinct variable groups:   𝑊,𝑝,𝑡,𝑤   𝑆,𝑝,𝑡,𝑤   𝑁,𝑝,𝑡,𝑤

Proof of Theorem eldioph4b

Dummy variable 𝑢 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eldiophelnn0 39354	. 2 ⊢ (𝑆 ∈ (Dioph‘𝑁) → 𝑁 ∈ ℕ0)
2		eldioph4b.a	. . . . . 6 ⊢ 𝑊 ∈ V
3		ovex 7183	. . . . . 6 ⊢ (1...𝑁) ∈ V
4	2, 3	unex 7463	. . . . 5 ⊢ (𝑊 ∪ (1...𝑁)) ∈ V
5	4	jctr 527	. . . 4 ⊢ (𝑁 ∈ ℕ0 → (𝑁 ∈ ℕ0 ∧ (𝑊 ∪ (1...𝑁)) ∈ V))
6		eldioph4b.b	. . . . . . 7 ⊢ ¬ 𝑊 ∈ Fin
7	6	intnanr 490	. . . . . 6 ⊢ ¬ (𝑊 ∈ Fin ∧ (1...𝑁) ∈ Fin)
8		unfir 8780	. . . . . 6 ⊢ ((𝑊 ∪ (1...𝑁)) ∈ Fin → (𝑊 ∈ Fin ∧ (1...𝑁) ∈ Fin))
9	7, 8	mto 199	. . . . 5 ⊢ ¬ (𝑊 ∪ (1...𝑁)) ∈ Fin
10		ssun2 4149	. . . . 5 ⊢ (1...𝑁) ⊆ (𝑊 ∪ (1...𝑁))
11	9, 10	pm3.2i 473	. . . 4 ⊢ (¬ (𝑊 ∪ (1...𝑁)) ∈ Fin ∧ (1...𝑁) ⊆ (𝑊 ∪ (1...𝑁)))
12		eldioph2b 39353	. . . 4 ⊢ (((𝑁 ∈ ℕ0 ∧ (𝑊 ∪ (1...𝑁)) ∈ V) ∧ (¬ (𝑊 ∪ (1...𝑁)) ∈ Fin ∧ (1...𝑁) ⊆ (𝑊 ∪ (1...𝑁)))) → (𝑆 ∈ (Dioph‘𝑁) ↔ ∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∣ ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0)}))
13	5, 11, 12	sylancl 588	. . 3 ⊢ (𝑁 ∈ ℕ0 → (𝑆 ∈ (Dioph‘𝑁) ↔ ∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∣ ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0)}))
14		elmapssres 8425	. . . . . . . . . . . . . . 15 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (1...𝑁) ⊆ (𝑊 ∪ (1...𝑁))) → (𝑢 ↾ (1...𝑁)) ∈ (ℕ0 ↑m (1...𝑁)))
15	10, 14	mpan2 689	. . . . . . . . . . . . . 14 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → (𝑢 ↾ (1...𝑁)) ∈ (ℕ0 ↑m (1...𝑁)))
16	15	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑝‘𝑢) = 0) → (𝑢 ↾ (1...𝑁)) ∈ (ℕ0 ↑m (1...𝑁)))
17		ssun1 4148	. . . . . . . . . . . . . . . 16 ⊢ 𝑊 ⊆ (𝑊 ∪ (1...𝑁))
18		elmapssres 8425	. . . . . . . . . . . . . . . 16 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ 𝑊 ⊆ (𝑊 ∪ (1...𝑁))) → (𝑢 ↾ 𝑊) ∈ (ℕ0 ↑m 𝑊))
19	17, 18	mpan2 689	. . . . . . . . . . . . . . 15 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → (𝑢 ↾ 𝑊) ∈ (ℕ0 ↑m 𝑊))
20	19	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑝‘𝑢) = 0) → (𝑢 ↾ 𝑊) ∈ (ℕ0 ↑m 𝑊))
21		uncom 4129	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊)) = ((𝑢 ↾ 𝑊) ∪ (𝑢 ↾ (1...𝑁)))
22		resundi 5862	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ↾ (𝑊 ∪ (1...𝑁))) = ((𝑢 ↾ 𝑊) ∪ (𝑢 ↾ (1...𝑁)))
23	21, 22	eqtr4i 2847	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊)) = (𝑢 ↾ (𝑊 ∪ (1...𝑁)))
24		elmapi 8422	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → 𝑢:(𝑊 ∪ (1...𝑁))⟶ℕ0)
25		ffn 6509	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢:(𝑊 ∪ (1...𝑁))⟶ℕ0 → 𝑢 Fn (𝑊 ∪ (1...𝑁)))
26		fnresdm 6461	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 Fn (𝑊 ∪ (1...𝑁)) → (𝑢 ↾ (𝑊 ∪ (1...𝑁))) = 𝑢)
27	24, 25, 26	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → (𝑢 ↾ (𝑊 ∪ (1...𝑁))) = 𝑢)
28	23, 27	syl5eq 2868	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → ((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊)) = 𝑢)
29	28	fveqeq2d 6673	. . . . . . . . . . . . . . 15 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → ((𝑝‘((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊))) = 0 ↔ (𝑝‘𝑢) = 0))
30	29	biimpar 480	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑝‘𝑢) = 0) → (𝑝‘((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊))) = 0)
31		uneq2 4133	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = (𝑢 ↾ 𝑊) → ((𝑢 ↾ (1...𝑁)) ∪ 𝑤) = ((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊)))
32	31	fveqeq2d 6673	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = (𝑢 ↾ 𝑊) → ((𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0 ↔ (𝑝‘((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊))) = 0))
33	32	rspcev 3623	. . . . . . . . . . . . . 14 ⊢ (((𝑢 ↾ 𝑊) ∈ (ℕ0 ↑m 𝑊) ∧ (𝑝‘((𝑢 ↾ (1...𝑁)) ∪ (𝑢 ↾ 𝑊))) = 0) → ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0)
34	20, 30, 33	syl2anc 586	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑝‘𝑢) = 0) → ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0)
35	16, 34	jca 514	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑝‘𝑢) = 0) → ((𝑢 ↾ (1...𝑁)) ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0))
36		eleq1 2900	. . . . . . . . . . . . 13 ⊢ (𝑡 = (𝑢 ↾ (1...𝑁)) → (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ↔ (𝑢 ↾ (1...𝑁)) ∈ (ℕ0 ↑m (1...𝑁))))
37		uneq1 4132	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = (𝑢 ↾ (1...𝑁)) → (𝑡 ∪ 𝑤) = ((𝑢 ↾ (1...𝑁)) ∪ 𝑤))
38	37	fveqeq2d 6673	. . . . . . . . . . . . . 14 ⊢ (𝑡 = (𝑢 ↾ (1...𝑁)) → ((𝑝‘(𝑡 ∪ 𝑤)) = 0 ↔ (𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0))
39	38	rexbidv 3297	. . . . . . . . . . . . 13 ⊢ (𝑡 = (𝑢 ↾ (1...𝑁)) → (∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0 ↔ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0))
40	36, 39	anbi12d 632	. . . . . . . . . . . 12 ⊢ (𝑡 = (𝑢 ↾ (1...𝑁)) → ((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0) ↔ ((𝑢 ↾ (1...𝑁)) ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘((𝑢 ↾ (1...𝑁)) ∪ 𝑤)) = 0)))
41	35, 40	syl5ibrcom 249	. . . . . . . . . . 11 ⊢ ((𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑝‘𝑢) = 0) → (𝑡 = (𝑢 ↾ (1...𝑁)) → (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0)))
42	41	expimpd 456	. . . . . . . . . 10 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → (((𝑝‘𝑢) = 0 ∧ 𝑡 = (𝑢 ↾ (1...𝑁))) → (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0)))
43	42	ancomsd 468	. . . . . . . . 9 ⊢ (𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) → ((𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0) → (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0)))
44	43	rexlimiv 3280	. . . . . . . 8 ⊢ (∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0) → (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0))
45		uncom 4129	. . . . . . . . . . . 12 ⊢ (𝑡 ∪ 𝑤) = (𝑤 ∪ 𝑡)
46		fz1ssnn 12932	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1...𝑁) ⊆ ℕ
47		sslin 4211	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1...𝑁) ⊆ ℕ → (𝑊 ∩ (1...𝑁)) ⊆ (𝑊 ∩ ℕ))
48	46, 47	ax-mp 5	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑊 ∩ (1...𝑁)) ⊆ (𝑊 ∩ ℕ)
49		eldioph4b.c	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑊 ∩ ℕ) = ∅
50	48, 49	sseqtri 4003	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑊 ∩ (1...𝑁)) ⊆ ∅
51		ss0 4352	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∩ (1...𝑁)) ⊆ ∅ → (𝑊 ∩ (1...𝑁)) = ∅)
52	50, 51	ax-mp 5	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∩ (1...𝑁)) = ∅
53	52	reseq2i 5845	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ↾ (𝑊 ∩ (1...𝑁))) = (𝑤 ↾ ∅)
54		res0 5852	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ↾ ∅) = ∅
55	53, 54	eqtri 2844	. . . . . . . . . . . . . . 15 ⊢ (𝑤 ↾ (𝑊 ∩ (1...𝑁))) = ∅
56	52	reseq2i 5845	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ↾ (𝑊 ∩ (1...𝑁))) = (𝑡 ↾ ∅)
57		res0 5852	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 ↾ ∅) = ∅
58	56, 57	eqtri 2844	. . . . . . . . . . . . . . 15 ⊢ (𝑡 ↾ (𝑊 ∩ (1...𝑁))) = ∅
59	55, 58	eqtr4i 2847	. . . . . . . . . . . . . 14 ⊢ (𝑤 ↾ (𝑊 ∩ (1...𝑁))) = (𝑡 ↾ (𝑊 ∩ (1...𝑁)))
60		elmapresaun 8438	. . . . . . . . . . . . . 14 ⊢ ((𝑤 ∈ (ℕ0 ↑m 𝑊) ∧ 𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ (𝑤 ↾ (𝑊 ∩ (1...𝑁))) = (𝑡 ↾ (𝑊 ∩ (1...𝑁)))) → (𝑤 ∪ 𝑡) ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))))
61	59, 60	mp3an3 1446	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ (ℕ0 ↑m 𝑊) ∧ 𝑡 ∈ (ℕ0 ↑m (1...𝑁))) → (𝑤 ∪ 𝑡) ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))))
62	61	ancoms 461	. . . . . . . . . . . 12 ⊢ ((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) → (𝑤 ∪ 𝑡) ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))))
63	45, 62	eqeltrid 2917	. . . . . . . . . . 11 ⊢ ((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) → (𝑡 ∪ 𝑤) ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))))
64	63	adantr 483	. . . . . . . . . 10 ⊢ (((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) ∧ (𝑝‘(𝑡 ∪ 𝑤)) = 0) → (𝑡 ∪ 𝑤) ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))))
65	45	reseq1i 5844	. . . . . . . . . . . 12 ⊢ ((𝑡 ∪ 𝑤) ↾ (1...𝑁)) = ((𝑤 ∪ 𝑡) ↾ (1...𝑁))
66		elmapresaunres2 39361	. . . . . . . . . . . . . 14 ⊢ ((𝑤 ∈ (ℕ0 ↑m 𝑊) ∧ 𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ (𝑤 ↾ (𝑊 ∩ (1...𝑁))) = (𝑡 ↾ (𝑊 ∩ (1...𝑁)))) → ((𝑤 ∪ 𝑡) ↾ (1...𝑁)) = 𝑡)
67	59, 66	mp3an3 1446	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ (ℕ0 ↑m 𝑊) ∧ 𝑡 ∈ (ℕ0 ↑m (1...𝑁))) → ((𝑤 ∪ 𝑡) ↾ (1...𝑁)) = 𝑡)
68	67	ancoms 461	. . . . . . . . . . . 12 ⊢ ((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) → ((𝑤 ∪ 𝑡) ↾ (1...𝑁)) = 𝑡)
69	65, 68	syl5req 2869	. . . . . . . . . . 11 ⊢ ((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) → 𝑡 = ((𝑡 ∪ 𝑤) ↾ (1...𝑁)))
70	69	adantr 483	. . . . . . . . . 10 ⊢ (((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) ∧ (𝑝‘(𝑡 ∪ 𝑤)) = 0) → 𝑡 = ((𝑡 ∪ 𝑤) ↾ (1...𝑁)))
71		simpr 487	. . . . . . . . . 10 ⊢ (((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) ∧ (𝑝‘(𝑡 ∪ 𝑤)) = 0) → (𝑝‘(𝑡 ∪ 𝑤)) = 0)
72		reseq1 5842	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑡 ∪ 𝑤) → (𝑢 ↾ (1...𝑁)) = ((𝑡 ∪ 𝑤) ↾ (1...𝑁)))
73	72	eqeq2d 2832	. . . . . . . . . . . 12 ⊢ (𝑢 = (𝑡 ∪ 𝑤) → (𝑡 = (𝑢 ↾ (1...𝑁)) ↔ 𝑡 = ((𝑡 ∪ 𝑤) ↾ (1...𝑁))))
74		fveqeq2 6674	. . . . . . . . . . . 12 ⊢ (𝑢 = (𝑡 ∪ 𝑤) → ((𝑝‘𝑢) = 0 ↔ (𝑝‘(𝑡 ∪ 𝑤)) = 0))
75	73, 74	anbi12d 632	. . . . . . . . . . 11 ⊢ (𝑢 = (𝑡 ∪ 𝑤) → ((𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0) ↔ (𝑡 = ((𝑡 ∪ 𝑤) ↾ (1...𝑁)) ∧ (𝑝‘(𝑡 ∪ 𝑤)) = 0)))
76	75	rspcev 3623	. . . . . . . . . 10 ⊢ (((𝑡 ∪ 𝑤) ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁))) ∧ (𝑡 = ((𝑡 ∪ 𝑤) ↾ (1...𝑁)) ∧ (𝑝‘(𝑡 ∪ 𝑤)) = 0)) → ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0))
77	64, 70, 71, 76	syl12anc 834	. . . . . . . . 9 ⊢ (((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ 𝑤 ∈ (ℕ0 ↑m 𝑊)) ∧ (𝑝‘(𝑡 ∪ 𝑤)) = 0) → ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0))
78	77	r19.29an 3288	. . . . . . . 8 ⊢ ((𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0) → ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0))
79	44, 78	impbii 211	. . . . . . 7 ⊢ (∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0) ↔ (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0))
80	79	abbii 2886	. . . . . 6 ⊢ {𝑡 ∣ ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0)} = {𝑡 ∣ (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0)}
81		df-rab 3147	. . . . . 6 ⊢ {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0} = {𝑡 ∣ (𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∧ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0)}
82	80, 81	eqtr4i 2847	. . . . 5 ⊢ {𝑡 ∣ ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0)} = {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0}
83	82	eqeq2i 2834	. . . 4 ⊢ (𝑆 = {𝑡 ∣ ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0)} ↔ 𝑆 = {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0})
84	83	rexbii 3247	. . 3 ⊢ (∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∣ ∃𝑢 ∈ (ℕ0 ↑m (𝑊 ∪ (1...𝑁)))(𝑡 = (𝑢 ↾ (1...𝑁)) ∧ (𝑝‘𝑢) = 0)} ↔ ∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0})
85	13, 84	syl6bb 289	. 2 ⊢ (𝑁 ∈ ℕ0 → (𝑆 ∈ (Dioph‘𝑁) ↔ ∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0}))
86	1, 85	biadanii 820	1 ⊢ (𝑆 ∈ (Dioph‘𝑁) ↔ (𝑁 ∈ ℕ0 ∧ ∃𝑝 ∈ (mzPoly‘(𝑊 ∪ (1...𝑁)))𝑆 = {𝑡 ∈ (ℕ0 ↑m (1...𝑁)) ∣ ∃𝑤 ∈ (ℕ0 ↑m 𝑊)(𝑝‘(𝑡 ∪ 𝑤)) = 0}))

Syntax hints:  ¬ wn 3   ↔ wb 208   ∧ wa 398   = wceq 1533   ∈ wcel 2110  {cab 2799  ∃wrex 3139  {crab 3142  Vcvv 3495   ∪ cun 3934   ∩ cin 3935   ⊆ wss 3936  ∅c0 4291   ↾ cres 5552   Fn wfn 6345  ⟶wf 6346  ‘cfv 6350  (class class class)co 7150   ↑_m cmap 8400  Fincfn 8503  0cc0 10531  1c1 10532  ℕcn 11632  ℕ₀cn0 11891  ...cfz 12886  mzPolycmzp 39312  Diophcdioph 39345

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2156  ax-12 2172  ax-ext 2793  ax-rep 5183  ax-sep 5196  ax-nul 5203  ax-pow 5259  ax-pr 5322  ax-un 7455  ax-cnex 10587  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3497  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4562  df-pr 4564  df-tp 4566  df-op 4568  df-uni 4833  df-int 4870  df-iun 4914  df-br 5060  df-opab 5122  df-mpt 5140  df-tr 5166  df-id 5455  df-eprel 5460  df-po 5469  df-so 5470  df-fr 5509  df-we 5511  df-xp 5556  df-rel 5557  df-cnv 5558  df-co 5559  df-dm 5560  df-rn 5561  df-res 5562  df-ima 5563  df-pred 6143  df-ord 6189  df-on 6190  df-lim 6191  df-suc 6192  df-iota 6309  df-fun 6352  df-fn 6353  df-f 6354  df-f1 6355  df-fo 6356  df-f1o 6357  df-fv 6358  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-of 7403  df-om 7575  df-1st 7683  df-2nd 7684  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-oadd 8100  df-er 8283  df-map 8402  df-en 8504  df-dom 8505  df-sdom 8506  df-fin 8507  df-dju 9324  df-card 9362  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-nn 11633  df-n0 11892  df-z 11976  df-uz 12238  df-fz 12887  df-hash 13685  df-mzpcl 39313  df-mzp 39314  df-dioph 39346

This theorem is referenced by:  eldioph4i  39402  diophren  39403