| n∞ = ⌜m0⌝ ⊦ (σ to∞ ⌜m⌝ + n∞) from m = (σ from m) to∞ n∞, # σ < ⌜m⌝ + n∞ |
⊦ (σ to m0 + m) from m = (σ from m) to m0, # σ < ⌜m⌝ + ⌜m0⌝
Used simplifier rules: toinf-add: ⊦ σ to∞ ⌜n⌝ + ⌜m⌝ = σ to n + m;%toinf-fin: ⊦ σ to∞ ⌜n⌝ = σ to n;%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf