DEFINITION le_S_n()
TYPE =
       ∀n:nat.∀m:nat.(le (S n) (S m))→(le n m)
BODY =
Show proof