| # ar = n0 + m + 1, m < # ar, m < n, n ≤ # ar ⊦ rev(ar, n)[m] = ar[n0] |
# ar = n0 + m + 1, m < n1 +1, m < # ar, n1 +1 ≤ # ar, ∀ ar, n0, m. # ar = n0 + m + 1 ∧ m < # ar ∧ m < n1 ∧ n1 ≤ # ar → rev(ar, n1)[m] = ar[n0] ⊦ rev(ar, n1 +1)[m] = ar[n0]
Used simplifier rules: nat freely generated by 0, +1;;% ⊦ 0 ≤ m; (s)% ⊦ ¬ m < 0; (s)