diff options
author | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:26:12 +0000 |
---|---|---|
committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:26:12 +0000 |
commit | 95baa2c64e032be61eb0a2f319bdc2efdb3b9183 (patch) | |
tree | 1ba5b448dc24962714da886305a90d782a30f2fd /tactics/eqschemes.ml | |
parent | 574bdce32385d8c787db15e2df82dda3f838e48f (diff) |
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
Diffstat (limited to 'tactics/eqschemes.ml')
-rw-r--r-- | tactics/eqschemes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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) |