Definition forall_ (x : BDDvar) (be : bool_expr) : bool_expr :=
  ANd (restrict x true be) (restrict x false be).Definition be_ex (x : BDDvar) (be : bool_expr) : bool_expr :=
  Or (restrict x true be) (restrict x false be).

Lemma forall_OK : forall (x : BDDvar) (be : bool_expr), bool_fun_eq (bool_fun_of_bool_expr (forall_ x be)) (bool_fun_forall x (bool_fun_of_bool_expr be)).