das

let unionMap :(MultibagMap<'a>*MultibagMap<'a>) -> MultibagMap<'a> = function
    |mbm1,mbm2 -> Map.foldBack (fun m1 m2 map -> (m1,(Map.find m1 (insertMap m1 m2 mbm2))::map) mbm1 []