fact: Definition BDDor_memo_put (memo : BDDor_memo) (node1 node2 node : ad) := let m1 := match MapGet _ memo node1 with | Some y => y | None => newMap ad end in let m1' := MapPut _ m1 node2 node in MapPut _ memo node1 m1'.
imports: Bool Sumbool Arith ZArith NArith Nnat Ndec Ndigits IntMap(Allmaps) Wf_nat BDDvar_ad_nat bdd1 bdd2 bdd3 bdd4 bdd5_1 bdd5_2