removed dead code (thanks to ocaml 3.09)

[helm.git] / helm / matita / matitaTypes.ml

diff --git a/helm/matita/matitaTypes.ml b/helm/matita/matitaTypes.ml
index df21e09f44583c58c22db32f729f8a73765451c2..8ee007d47fa6d9e1192cf6d01e616bfee232b849 100644 (file)
--- a/helm/matita/matitaTypes.ml
+++ b/helm/matita/matitaTypes.ml
@@ -62,7 +62,7 @@ type option_value =
 type options = option_value StringMap.t
 let no_options = StringMap.empty
 
-type ast_command = (CicNotationPt.term, GrafiteAst.obj) GrafiteAst.command
+type ast_command = (CicNotationPt.term, CicNotationPt.obj) GrafiteAst.command
 type moo = ast_command list * GrafiteAst.metadata list
 
 type status = {
@@ -72,6 +72,7 @@ type status = {
   proof_status: proof_status;
   options: options;
   objects: (UriManager.uri * string) list;
+  coercions: UriManager.uri list;
   notation_ids: CicNotation.notation_id list;
 }