* http://helm.cs.unibo.it/
*)
-exception Parse_error of string
+exception Parse_error of Token.flocation * string
(** {2 Parsing functions} *)
-val parse_term: char Stream.t -> CicAst.term
+val parse_term: char Stream.t -> DisambiguateTypes.term
+val parse_statement: char Stream.t -> (CicAst.term, string) TacticAst.statement
(** {2 Grammar extensions} *)
-val term: CicAst.term Grammar.Entry.e (** recursive rule *)
-val term0: CicAst.term Grammar.Entry.e (** top level rule *)
+val term: CicAst.term Grammar.Entry.e (** recursive rule *)
+val term0: CicAst.term Grammar.Entry.e (** top level rule *)
val return_term: CicAst.location -> CicAst.term -> CicAst.term