Goal:
  
  ============================
   (() -> nat)


DEBUG:Going to execute:
let t := fresh in
           intro t; case t; clear t