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