fact: Definition merge' m m' := let m0 : t oee' := combine m m' in let m1 : t (option elt'') := mapi (fun k p => f k (fst p) (snd p)) m0 in fold_right_pair (option_cons (A:=elt'')) m1 nil.
imports: Coq(OrdersFacts OrdersLists)