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 43501

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 3417	. . . . . 6 ⊢ {𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓} = {𝑎 ∣ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓)}
2		dfsbcq 3747	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑐 → ([𝑏 / 𝑣][𝑎 / 𝑢]𝜓 ↔ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
3	2	cbvrexvw 3244	. . . . . . . . . 10 ⊢ (∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓 ↔ ∃𝑐 ∈ ℕ₀ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)
4	3	anbi2i 634	. . . . . . . . 9 ⊢ ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓) ↔ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑐 ∈ ℕ₀ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
5		r19.42v 3197	. . . . . . . . 9 ⊢ (∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) ↔ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑐 ∈ ℕ₀ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
6	4, 5	bitr4i 281	. . . . . . . 8 ⊢ ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓) ↔ ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
7		simpll 778	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑁 ∈ ℕ₀)
8		simpr 489	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)))
9		simplr 780	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑐 ∈ ℕ₀)
10		rexrabdioph.1	. . . . . . . . . . . . . 14 ⊢ 𝑀 = (𝑁 + 1)
11	10	mapfzcons 43427	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ 𝑐 ∈ ℕ₀) → (𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)))
12	7, 8, 9, 11	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → (𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)))
13	12	adantrr 729	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → (𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)))
14	10	mapfzcons2 43430	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ 𝑐 ∈ ℕ₀) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) = 𝑐)
15	8, 9, 14	syl2anc 595	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) = 𝑐)
16	15	eqcomd 2769	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑐 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀))
17	10	mapfzcons1 43428	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) = 𝑎)
18	17	adantl 486	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) = 𝑎)
19	18	eqcomd 2769	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))
20	19	sbceq1d 3750	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ([𝑎 / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
21	16, 20	sbceqbid 3752	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ([𝑐 / 𝑣][𝑎 / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
22	21	biimpd 232	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁))) → ([𝑐 / 𝑣][𝑎 / 𝑢]𝜓 → [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
23	22	impr 459	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓)
24	19	adantrr 729	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))
25		fveq1 6882	. . . . . . . . . . . . . 14 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (𝑏‘𝑀) = ((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀))
26		reseq1 5974	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (𝑏 ↾ (1...𝑁)) = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))
27	26	sbceq1d 3750	. . . . . . . . . . . . . 14 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → ([(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
28	25, 27	sbceqbid 3752	. . . . . . . . . . . . 13 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓))
29	26	eqeq2d 2774	. . . . . . . . . . . . 13 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (𝑎 = (𝑏 ↾ (1...𝑁)) ↔ 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁))))
30	28, 29	anbi12d 643	. . . . . . . . . . . 12 ⊢ (𝑏 = (𝑎 ∪ {⟨𝑀, 𝑐⟩}) → (([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))) ↔ ([((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))))
31	30	rspcev 3582	. . . . . . . . . . 11 ⊢ (((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ∈ (ℕ₀ ↑_m (1...𝑀)) ∧ ([((𝑎 ∪ {⟨𝑀, 𝑐⟩})‘𝑀) / 𝑣][((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = ((𝑎 ∪ {⟨𝑀, 𝑐⟩}) ↾ (1...𝑁)))) → ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))))
32	13, 23, 24, 31	syl12anc 849	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑐 ∈ ℕ₀) ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓)) → ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))))
33	32	rexlimdva2 3168	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) → ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))))
34		elmapi 8847	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ (ℕ₀ ↑_m (1...𝑀)) → 𝑏:(1...𝑀)⟶ℕ₀)
35		nn0p1nn 12544	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ₀ → (𝑁 + 1) ∈ ℕ)
36	10, 35	eqeltrid 2867	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ₀ → 𝑀 ∈ ℕ)
37		elfz1end 13584	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
38	36, 37	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ₀ → 𝑀 ∈ (1...𝑀))
39		ffvelcdm 7078	. . . . . . . . . . . . 13 ⊢ ((𝑏:(1...𝑀)⟶ℕ₀ ∧ 𝑀 ∈ (1...𝑀)) → (𝑏‘𝑀) ∈ ℕ₀)
40	34, 38, 39	syl2anr 608	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) → (𝑏‘𝑀) ∈ ℕ₀)
41	40	adantr 485	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → (𝑏‘𝑀) ∈ ℕ₀)
42		simprr 784	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → 𝑎 = (𝑏 ↾ (1...𝑁)))
43	10	mapfzcons1cl 43429	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ (ℕ₀ ↑_m (1...𝑀)) → (𝑏 ↾ (1...𝑁)) ∈ (ℕ₀ ↑_m (1...𝑁)))
44	43	ad2antlr 739	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → (𝑏 ↾ (1...𝑁)) ∈ (ℕ₀ ↑_m (1...𝑁)))
45	42, 44	eqeltrd 2863	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → 𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)))
46		simprl 782	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓)
47		dfsbcq 3747	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑏 ↾ (1...𝑁)) → ([𝑎 / 𝑢]𝜓 ↔ [(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
48	47	sbcbidv 3800	. . . . . . . . . . . . 13 ⊢ (𝑎 = (𝑏 ↾ (1...𝑁)) → ([(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
49	48	ad2antll 741	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → ([(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
50	46, 49	mpbird 260	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓)
51		dfsbcq 3747	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑏‘𝑀) → ([𝑐 / 𝑣][𝑎 / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓))
52	51	anbi2d 641	. . . . . . . . . . . 12 ⊢ (𝑐 = (𝑏‘𝑀) → ((𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓) ↔ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓)))
53	52	rspcev 3582	. . . . . . . . . . 11 ⊢ (((𝑏‘𝑀) ∈ ℕ₀ ∧ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [(𝑏‘𝑀) / 𝑣][𝑎 / 𝑢]𝜓)) → ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
54	41, 45, 50, 53	syl12anc 849	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))) ∧ ([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))) → ∃𝑐 ∈ ℕ₀ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ [𝑐 / 𝑣][𝑎 / 𝑢]𝜓))
55	54	rexlimdva2 3168	. . . . . . . . 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 2829	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → {𝑎 ∣ (𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∧ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓)} = {𝑎 ∣ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))})
59	1, 58	eqtrid 2810	. . . . 5 ⊢ (𝑁 ∈ ℕ₀ → {𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓} = {𝑎 ∣ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))})
60		nfcv 2925	. . . . . 6 ⊢ Ⅎ𝑢(ℕ₀ ↑_m (1...𝑁))
61		nfcv 2925	. . . . . 6 ⊢ Ⅎ𝑎(ℕ₀ ↑_m (1...𝑁))
62		nfv 1944	. . . . . 6 ⊢ Ⅎ𝑎∃𝑣 ∈ ℕ₀ 𝜓
63		nfcv 2925	. . . . . . 7 ⊢ Ⅎ𝑢ℕ₀
64		nfcv 2925	. . . . . . . 8 ⊢ Ⅎ𝑢𝑏
65		nfsbc1v 3765	. . . . . . . 8 ⊢ Ⅎ𝑢[𝑎 / 𝑢]𝜓
66	64, 65	nfsbcw 3767	. . . . . . 7 ⊢ Ⅎ𝑢[𝑏 / 𝑣][𝑎 / 𝑢]𝜓
67	63, 66	nfrexw 3313	. . . . . 6 ⊢ Ⅎ𝑢∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓
68		sbceq1a 3756	. . . . . . . 8 ⊢ (𝑢 = 𝑎 → (𝜓 ↔ [𝑎 / 𝑢]𝜓))
69	68	rexbidv 3189	. . . . . . 7 ⊢ (𝑢 = 𝑎 → (∃𝑣 ∈ ℕ₀ 𝜓 ↔ ∃𝑣 ∈ ℕ₀ [𝑎 / 𝑢]𝜓))
70		nfv 1944	. . . . . . . 8 ⊢ Ⅎ𝑏[𝑎 / 𝑢]𝜓
71		nfsbc1v 3765	. . . . . . . 8 ⊢ Ⅎ𝑣[𝑏 / 𝑣][𝑎 / 𝑢]𝜓
72		sbceq1a 3756	. . . . . . . 8 ⊢ (𝑣 = 𝑏 → ([𝑎 / 𝑢]𝜓 ↔ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓))
73	70, 71, 72	cbvrexw 3308	. . . . . . 7 ⊢ (∃𝑣 ∈ ℕ₀ [𝑎 / 𝑢]𝜓 ↔ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓)
74	69, 73	bitrdi 290	. . . . . 6 ⊢ (𝑢 = 𝑎 → (∃𝑣 ∈ ℕ₀ 𝜓 ↔ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓))
75	60, 61, 62, 67, 74	cbvrabw 3451	. . . . 5 ⊢ {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑏 ∈ ℕ₀ [𝑏 / 𝑣][𝑎 / 𝑢]𝜓}
76		fveq1 6882	. . . . . . . 8 ⊢ (𝑡 = 𝑏 → (𝑡‘𝑀) = (𝑏‘𝑀))
77		reseq1 5974	. . . . . . . . 9 ⊢ (𝑡 = 𝑏 → (𝑡 ↾ (1...𝑁)) = (𝑏 ↾ (1...𝑁)))
78	77	sbceq1d 3750	. . . . . . . 8 ⊢ (𝑡 = 𝑏 → ([(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
79	76, 78	sbceqbid 3752	. . . . . . 7 ⊢ (𝑡 = 𝑏 → ([(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ [(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓))
80	79	rexrab 3660	. . . . . 6 ⊢ (∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁)) ↔ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁))))
81	80	abbii 2830	. . . . 5 ⊢ {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁))} = {𝑎 ∣ ∃𝑏 ∈ (ℕ₀ ↑_m (1...𝑀))([(𝑏‘𝑀) / 𝑣][(𝑏 ↾ (1...𝑁)) / 𝑢]𝜓 ∧ 𝑎 = (𝑏 ↾ (1...𝑁)))}
82	59, 75, 81	3eqtr4g 2823	. . . 4 ⊢ (𝑁 ∈ ℕ₀ → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁))})
83		fvex 6896	. . . . . . . 8 ⊢ (𝑡‘𝑀) ∈ V
84		vex 3459	. . . . . . . . 9 ⊢ 𝑡 ∈ V
85	84	resex 6030	. . . . . . . 8 ⊢ (𝑡 ↾ (1...𝑁)) ∈ V
86		rexrabdioph.2	. . . . . . . . 9 ⊢ (𝑣 = (𝑡‘𝑀) → (𝜓 ↔ 𝜒))
87		rexrabdioph.3	. . . . . . . . 9 ⊢ (𝑢 = (𝑡 ↾ (1...𝑁)) → (𝜒 ↔ 𝜑))
88	86, 87	sylan9bb 518	. . . . . . . 8 ⊢ ((𝑣 = (𝑡‘𝑀) ∧ 𝑢 = (𝑡 ↾ (1...𝑁))) → (𝜓 ↔ 𝜑))
89	83, 85, 88	sbc2ie 3820	. . . . . . 7 ⊢ ([(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓 ↔ 𝜑)
90	89	rabbii 3421	. . . . . 6 ⊢ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓} = {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}
91	90	rexeqi 3322	. . . . 5 ⊢ (∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁)) ↔ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁)))
92	91	abbii 2830	. . . 4 ⊢ {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ [(𝑡‘𝑀) / 𝑣][(𝑡 ↾ (1...𝑁)) / 𝑢]𝜓}𝑎 = (𝑏 ↾ (1...𝑁))} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))}
93	82, 92	eqtrdi 2814	. . 3 ⊢ (𝑁 ∈ ℕ₀ → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))})
94	93	adantr 485	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} = {𝑎 ∣ ∃𝑏 ∈ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑}𝑎 = (𝑏 ↾ (1...𝑁))})
95		simpl 487	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → 𝑁 ∈ ℕ₀)
96		nn0z 12616	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ ℤ)
97		uzid 12878	. . . . . 6 ⊢ (𝑁 ∈ ℤ → 𝑁 ∈ (ℤ_≥‘𝑁))
98		peano2uz 12926	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘𝑁) → (𝑁 + 1) ∈ (ℤ_≥‘𝑁))
99	96, 97, 98	3syl 19	. . . . 5 ⊢ (𝑁 ∈ ℕ₀ → (𝑁 + 1) ∈ (ℤ_≥‘𝑁))
100	10, 99	eqeltrid 2867	. . . 4 ⊢ (𝑁 ∈ ℕ₀ → 𝑀 ∈ (ℤ_≥‘𝑁))
101	100	adantr 485	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → 𝑀 ∈ (ℤ_≥‘𝑁))
102		simpr 489	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀))
103		diophrex 43486	. . 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 2863	1 ⊢ ((𝑁 ∈ ℕ₀ ∧ {𝑡 ∈ (ℕ₀ ↑_m (1...𝑀)) ∣ 𝜑} ∈ (Dioph‘𝑀)) → {𝑢 ∈ (ℕ₀ ↑_m (1...𝑁)) ∣ ∃𝑣 ∈ ℕ₀ 𝜓} ∈ (Dioph‘𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 400 = wceq 1570 ∈ wcel 2143 {cab 2741 ∃wrex 3089 {crab 3416 [wsbc 3745 ∪ cun 3904 {csn 4590 ⟨cop 4596 ↾ cres 5665 ⟶wf 6534 ‘cfv 6538 (class class class)co 7412 ↑_m cmap 8825 1c1 11102 + caddc 11104 ℕcn 12234 ℕ₀cn0 12505 ℤcz 12592 ℤ_≥cuz 12863 ...cfz 13536 Diophcdioph 43466

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5239 ax-sep 5258 ax-nul 5270 ax-pow 5338 ax-pr 5406 ax-un 7734 ax-inf2 9611 ax-cnex 11157 ax-resscn 11158 ax-1cn 11159 ax-icn 11160 ax-addcl 11161 ax-addrcl 11162 ax-mulcl 11163 ax-mulrcl 11164 ax-mulcom 11165 ax-addass 11166 ax-mulass 11167 ax-distr 11168 ax-i2m1 11169 ax-1ne0 11170 ax-1rid 11171 ax-rnegex 11172 ax-rrecex 11173 ax-cnre 11174 ax-pre-lttri 11175 ax-pre-lttrn 11176 ax-pre-ltadd 11177 ax-pre-mulgt0 11178

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3746 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4288 df-if 4489 df-pw 4565 df-sn 4591 df-pr 4593 df-op 4597 df-uni 4874 df-int 4914 df-iun 4959 df-br 5111 df-opab 5175 df-mpt 5194 df-tr 5220 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 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 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-of 7676 df-om 7864 df-1st 7987 df-2nd 7988 df-frecs 8279 df-wrecs 8310 df-recs 8359 df-rdg 8398 df-1o 8454 df-oadd 8458 df-er 8695 df-map 8827 df-en 8945 df-dom 8946 df-sdom 8947 df-fin 8948 df-dju 9888 df-card 9926 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11444 df-neg 11445 df-nn 12235 df-n0 12506 df-z 12593 df-uz 12864 df-fz 13537 df-hash 14369 df-mzpcl 43434 df-mzp 43435 df-dioph 43467

This theorem is referenced by: rexfrabdioph 43502 elnn0rabdioph 43510 dvdsrabdioph 43517

W3C validator