Module S.Partition

type nonrec t = {
lt : t;
mid : t;
gt : t;
}