Coercion hiding implemented. Notes:

[helm.git] / helm / software / matita / matitaGuiTypes.mli

diff --git a/helm/software/matita/matitaGuiTypes.mli b/helm/software/matita/matitaGuiTypes.mli
index fb8c1f14a0b1c09ad5144b8c23a59d29db2b2583..f2376406a07009a1f03aa17fb87c0dd4aa0708dd 100644 (file)
--- 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