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