Goal:
    A : Type  f : A -> bool  g : A -> bool  Hf : forall x : A, f x -> g x
  ============================
   (foroptb f None -> foroptb g None)


DEBUG:Going to execute:
PTRDEBUGTACtrivial; hnf; intros