X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FprimitiveTactics.ml;h=8787b1a73c048e6b523ccf75dc85906509d64746;hb=bde29698c58eb36166753a30765a92e602e9cc78;hp=07723ea9fe9483fd18afda332169373a7a8f6666;hpb=6dd842fc0aede1ea6e345789f7051ce7cfa9c8c2;p=helm.git

diff --git a/helm/software/components/tactics/primitiveTactics.ml b/helm/software/components/tactics/primitiveTactics.ml
index 07723ea9f..8787b1a73 100644
--- a/helm/software/components/tactics/primitiveTactics.ml
+++ b/helm/software/components/tactics/primitiveTactics.ml
@@ -701,7 +701,7 @@ let cases_intros_tac ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_nam
     let n_lambdas = n_right_args + 1 in
     let lifted_ty = CicSubstitution.lift n_lambdas ty in
     let replace = ProofEngineReduction.replace_lifting
-       ~equality:(ProofEngineReduction.alpha_equivalence)
+       ~equality:(CicUtil.alpha_equivalence)
     in
     let captured_ty = 
       let what = 
@@ -711,7 +711,7 @@ let cases_intros_tac ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_nam
         let rec mkargs = function 
           | 0 -> []
           | 1 -> [Cic.Rel 1]
-          | n -> (Cic.Implicit None)::(mkargs (n-1)) 
+          | n -> (Cic.Rel n)::(mkargs (n-1)) 
         in
         mkargs n_lambdas 
       in