| ⊦ ⌜m⌝ < n∞ → (¬ ⌜m⌝ + ⌜1⌝ < n∞ ↔ ⌜m⌝ + ⌜1⌝ = n∞) |
Used simplifier rules: add-ls-cancel-num-04: ⊦ m ≤ n → (⌜(* m)⌝ + n∞2 < ⌜(* n)⌝ + n∞1 ↔ n∞2 < ⌜n - m⌝ + n∞1);%add-all-zero: ⊦ n∞ + ⌜0⌝ = n∞;%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2;%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1;%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n;%less-less-leftsucc: ⊦ n∞ < n∞0 → (¬ n∞ + ⌜1⌝ < n∞0 ↔ ¬ ¬(n∞ + ⌜1⌝ = n∞0 ∧ n∞ ≠ ∞));%ref-1: ⊦ ¬ n < n; from specification nat-basic1