alpha equivalence test factorized and moved to CicUtil

[helm.git] / components / tactics / primitiveTactics.ml

diff --git a/components/tactics/primitiveTactics.ml b/components/tactics/primitiveTactics.ml
index 07723ea9fe9483fd18afda332169373a7a8f6666..5310fea7e09a6638bb7b5181053748ac3fba0160 100644 (file)
--- a/components/tactics/primitiveTactics.ml
+++ b/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 =