DEFINITION le_plus_r()
TYPE =
       n:nat.m:nat.(le m (plus n m))
BODY =
Show proof