huge commit regarding the grafite_status:

[helm.git] / helm / software / components / ng_tactics / nTacStatus.mli

diff --git a/helm/software/components/ng_tactics/nTacStatus.mli b/helm/software/components/ng_tactics/nTacStatus.mli
index 81436f53d63c48f5f534c8618efe8a796dbd6e68..cf94862ebd7ef922670e29c27333b5a0a3f16f2c 100644 (file)
--- a/helm/software/components/ng_tactics/nTacStatus.mli
+++ b/helm/software/components/ng_tactics/nTacStatus.mli
@@ -16,7 +16,7 @@ val fail: string lazy_t -> 'a
 
 type lowtac_status = {
         pstatus : NCic.obj;
-        lstatus : LexiconEngine.status
+        estatus : NEstatus.extra_status;
 }
 
 type lowtactic = lowtac_status -> int -> lowtac_status 
@@ -46,9 +46,13 @@ val analyse_indty:
     lowtac_status * 
       (NReference.reference * int * NCic.term list * NCic.term list)
 
+val ppterm: lowtac_status -> cic_term -> string
 val whd: 
       lowtac_status -> ?delta:int -> NCic.context -> cic_term -> 
         lowtac_status * cic_term 
+val normalize: 
+      lowtac_status -> ?delta:int -> NCic.context -> cic_term ->
+        lowtac_status * cic_term 
 val typeof: 
       lowtac_status -> NCic.context -> cic_term -> lowtac_status * cic_term
 val unify: 
@@ -56,6 +60,8 @@ val unify:
 val refine: 
   lowtac_status -> NCic.context -> cic_term -> cic_term option -> 
     lowtac_status * cic_term * cic_term (* status, term, type *)
+val apply_subst:
+  lowtac_status -> NCic.context -> cic_term -> lowtac_status * cic_term
 
 val get_goalty: lowtac_status -> int -> cic_term
 val mk_meta: