simp [compare, Ord.compare, compareOfLessAndEq] at h
n m : Nat
h : compare n m = Ordering.gt
⊢ lt m n
n m : Nat
h : (if n < m then Ordering.lt else if n = m then Ordering.eq else Ordering.gt) = Ordering.gt
⊢ lt m n