DEFINITION lt()
TYPE =
       natnatProp
BODY =
λn:nat.λm:nat.le (S n) m