Used simplifier rules: mod-eq: ⊦ m < n → m % n = m;%mod-le-03: n ≠ 0 ⊦ ¬ n ≤ m % n;%let: ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m ≤ m; (s)