sig
  type t = eqn
  val compare : t -> t -> int
  val fprintf : t Useful.fprintf
end