| mon<(⌜nl0⌝ + ⌜m '⌝ ), ⌜n⌝ < # rem(⌜nl0⌝ , np), rem(⌜nl0⌝ , np)[n + 1] ≤ rem(⌜nl0⌝ , np)[n], ⌜n⌝ + ⌜1⌝ < # rem(⌜nl0⌝ , np), ∀ n. ⌜n⌝ + ⌜1⌝ < # rem(⌜nl0⌝ , np) → rem(⌜nl0⌝ , np)[n] < rem(⌜nl0⌝ , np)[n + 1], ∀ nl1, np. # nl1 < #(nl0 + m ') → mon<(⌜nl1⌝ ) → mon<(rem(⌜nl1⌝ , np)) ⊦ np(# nl0) |
Used simplifier rules: le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat Used terms: n