module ADTDecl:Register
(
sig
include LTinfoId
val declare :Cil_types.logic_type_info -> 'a -> 'b Formula.item
val section :Formula.section
val clear :unit -> unit
end
)
typet =
D.t
val get_definition : t -> Datalib.Create.F.pred Formula.declaration
val define : t -> unit
val on_definition : (t ->
Datalib.Create.F.pred Formula.declaration -> unit) ->
unit