Definition BDDmake :=
if Neqb l r
then (cfg, l)
else
match MapGet3 _ (fst (snd cfg)) l r x with
| Some y => (cfg, y)
| None => BDDalloc gc cfg x l r ul
end.

Lemma BDDmake_node_height_le :
Nleb (node_height (fst BDDmake) (snd BDDmake)) (ad_S x) = true.