X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FproofEngineTypes.ml;h=abe460775b935a5271a6cda8a5deb8e1ac5a879f;hb=7dbc6d6fe71f6967f5ad31528a629dc89e6d8160;hp=eb48ff3e8d86902f8e114ab73f0b2d3af959e39f;hpb=61a2faa2694907757dd617175e0144705e79d65a;p=helm.git

diff --git a/helm/software/components/tactics/proofEngineTypes.ml b/helm/software/components/tactics/proofEngineTypes.ml
index eb48ff3e8..abe460775 100644
--- a/helm/software/components/tactics/proofEngineTypes.ml
+++ b/helm/software/components/tactics/proofEngineTypes.ml
@@ -28,7 +28,7 @@
   (**
     current proof (proof uri * metas * (in)complete proof * term to be prooved)
   *)
-type proof = UriManager.uri option * Cic.metasenv * Cic.term * Cic.term * Cic.attribute list
+type proof = UriManager.uri option * Cic.metasenv * Cic.substitution * Cic.term * Cic.term * Cic.attribute list
   (** current goal, integer index *)
 type goal = int
 type status = proof * goal
@@ -43,8 +43,9 @@ let initial_status ty metasenv attrs =
           aux max tl
   in
   let newmeta_idx = aux 0 metasenv in
+  let _subst = [] in
   let proof =
-    None, (newmeta_idx, [], ty) :: metasenv, Cic.Meta (newmeta_idx, []), ty, attrs
+    None, (newmeta_idx, [], ty) :: metasenv, _subst, Cic.Meta (newmeta_idx, []), ty, attrs
   in
   (proof, newmeta_idx)
 
@@ -90,13 +91,13 @@ exception Fail of string Lazy.t
     calls the opaque tactic on the status
   *)
 let apply_tactic t status = 
-  let (uri,metasenv,bo,ty, attrs), gl = t status in
+  let (uri,metasenv,subst,bo,ty, attrs), gl = t status in
   match 
     CicRefine.pack_coercion_obj 
       (Cic.CurrentProof ("",metasenv,Cic.Rel ~-1,ty,[],attrs))
   with
   | Cic.CurrentProof (_,metasenv,_,ty,_, attrs) -> 
-      (uri,metasenv,bo,ty, attrs), gl
+      (uri,metasenv,subst,bo,ty, attrs), gl
   | _ -> assert false
 ;;
 
@@ -104,5 +105,5 @@ let apply_tactic t status =
 type mk_fresh_name_type =
  Cic.metasenv -> Cic.context -> Cic.name -> typ:Cic.term -> Cic.name
 
-let goals_of_proof (_,metasenv,_,_,_) = List.map (fun (g,_,_) -> g) metasenv
+let goals_of_proof (_,metasenv,_subst,_,_,_) = List.map (fun (g,_,_) -> g) metasenv