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


DEBUG:Going to execute:
move  =>Hf; destruct x; simpl => //