Goal:
    A : Type  p : A → bool  q : A → bool  hpq : p =1 q  l : list A
  ============================
   (forallb p l = forallb q l)


DEBUG:Going to execute:
induction l; simpl