∀[m:ℕ]. ∀[n:ℕm]. (upto(m)[n] ~ n)
{ (InstLemma `select_upto` [] THEN RepeatFor 2 (ParallelLast)) }
1. ∀[m:ℕ]. ∀[n:ℕm]. (upto(m)[n] = n ∈ ℤ)
2. [m] : ℕ
3. ∀[n:ℕm]. (upto(m)[n] = n ∈ ℤ)
4. [n] : ℕm
5. upto(m)[n] = n ∈ ℤ
⊢ upto(m)[n] ~ n