From 1792dd8245b13e0093c99a993299e11621062773 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 17 Feb 2006 14:53:33 +0000
Subject: [PATCH] tentative speedup not coercion-packing the proof after every
 step

---
 helm/software/components/tactics/proofEngineTypes.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm/software/components/tactics/proofEngineTypes.ml b/helm/software/components/tactics/proofEngineTypes.ml
index 4eb043ca8..56b4155ae 100644
--- a/helm/software/components/tactics/proofEngineTypes.ml
+++ b/helm/software/components/tactics/proofEngineTypes.ml
@@ -93,9 +93,9 @@ let apply_tactic t status =
   let (uri,metasenv,bo,ty), gl = t status in
   match 
     CicRefine.pack_coercion_obj 
-      (Cic.CurrentProof ("",metasenv,bo,ty,[],[]))
+      (Cic.CurrentProof ("",metasenv,Cic.Rel ~-1,ty,[],[]))
   with
-  | Cic.CurrentProof (_,metasenv,bo,ty,_,_) -> 
+  | Cic.CurrentProof (_,metasenv,_,ty,_,_) -> 
       (uri,metasenv,bo,ty), gl
   | _ -> assert false
 ;;
-- 
2.39.2