| m < # lpt, n ≤ m ⊦ replay-lpt(lpt, nx, n)[m] = lpt[m] |
n < # lpt, m < # lpt, n ≤ m ⊦ replay-lpt(lpt, nx, n)[m] = lpt[m]
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic