Fixpoint BDDunivl (cfg : BDDconfig) (ul : list ad) 
 (node : ad) (ly : list BDDvar) {struct ly} : BDDconfig * ad :=
  match ly with
  | nil => (cfg, node)
  | y :: ly' =>
      match BDDunivl cfg ul node ly' with
      | (cfg1, node1) => BDDuniv cfg1 (node1 :: ul) y node1
      end
  end.

Lemma BDDunivl_is_univl : bool_fun_eq (bool_fun_of_BDD (fst (BDDunivl cfg ul node ly)) (snd (BDDunivl cfg ul node ly))) (bool_fun_univl (bool_fun_of_BDD cfg node) ly).