DEFINITION le_lt_trans()
TYPE =
       n:nat.m:nat.p:nat.(le n m)(lt m p)(lt n p)
BODY =
Show proof