Module SP := MSetList.Make SetOfPairsOfPositiveOrderedType.
(* Module SP := MSetAVL.Make SetOfPairsOfPositiveOrderedType. *)
Module PosOrder <: TotalLeBool.
Definition t := positive.
Definition leb := Pos.leb.

Lemma leb_dec : forall p1 p2,
leb p1 p2 = true \/ leb p1 p2 = false.