| ¬ # σ0 < ⌜m⌝ ⊦ ¬ ⌜m⌝ < # σ0 → σ0 + σ from m = σ from (m - (# σ0).n) |
⌜m⌝ = # σ0 ⊦ σ0 + σ from m = σ
Used simplifier rules: from-zero: ⊦ σ from 0 = σ;%ler: ⊦ m ≤ m; from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf%zero: ⊦ m - m = 0; from specification nat%sel: ⊦ ⌜m⌝ .n = m; from specification nat-inf-basic%lele-refl: ⊦ ¬ n∞1 < n∞ → (¬ n∞ < n∞1 ↔ n∞ = n∞1); from specification nat-inf