fact: Definition BDDalloc (cfg : BDDconfig) (x : BDDvar) (l r : ad) := match cfg with | (bs, (share, counter)) => let share' := BDDshare_put share x l r counter in let bs' := MapPut _ bs counter (x, (l, r)) in let counter' := ad_S counter in (bs', (share', counter'), counter) end.
imports: Bool Sumbool Arith ZArith NArith Nnat Ndec Ndigits IntMap(Allmaps) Wf_nat BDDvar_ad_nat