Definition is_tauto (be : bool_expr) :=
  Neqb BDDone
    (fst
       (snd (BDDof_bool_expr initBDDconfig initBDDneg_memo initBDDor_memo be))).Definition is_valid (be : bool_expr) :=
  forall vb : var_binding, bool_fun_of_bool_expr be vb = true.

(* Specifications: *)
Lemma initBDDor_memo_OK : BDDor_memo_OK initBDDconfig initBDDor_memo.
Lemma initBDDneg_memo_OK : BDDneg_memo_OK initBDDconfig initBDDneg_memo.
Lemma initBDDneg_memo_OK_2 : BDDneg_memo_OK_2 initBDDconfig initBDDneg_memo.
Lemma is_tauto_is_correct : forall be : bool_expr, is_tauto be = true -> is_valid be.
Lemma is_tauto_is_complete : forall be : bool_expr, is_valid be -> is_tauto be = true.