DEFINITION lt_plus_minus()
TYPE =
       x:nat.y:nat.(lt x y)(eq nat y (S (plus x (minus y (S x)))))
BODY =
Show proof