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


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