Module Letify.Split

module Split: sig .. end
Pruning strategy ; selects most occuring literals to split cases.

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