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