DEFINITION r()
TYPE =
       K→nat→nat
BODY =
Show proof