sig
  val get :
    (Datatype.String.Set.t -> cast_intro:bool -> Project.t) Pervasives.ref
  val compute : (unit -> unit) Pervasives.ref
end