DEFINITION lift()
TYPE =
       nat→nat→T→T
BODY =
Show proof