Module Context.Compacted

module Declaration : sig ... end
type ('constr, 'types) pt = ('constr'types) Declaration.pt list
val fold : (('c't) Declaration.pt -> 'a -> 'a) -> ('c't) pt -> init:'a -> 'a