sig
  type t = Src_pos.Absolute.t = { row : int; col : int; }
  val sexp_of_t : t -> Type.t
  val origin : t
  val of_lexing : Lexing.position -> t
  val diff : t -> t -> Src_pos.Relative.t
  val add : t -> Src_pos.Relative.t -> t
  val sub : t -> Src_pos.Relative.t -> t
  val geq : t -> t -> bool
end