Fixed wrong types in proof terms

[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 74b5366db396b5dee570fc213415a35f1764cca8..307154127269847e22ce56570ae6f7f5199027f3 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.status;
 }
 
 type lowtactic = lowtac_status -> int -> lowtac_status 
@@ -50,6 +50,9 @@ 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: 
@@ -60,7 +63,6 @@ val refine:
 val apply_subst:
   lowtac_status -> NCic.context -> cic_term -> lowtac_status * cic_term
 
-
 val get_goalty: lowtac_status -> int -> cic_term
 val mk_meta: 
    lowtac_status -> ?name:string -> NCic.context ->