Used simplifier rules: lels-02: ⊦ m ≠ n → (m ≤ n ↔ m < n);%lels-01: ⊦ ¬ m ≤ n ↔ n < m;%ls-02: ⊦ m < n → ¬ n < m; from specification nat-basic1