Used simplifier rules: gen: ⊦ ;%disj: ⊦ ⌜m⌝ ≠ ∞;%less-inf1: ⊦ ¬ ∞ < n∞;%less-inf2: ⊦ ⌜m⌝ < ∞;%inj: ⊦ ⌜m⌝ = ⌜m0⌝ ↔ m = m0;%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n;% ⊦ m ≠ n → (m < n ↔ ¬ n < m); (ss)% ⊦ m < n → ¬ n < m; (s)