From 95baa2c64e032be61eb0a2f319bdc2efdb3b9183 Mon Sep 17 00:00:00 2001 From: puech Date: Fri, 29 Jul 2011 14:26:12 +0000 Subject: Eqschemes: generic equality on constr replaced by eq_constr git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14333 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/eqschemes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tactics/eqschemes.ml') diff --git a/tactics/eqschemes.ml b/tactics/eqschemes.ml index 670763566..779fe265b 100644 --- a/tactics/eqschemes.ml +++ b/tactics/eqschemes.ml @@ -108,7 +108,7 @@ let get_sym_eq_data env ind = let _,params2 = list_chop (mib.mind_nparams-mip.mind_nrealargs) params in let paramsctxt1,_ = list_chop (mib.mind_nparams-mip.mind_nrealargs) mib.mind_params_ctxt in - if params2 <> constrargs then + if not (list_equal eq_constr params2 constrargs) then error "Constructors arguments must repeat the parameters."; (* nrealargs_ctxt and nrealargs are the same here *) (specif,mip.mind_nrealargs,realsign,mib.mind_params_ctxt,paramsctxt1) -- cgit v1.2.3