hopefully fixed cases implementation

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

diff --git a/helm/software/components/tactics/tacticals.ml b/helm/software/components/tactics/tacticals.ml
index 28bd71b2da5901c199114dde8ce8bacf79aaa17f..c6fbc36a40594cf0b3aa0f23fede5cf72f48ae1b 100644 (file)
--- a/helm/software/components/tactics/tacticals.ml
+++ b/helm/software/components/tactics/tacticals.ml
@@ -42,7 +42,7 @@ module PET = ProofEngineTypes
 
 let id_tac = 
  let id_tac (proof,goal) = 
-  let _, metasenv, _, _ = proof in
+  let _, metasenv, _, _, _ = proof in
   let _, _, _ = CicUtil.lookup_meta goal metasenv in
   (proof,[goal])
  in 
@@ -50,7 +50,7 @@ let id_tac =
 
 let fail_tac =
  let fail_tac (proof,goal) =
-  let _, metasenv, _, _ = proof in
+  let _, metasenv, _, _, _ = proof in
   let _, _, _ = CicUtil.lookup_meta goal metasenv in
    raise (PET.Fail (lazy "fail tactical"))
  in
@@ -293,7 +293,7 @@ struct
   let progress_tactic ~tactic =
     let msg = lazy "Failed to progress" in
     let get_sequent (proof, goal) =
-      let (_, metasenv, _, _) = proof in
+      let (_, metasenv, _, _, _) = proof in
       let _, context, ty = CicUtil.lookup_meta goal metasenv in
       context, ty
     in