S
type t = context
val id : t -> string
val hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int