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