DEFINITION plus_n_Sm()
TYPE =
       n:nat.m:nat.(eq nat (S (plus n m)) (plus n (S m)))
BODY =
Show proof