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

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