| # ar = n2 + n1 + 1, n1 < # ar, ∀ ar, n0, m. # ar = n0 + m + 1 ∧ m < n1 ∧ n1 ≤ # ar ∧ m < # ar → # ar = 0 ∨ rev(ar, n1)[m] = ar[n0] ∨ n1 = 0 ⊦ rev(ar, n1)[n1, ar[n2]][n1] = ar[n2], # ar = 0 |
⊦ m < # ar → ar[m, a][m] = a
¬ n1 < # rev(ar, n1), # ar = n2 + n1 + 1, n1 < # ar, ∀ ar, n0, m. # ar = n0 + m + 1 ∧ m < n1 ∧ n1 ≤ # ar ∧ m < # ar → # ar = 0 ∨ rev(ar, n1)[m] = ar[n0] ∨ n1 = 0 ⊦ rev(ar, n1)[n1, ar[n2]][n1] = ar[n2], # ar = 0
Used terms: ar[n2], n1, rev(ar, n1)