# ar = n0 + n + 1, n < # ar ⊦ # ar = 0, ar[# ar - n + 1] = ar[n0]
Used simplifier rules: ler: ⊦ m ≤ m; from specification nat