type conclusion = (int * int) option
-val classify: Cic.term -> S.t list * conclusion
-
-val aclassify: Cic.annterm -> S.t list * conclusion
+val classify: Cic.context -> Cic.term -> S.t list * conclusion
val to_string: S.t list * conclusion -> string