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