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


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