X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fmatita%2FmatitaTypes.ml;h=8ee007d47fa6d9e1192cf6d01e616bfee232b849;hb=7c123bfb1568f90f37cd667332fbf60d4423b983;hp=df21e09f44583c58c22db32f729f8a73765451c2;hpb=6fa89cef6aa8fc1774db065a9fcfc47867579054;p=helm.git

diff --git a/helm/matita/matitaTypes.ml b/helm/matita/matitaTypes.ml
index df21e09f4..8ee007d47 100644
--- 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;
 }