X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FproofEngineTypes.ml;h=56b4155ae041abeeaa5d3f7ea7ae781f0684d569;hb=7fa3bd6487683920f34871688b357f08f67ebb3d;hp=4eb043ca8aad49ad63754c8abf2c4e17f14bbc9b;hpb=185bfc8f9c9ba49308477ee6769701f3e2977115;p=helm.git

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
 ;;