| n < # ar, m < # ar[m, a], ∀ 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 |
n < # ar, m < # ar, ∀ 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
Used simplifier rules: ⊦ # ar[n, a] = # ar; (s)