Goal:
    A : Type  f : nat → A  m : nat  IHm : #|unfold m f| = m
  ============================
   (#|unfold m f| + 1 = S m)


DEBUG:Going to execute:
intros