added (and used) some type shorthands

diff --git a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
index e867d3435c500cfc620bda538c88f0bc8a44b016..e6b1ff7e1fefc597b7b09314a60d36051c6a1e34 100644 (file)
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -25,20 +25,13 @@
 
 exception Parse_error of string
 
-(** {3 type shortands} *)
-
-type tactic = (CicAst.term, string) TacticAst.tactic
-type tactical = (CicAst.term, string) TacticAst.tactic TacticAst.tactical
-type command = CicAst.term CommandAst.command
-type script = CicAst.term CommandAst.Script.script
-
 (** {2 Parsing functions} *)
 
-val parse_term:     char Stream.t -> CicAst.term
-val parse_tactic:   char Stream.t -> tactic
-val parse_tactical: char Stream.t -> tactical
-val parse_command:  char Stream.t -> command
-val parse_script:   char Stream.t -> script
+val parse_term:     char Stream.t -> DisambiguateTypes.term
+val parse_tactic:   char Stream.t -> DisambiguateTypes.tactic
+val parse_tactical: char Stream.t -> DisambiguateTypes.tactical
+val parse_command:  char Stream.t -> DisambiguateTypes.command
+val parse_script:   char Stream.t -> DisambiguateTypes.script
 
 (** {2 Grammar extensions} *)
 

diff --git a/helm/ocaml/cic_disambiguation/disambiguateTypes.mli b/helm/ocaml/cic_disambiguation/disambiguateTypes.mli
index 523fe4b70838e7835d674480346dba9ea0da4428..58458d1ffa5d008618755828d766ae2ed454bbb1 100644 (file)
--- a/helm/ocaml/cic_disambiguation/disambiguateTypes.mli
+++ b/helm/ocaml/cic_disambiguation/disambiguateTypes.mli
@@ -53,3 +53,11 @@ module type Callbacks =
 val string_of_domain_item: domain_item -> string
 val string_of_domain: domain_item list -> string
 
+(** {3 type shortands} *)
+
+type term = CicAst.term
+type tactic = (term, string) TacticAst.tactic
+type tactical = (term, string) TacticAst.tactic TacticAst.tactical
+type command = term CommandAst.command
+type script = term CommandAst.Script.script
+