module Split: sig .. end
sig
end
type occur
val create : unit -> occur
unit -> occur
val add : occur -> Lang.F.pred -> unit
occur -> Lang.F.pred -> unit
val select : occur -> (Lang.F.pred * int) list
occur -> (Lang.F.pred * int) list