rexrabdioph - Mathbox for Stefan O'Rear

	Mathbox for Stefan O'Rear		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > rexrabdioph		Structured version Visualization version GIF version

Theorem rexrabdioph 43643

Description: Diophantine set builder for existential quantification. (Contributed by Stefan O'Rear, 10-Oct-2014.)

**Hypotheses**
Ref	Expression
rexrabdioph.1	⊢ 𝑀 = (𝑁 + 1)
rexrabdioph.2	⊢ (𝑣 = (𝑡‘𝑀) → (𝜓 ↔ 𝜒))
rexrabdioph.3	⊢ (𝑢 = (𝑡 ↾ (1...𝑁)) → (𝜒 ↔ 𝜑))

**Assertion**
Ref	Expression
rexrabdioph	⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} ∈ (Dioph‘𝑁))

Distinct variable groups: 𝑡,𝑁,𝑢,𝑣 𝑡,𝑀,𝑢,𝑣 𝜑,𝑢,𝑣 𝜓,𝑡 𝜒,𝑣 Allowed substitution hints: 𝜑(𝑡) 𝜓(𝑣, 𝑢) 𝜒(𝑢, 𝑡)

Proof of Theorem rexrabdioph Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-rab 3415	. . . . . 6 ⊢ {𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓} = {𝑎 ∣ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓)}
2		dfsbcq 3744	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑐 → ([𝑏 / 𝑣][𝑎 / 𝑢]𝜓 ↔ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
3	2	cbvrexvw 3243	. . . . . . . . . 10 ⊢ (∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓 ↔ ∃𝑐 ∈ ℕ₀ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)
4	3	anbi2i 635	. . . . . . . . 9 ⊢ ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓) ↔ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑐 ∈ ℕ₀ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
5		r19.42v 3196	. . . . . . . . 9 ⊢ (∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) ↔ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑐 ∈ ℕ₀ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
6	4, 5	bitr4i 281	. . . . . . . 8 ⊢ ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓) ↔ ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
7		simpll 779	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑁 ∈ ℕ₀)
8		simpr 490	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)))
9		simplr 781	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑐 ∈ ℕ₀)
10		rexrabdioph.1	. . . . . . . . . . . . . 14 ⊢ 𝑀 = (𝑁 + 1)
11	10	mapfzcons 43569	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ 𝑐 ∈ ℕ₀) → (𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)))
12	7, 8, 9, 11	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → (𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)))
13	12	adantrr 730	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → (𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)))
14	10	mapfzcons2 43572	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ 𝑐 ∈ ℕ₀) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) = 𝑐)
15	8, 9, 14	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) = 𝑐)
16	15	eqcomd 2768	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑐 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀))
17	10	mapfzcons1 43570	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) = 𝑎)
18	17	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) = 𝑎)
19	18	eqcomd 2768	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))
20	19	sbceq1d 3747	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ([𝑎 / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
21	16, 20	sbceqbid 3749	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ([𝑐 / 𝑣][𝑎 / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
22	21	biimpd 232	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ([𝑐 / 𝑣][𝑎 / 𝑢]𝜓 → [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
23	22	impr 460	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓)
24	19	adantrr 730	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))
25		fveq1 6881	. . . . . . . . . . . . . 14 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (𝑏‘𝑀) = ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀))
26		reseq1 5970	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (𝑏 ↾ (1...𝑁)) = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))
27	26	sbceq1d 3747	. . . . . . . . . . . . . 14 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → ([(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
28	25, 27	sbceqbid 3749	. . . . . . . . . . . . 13 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
29	26	eqeq2d 2773	. . . . . . . . . . . . 13 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (𝑎 = (𝑏 ↾ (1...𝑁)) ↔ 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁))))
30	28, 29	anbi12d 644	. . . . . . . . . . . 12 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))) ↔ ([((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))))
31	30	rspcev 3579	. . . . . . . . . . 11 ⊢ (((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)) ∧ ([((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))) → ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))))
32	13, 23, 24, 31	syl12anc 850	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))))
33	32	rexlimdva2 3167	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) → ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))))
34		elmapi 8852	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ (ℕ₀ ↑_m (1...𝑀)) → 𝑏:(1...𝑀)⟶ℕ₀)
35		nn0p1nn 12571	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ₀ → (𝑁 + 1) ∈ ℕ)
36	10, 35	eqeltrid 2866	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ₀ → 𝑀 ∈ ℕ)
37		elfz1end 13613	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
38	36, 37	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ₀ → 𝑀 ∈ (1...𝑀))
39		ffvelcdm 7078	. . . . . . . . . . . . 13 ⊢ ((𝑏:(1...𝑀)⟶ℕ₀ ∧ 𝑀 ∈ (1...𝑀)) → (𝑏‘𝑀) ∈ ℕ₀)
40	34, 38, 39	syl2anr 609	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) → (𝑏‘𝑀) ∈ ℕ₀)
41	40	adantr 486	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → (𝑏‘𝑀) ∈ ℕ₀)
42		simprr 785	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → 𝑎 = (𝑏 ↾ (1...𝑁)))
43	10	mapfzcons1cl 43571	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ (ℕ₀ ↑_m (1...𝑀)) → (𝑏 ↾ (1...𝑁)) ∈ (ℕ₀ ↑_m (1...𝑁)))
44	43	ad2antlr 740	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → (𝑏 ↾ (1...𝑁)) ∈ (ℕ₀ ↑_m (1...𝑁)))
45	42, 44	eqeltrd 2862	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)))
46		simprl 783	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓)
47		dfsbcq 3744	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑏 ↾ (1...𝑁)) → ([𝑎 / 𝑢]𝜓 ↔ [(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
48	47	sbcbidv 3797	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑏 ↾ (1...𝑁)) → ([(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
49	48	ad2antll 742	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → ([(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
50	46, 49	mpbird 260	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓)
51		dfsbcq 3744	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑏‘𝑀) → ([𝑐 / 𝑣][𝑎 / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓))
52	51	anbi2d 642	. . . . . . . . . . . 12 ⊢ (𝑐 = (𝑏‘𝑀) → ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) ↔ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓)))
53	52	rspcev 3579	. . . . . . . . . . 11 ⊢ (((𝑏‘𝑀) ∈ ℕ₀ ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓)) → ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
54	41, 45, 50, 53	syl12anc 850	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
55	54	rexlimdva2 3167	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))) → ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)))
56	33, 55	impbid 215	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ₀ → (∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) ↔ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))))
57	6, 56	bitrid 286	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓) ↔ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))))
58	57	abbidv 2828	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → {𝑎 ∣ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓)} = {𝑎 ∣ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))})
59	1, 58	eqtrid 2809	. . . . 5 ⊢ (𝑁 ∈ ℕ₀ → {𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓} = {𝑎 ∣ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))})
60		nfcv 2924	. . . . . 6 ⊢ Ⅎ𝑢(ℕ₀ ↑_m (1...𝑁))
61		nfcv 2924	. . . . . 6 ⊢ Ⅎ𝑎(ℕ₀ ↑_m (1...𝑁))
62		nfv 1947	. . . . . 6 ⊢ Ⅎ𝑎∃𝑣 ∈ ℕ₀ 𝜓
63		nfcv 2924	. . . . . . 7 ⊢ Ⅎ𝑢ℕ₀
64		nfcv 2924	. . . . . . . 8 ⊢ Ⅎ𝑢𝑏
65		nfsbc1v 3762	. . . . . . . 8 ⊢ Ⅎ𝑢[𝑎 / 𝑢]𝜓
66	64, 65	nfsbcw 3764	. . . . . . 7 ⊢ Ⅎ𝑢[𝑏 / 𝑣][𝑎 / 𝑢]𝜓
67	63, 66	nfrexw 3312	. . . . . 6 ⊢ Ⅎ𝑢∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓
68		sbceq1a 3753	. . . . . . . 8 ⊢ (𝑢 = 𝑎 → (𝜓 ↔ [𝑎 / 𝑢]𝜓))
69	68	rexbidv 3188	. . . . . . 7 ⊢ (𝑢 = 𝑎 → (∃𝑣 ∈ ℕ₀ 𝜓 ↔ ∃𝑣 ∈ ℕ₀ [𝑎 / 𝑢]𝜓))
70		nfv 1947	. . . . . . . 8 ⊢ Ⅎ𝑏[𝑎 / 𝑢]𝜓
71		nfsbc1v 3762	. . . . . . . 8 ⊢ Ⅎ𝑣[𝑏 / 𝑣][𝑎 / 𝑢]𝜓
72		sbceq1a 3753	. . . . . . . 8 ⊢ (𝑣 = 𝑏 → ([𝑎 / 𝑢]𝜓 ↔ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓))
73	70, 71, 72	cbvrexw 3307	. . . . . . 7 ⊢ (∃𝑣 ∈ ℕ₀ [𝑎 / 𝑢]𝜓 ↔ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓)
74	69, 73	bitrdi 290	. . . . . 6 ⊢ (𝑢 = 𝑎 → (∃𝑣 ∈ ℕ₀ 𝜓 ↔ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓))
75	60, 61, 62, 67, 74	cbvrabw 3449	. . . . 5 ⊢ {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓}
76		fveq1 6881	. . . . . . . 8 ⊢ (𝑡 = 𝑏 → (𝑡‘𝑀) = (𝑏‘𝑀))
77		reseq1 5970	. . . . . . . . 9 ⊢ (𝑡 = 𝑏 → (𝑡 ↾ (1...𝑁)) = (𝑏 ↾ (1...𝑁)))
78	77	sbceq1d 3747	. . . . . . . 8 ⊢ (𝑡 = 𝑏 → ([(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
79	76, 78	sbceqbid 3749	. . . . . . 7 ⊢ (𝑡 = 𝑏 → ([(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
80	79	rexrab 3657	. . . . . 6 ⊢ (∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁)) ↔ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))))
81	80	abbii 2829	. . . . 5 ⊢ {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁))} = {𝑎 ∣ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))}
82	59, 75, 81	3eqtr4g 2822	. . . 4 ⊢ (𝑁 ∈ ℕ₀ → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁))})
83		fvex 6895	. . . . . . . 8 ⊢ (𝑡‘𝑀) ∈ V
84		vex 3457	. . . . . . . . 9 ⊢ 𝑡 ∈ V
85	84	resex 6026	. . . . . . . 8 ⊢ (𝑡 ↾ (1...𝑁)) ∈ V
86		rexrabdioph.2	. . . . . . . . 9 ⊢ (𝑣 = (𝑡‘𝑀) → (𝜓 ↔ 𝜒))
87		rexrabdioph.3	. . . . . . . . 9 ⊢ (𝑢 = (𝑡 ↾ (1...𝑁)) → (𝜒 ↔ 𝜑))
88	86, 87	sylan9bb 519	. . . . . . . 8 ⊢ ((𝑣 = (𝑡‘𝑀) ∧ 𝑢 = (𝑡 ↾ (1...𝑁))) → (𝜓 ↔ 𝜑))
89	83, 85, 88	sbc2ie 3817	. . . . . . 7 ⊢ ([(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ 𝜑)
90	89	rabbii 3419	. . . . . 6 ⊢ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓} = {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}
91	90	rexeqi 3320	. . . . 5 ⊢ (∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁)) ↔ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁)))
92	91	abbii 2829	. . . 4 ⊢ {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁))} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))}
93	82, 92	eqtrdi 2813	. . 3 ⊢ (𝑁 ∈ ℕ₀ → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))})
94	93	adantr 486	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))})
95		simpl 488	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → 𝑁 ∈ ℕ₀)
96		nn0z 12643	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ ℤ)
97		uzid 12906	. . . . . 6 ⊢ (𝑁 ∈ ℤ → 𝑁 ∈ (ℤ_≥‘𝑁))
98		peano2uz 12954	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘𝑁) → (𝑁 + 1) ∈ (ℤ_≥‘𝑁))
99	96, 97, 98	3syl 19	. . . . 5 ⊢ (𝑁 ∈ ℕ₀ → (𝑁 + 1) ∈ (ℤ_≥‘𝑁))
100	10, 99	eqeltrid 2866	. . . 4 ⊢ (𝑁 ∈ ℕ₀ → 𝑀 ∈ (ℤ_≥‘𝑁))
101	100	adantr 486	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → 𝑀 ∈ (ℤ_≥‘𝑁))
102		simpr 490	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀))
103		diophrex 43628	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑀 ∈ (ℤ_≥‘𝑁) ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))} ∈ (Dioph‘𝑁))
104	95, 101, 102, 103	syl3anc 1398	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))} ∈ (Dioph‘𝑁))
105	94, 104	eqeltrd 2862	1 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} ∈ (Dioph‘𝑁))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2145 {cab 2740 ∃wrex 3088 {crab 3414 [wsbc 3742 ∪ cun 3900 {csn 4587 ⟨cop 4593 ↾ cres 5661 ⟶wf 6533 ‘cfv 6537 (class class class)co 7417 ↑_m cmap 8830 1c1 11129 + caddc 11131 ℕcn 12261 ℕ₀cn0 12532 ℤcz 12619 ℤ_≥cuz 12891 ...cfz 13565 Diophcdioph 43608

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 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2215 ax-ext 2734 ax-rep 5236 ax-sep 5255 ax-nul 5267 ax-pow 5334 ax-pr 5402 ax-un 7740 ax-inf2 9624 ax-cnex 11184 ax-resscn 11185 ax-1cn 11186 ax-icn 11187 ax-addcl 11188 ax-addrcl 11189 ax-mulcl 11190 ax-mulrcl 11191 ax-mulcom 11192 ax-addass 11193 ax-mulass 11194 ax-distr 11195 ax-i2m1 11196 ax-1ne0 11197 ax-1rid 11198 ax-rnegex 11199 ax-rrecex 11200 ax-cnre 11201 ax-pre-lttri 11202 ax-pre-lttrn 11203 ax-pre-ltadd 11204 ax-pre-mulgt0 11205

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 2100 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3064 df-ral 3079 df-rex 3089 df-reu 3368 df-rab 3415 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4283 df-if 4486 df-pw 4562 df-sn 4588 df-pr 4590 df-op 4594 df-uni 4871 df-int 4911 df-iun 4956 df-br 5108 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5554 df-eprel 5559 df-po 5567 df-so 5568 df-fr 5612 df-we 5614 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7374 df-ov 7420 df-oprab 7421 df-mpo 7422 df-of 7682 df-om 7867 df-1st 7990 df-2nd 7991 df-frecs 8284 df-wrecs 8315 df-recs 8364 df-rdg 8403 df-1o 8459 df-oadd 8463 df-er 8700 df-map 8832 df-en 8957 df-dom 8958 df-sdom 8959 df-fin 8960 df-dju 9910 df-card 9948 df-pnf 11273 df-mnf 11274 df-xr 11275 df-ltxr 11276 df-le 11277 df-sub 11471 df-neg 11472 df-nn 12262 df-n0 12533 df-z 12620 df-uz 12892 df-fz 13566 df-hash 14399 df-mzpcl 43576 df-mzp 43577 df-dioph 43609

This theorem is used by: rexfrabdioph 43644 elnn0rabdioph 43652 dvdsrabdioph 43659

W3C validator