Goal:
  
  ============================
   nat


DEBUG:Going to execute:
lazymatch ev with
           | S ?ev => refine (S _); push_S_refine_num ev
           | ?ev =>
               let __ := open_constr:((eq_refl : ev = S _)) in
               refine
               0
           end