X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FmatitaGuiTypes.mli;h=f2376406a07009a1f03aa17fb87c0dd4aa0708dd;hb=c83721701dbbd44d3d547fdec6c4a5658322f424;hp=fb8c1f14a0b1c09ad5144b8c23a59d29db2b2583;hpb=c3fc204cc02f1031b5d17fb0f2be1fc01e5c452f;p=helm.git

diff --git a/helm/software/matita/matitaGuiTypes.mli b/helm/software/matita/matitaGuiTypes.mli
index fb8c1f14a..f2376406a 100644
--- a/helm/software/matita/matitaGuiTypes.mli
+++ b/helm/software/matita/matitaGuiTypes.mli
@@ -124,10 +124,11 @@ object
 
     (** load a sequent and render it into parent widget *)
   method load_sequent: Cic.metasenv -> int -> unit
-  method nload_sequent: NCic.metasenv -> NCic.substitution -> int -> unit
+  method nload_sequent:
+   #NCicCoercion.status -> NCic.metasenv -> NCic.substitution -> int -> unit
 
   method load_object: Cic.obj -> unit
-  method load_nobject: NCic.obj -> unit
+  method load_nobject: #NCicCoercion.status -> NCic.obj -> unit
 end
 
 class type sequentsViewer =
@@ -135,9 +136,11 @@ object
   method reset: unit
   method load_logo: unit
   method load_logo_with_qed: unit
-  method load_sequents: GrafiteTypes.incomplete_proof -> unit
+  method load_sequents:
+   #NCicCoercion.status -> GrafiteTypes.incomplete_proof -> unit
   method nload_sequents: #NTacStatus.tac_status -> unit
-  method goto_sequent: int -> unit  (* to be called _after_ load_sequents *)
+  method goto_sequent:
+   #NCicCoercion.status -> int -> unit (* to be called _after_ load_sequents *)
 
   method cicMathView: cicMathView
 end