* http://helm.cs.unibo.it/
*)
+exception Parse_error of string
+
(** {2 Parsing functions} *)
val parse_term: char Stream.t -> Ast.term
(** raise a parse error *)
val fail: Ast.location -> string -> 'a
-(*
-open Disambiguate_types
-
-val main:
- context:Cic.name option list -> char Stream.t ->
- Domain.t * (interpretation -> Cic.term)
-*)
-