Used simplifier rules: le-def: ⊦ i ≤ j ↔ ¬ j < i;% ⊦ 0 < j → (j < 2 ↔ j = 1); (s)% ⊦ ¬ i < j → (i = j ↔ ¬ j < i); (ss)