- decompose tactic: decomposable constants are now allowed (they are unfolded)

[helm.git] / helm / software / components / tactics / proofEngineTypes.ml

diff --git a/helm/software/components/tactics/proofEngineTypes.ml b/helm/software/components/tactics/proofEngineTypes.ml
index 4eb043ca8aad49ad63754c8abf2c4e17f14bbc9b..b887c4bcd9a4ad03348d717d3c51dc4421be371e 100644 (file)
--- a/helm/software/components/tactics/proofEngineTypes.ml
+++ b/helm/software/components/tactics/proofEngineTypes.ml
@@ -79,7 +79,7 @@ let conclusion_pattern t =
   let t' = 
     match t with
     | None -> None
-    | Some t -> Some (fun _ m u -> t, m, u)
+    | Some t -> Some (const_lazy_term t)
   in
   t',[],Some (Cic.Implicit (Some `Hole))
 
@@ -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
 ;;