sig
  type t = { x : int; y : int; }
  val zero : Wlc.Geometry.Origin.t
  val min :
    Wlc.Geometry.Origin.t -> Wlc.Geometry.Origin.t -> Wlc.Geometry.Origin.t
  val max :
    Wlc.Geometry.Origin.t -> Wlc.Geometry.Origin.t -> Wlc.Geometry.Origin.t
end