| n < m, n < # ar, # ar ≤ m, ∀ n, ar, a, m0. n < # ar → fill(ar, a, m0, m)[n] = (m0 ≤ n ∧ n < m0 + m ⊃ a;ar[n]) ⊦ fill(ar, a, m0, m)[n] = (m0 ≤ n ∧ ¬ m0 + m < n ⊃ a;ar[n]), n = m0 + m, m0 + m < n |
n < m0 + m, n < m, n < # ar, # ar ≤ m, ∀ n, ar, a, m0. n < # ar → fill(ar, a, m0, m)[n] = (m0 ≤ n ∧ n < m0 + m ⊃ a;ar[n]) ⊦ fill(ar, a, m0, m)[n] = (m0 ≤ n ⊃ a;ar[n]), n = m0 + m
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≠ n → (m < n ↔ ¬ n < m); (ss)