-module FotermIndexable : Discrimination_tree.Indexable
-with type constant_name = C.t and
- type input = C.t Terms.foterm
+ module DT : Discrimination_tree.DiscriminationTree with
+ type constant_name = B.t and
+ type input = B.t Terms.foterm and
+ type data = ClauseSet.elt and
+ type dataset = ClauseSet.t
+
+ val index_unit_clause :
+ int -> DT.t -> B.t Terms.unit_clause -> DT.t