DEFINITION le_n_S()
TYPE =
       n:nat.m:nat.(le n m)(le (S n) (S m))
BODY =
Show proof