| n < # x + # x0 ⊦ (x + x0)[n] = (n < # x ⊃ x[n];(n < # x0 + # x ⊃ x0[n - # x];nf(n - # x - # x0))) |
n < # x + # x0 ⊦ (x + x0)[n] = (n < # x ⊃ x[n];x0[n - # x])
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic