module SYSTEM:State_builder.Ref
(
Datatype.Make
(
sig
include Datatype.Undefinedtypet =
Wpo.system
val name :string
val reprs :Wpo.system list
val mem_project :(Project_skeleton.t -> bool) -> 'a -> bool
end
)
)
(
sig
end
)
include State_builder.S
type
data
val set : data -> unit
val get : unit -> data
val clear : unit -> unit