Metamath Proof Explorer


Theorem 4rexfrabdioph

Description: Diophantine set builder for existential quantifier, explicit substitution, four variables. (Contributed by Stefan O'Rear, 11-Oct-2014) (Revised by Stefan O'Rear, 6-May-2015)

Ref Expression
Hypotheses rexfrabdioph.1 ⊢ M = N + 1
rexfrabdioph.2 ⊢ L = M + 1
rexfrabdioph.3 ⊢ K = L + 1
rexfrabdioph.4 ⊢ J = K + 1
Assertion 4rexfrabdioph ⊢ N ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J → u ∈ ℕ 0 1 … N | ∃ v ∈ ℕ 0 ∃ w ∈ ℕ 0 ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ∈ Dioph ⁡ N

Proof

Step Hyp Ref Expression
1 rexfrabdioph.1 ⊢ M = N + 1
2 rexfrabdioph.2 ⊢ L = M + 1
3 rexfrabdioph.3 ⊢ K = L + 1
4 rexfrabdioph.4 ⊢ J = K + 1
5 2sbcrex ⊢ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ↔ ∃ x ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ y ∈ ℕ 0 φ
6 2sbcrex ⊢ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ y ∈ ℕ 0 φ ↔ ∃ y ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
7 6 rexbii ⊢ ∃ x ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ y ∈ ℕ 0 φ ↔ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
8 5 7 bitri ⊢ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ↔ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
9 8 sbcbii ⊢ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ↔ [˙ a ↾ 1 … N / u]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
10 sbc2rex ⊢ [˙ a ↾ 1 … N / u]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
11 9 10 bitri ⊢ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ↔ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
12 11 rabbii ⊢ a ∈ ℕ 0 1 … L | [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ = a ∈ ℕ 0 1 … L | ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
13 nn0p1nn ⊢ N ∈ ℕ 0 → N + 1 ∈ ℕ
14 1 13 eqeltrid ⊢ N ∈ ℕ 0 → M ∈ ℕ
15 14 peano2nnd ⊢ N ∈ ℕ 0 → M + 1 ∈ ℕ
16 2 15 eqeltrid ⊢ N ∈ ℕ 0 → L ∈ ℕ
17 16 nnnn0d ⊢ N ∈ ℕ 0 → L ∈ ℕ 0
18 17 adantr ⊢ N ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J → L ∈ ℕ 0
19 sbcrot3 ⊢ [˙ a ↾ 1 … N / u]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ
20 sbcrot3 ⊢ [˙ t ⁡ J / y]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ J / y]˙ φ
21 20 sbcbii ⊢ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ t ⁡ K / x]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ J / y]˙ φ
22 sbcrot3 ⊢ [˙ t ⁡ K / x]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
23 21 22 bitri ⊢ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
24 23 sbcbii ⊢ [˙ a ↾ 1 … N / u]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
25 19 24 bitr3i ⊢ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
26 25 sbcbii ⊢ [˙ t ↾ 1 … L / a]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ t ↾ 1 … L / a]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
27 reseq1 ⊢ a = t ↾ 1 … L → a ↾ 1 … N = t ↾ 1 … L ↾ 1 … N
28 27 sbccomieg ⊢ [˙ t ↾ 1 … L / a]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … L ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
29 fzssp1 ⊢ 1 … N ⊆ 1 … N + 1
30 1 oveq2i ⊢ 1 … M = 1 … N + 1
31 29 30 sseqtrri ⊢ 1 … N ⊆ 1 … M
32 fzssp1 ⊢ 1 … M ⊆ 1 … M + 1
33 2 oveq2i ⊢ 1 … L = 1 … M + 1
34 32 33 sseqtrri ⊢ 1 … M ⊆ 1 … L
35 31 34 sstri ⊢ 1 … N ⊆ 1 … L
36 resabs1 ⊢ 1 … N ⊆ 1 … L → t ↾ 1 … L ↾ 1 … N = t ↾ 1 … N
37 dfsbcq ⊢ t ↾ 1 … L ↾ 1 … N = t ↾ 1 … N → [˙ t ↾ 1 … L ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
38 35 36 37 mp2b ⊢ [˙ t ↾ 1 … L ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
39 fveq1 ⊢ a = t ↾ 1 … L → a ⁡ M = t ↾ 1 … L ⁡ M
40 39 sbccomieg ⊢ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … L ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
41 elfz1end ⊢ M ∈ ℕ ↔ M ∈ 1 … M
42 14 41 sylib ⊢ N ∈ ℕ 0 → M ∈ 1 … M
43 34 42 sselid ⊢ N ∈ ℕ 0 → M ∈ 1 … L
44 fvres ⊢ M ∈ 1 … L → t ↾ 1 … L ⁡ M = t ⁡ M
45 dfsbcq ⊢ t ↾ 1 … L ⁡ M = t ⁡ M → [˙ t ↾ 1 … L ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
46 43 44 45 3syl ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
47 vex ⊢ t ∈ V
48 47 resex ⊢ t ↾ 1 … L ∈ V
49 fveq1 ⊢ a = t ↾ 1 … L → a ⁡ L = t ↾ 1 … L ⁡ L
50 49 sbcco3gw ⊢ t ↾ 1 … L ∈ V → [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … L ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
51 48 50 ax-mp ⊢ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … L ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
52 elfz1end ⊢ L ∈ ℕ ↔ L ∈ 1 … L
53 16 52 sylib ⊢ N ∈ ℕ 0 → L ∈ 1 … L
54 fvres ⊢ L ∈ 1 … L → t ↾ 1 … L ⁡ L = t ⁡ L
55 dfsbcq ⊢ t ↾ 1 … L ⁡ L = t ⁡ L → [˙ t ↾ 1 … L ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
56 53 54 55 3syl ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
57 51 56 bitrid ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
58 57 sbcbidv ⊢ N ∈ ℕ 0 → [˙ t ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
59 46 58 bitrd ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L ⁡ M / v]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
60 40 59 bitrid ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
61 60 sbcbidv ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
62 38 61 bitrid ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L ↾ 1 … N / u]˙ [˙ t ↾ 1 … L / a]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
63 28 62 bitrid ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L / a]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ↔ [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
64 26 63 bitrid ⊢ N ∈ ℕ 0 → [˙ t ↾ 1 … L / a]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ↔ [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
65 64 rabbidv ⊢ N ∈ ℕ 0 → t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … L / a]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ = t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ
66 65 eleq1d ⊢ N ∈ ℕ 0 → t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … L / a]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ∈ Dioph ⁡ J ↔ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J
67 66 biimpar ⊢ N ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J → t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … L / a]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ∈ Dioph ⁡ J
68 3 4 2rexfrabdioph ⊢ L ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … L / a]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ∈ Dioph ⁡ J → a ∈ ℕ 0 1 … L | ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ∈ Dioph ⁡ L
69 18 67 68 syl2anc ⊢ N ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J → a ∈ ℕ 0 1 … L | ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ φ ∈ Dioph ⁡ L
70 12 69 eqeltrid ⊢ N ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J → a ∈ ℕ 0 1 … L | [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ∈ Dioph ⁡ L
71 1 2 2rexfrabdioph ⊢ N ∈ ℕ 0 ∧ a ∈ ℕ 0 1 … L | [˙ a ↾ 1 … N / u]˙ [˙ a ⁡ M / v]˙ [˙ a ⁡ L / w]˙ ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ∈ Dioph ⁡ L → u ∈ ℕ 0 1 … N | ∃ v ∈ ℕ 0 ∃ w ∈ ℕ 0 ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ∈ Dioph ⁡ N
72 70 71 syldan ⊢ N ∈ ℕ 0 ∧ t ∈ ℕ 0 1 … J | [˙ t ↾ 1 … N / u]˙ [˙ t ⁡ M / v]˙ [˙ t ⁡ L / w]˙ [˙ t ⁡ K / x]˙ [˙ t ⁡ J / y]˙ φ ∈ Dioph ⁡ J → u ∈ ℕ 0 1 … N | ∃ v ∈ ℕ 0 ∃ w ∈ ℕ 0 ∃ x ∈ ℕ 0 ∃ y ∈ ℕ 0 φ ∈ Dioph ⁡ N