Goal:
    A : Type  p : A → bool  l : list A
  ============================
   (forallb p (List.rev l) = forallb p l)


DEBUG:Going to execute:
induction l using rev_ind; simpl