(** multiset union *)

(* Specifications: *)
Lemma munion_empty_left : forall x:multiset, meq x (munion EmptyBag x).
Lemma munion_empty_right : forall x:multiset, meq x (munion x EmptyBag).
Lemma munion_comm : forall x y:multiset, meq (munion x y) (munion y x).
Lemma munion_ass :
forall x y z:multiset, meq (munion (munion x y) z) (munion x (munion y z)).
Lemma meq_left :
forall x y z:multiset, meq x y -> meq (munion x z) (munion y z).
Lemma meq_right :
forall x y z:multiset, meq x y -> meq (munion z x) (munion z y).