fact: Hypothesis mapl_f0 : forall x m, Ok m -> exists y, y == x /\ find x (mapl m) = obind (find x m) (fun d => f0 y (Some d) None).
imports: Coq(Bool PeanoNat BinInt FunInd Int) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)