diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:24:21 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:24:21 +0000 |
| commit | 8b53aaee5e54f1f66e3d0c032387593c40e6a63e (patch) | |
| tree | d193238610533e3c7232f7fa2e6063bd2db5c302 /kernel | |
| parent | cde1b816313b9d5b060c5325797d6ba493c68708 (diff) | |
Indtypes: remove useless and wrong generic equality test on constr array
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14315 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/indtypes.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 0798bf18a..77fd062be 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -591,7 +591,6 @@ let build_inductive env env_ar params isrecord isfinite inds nmr recargs cst = (* Type of constructors in normal form *) let splayed_lc = Array.map (dest_prod_assum env_ar) lc in let nf_lc = Array.map (fun (d,b) -> it_mkProd_or_LetIn b d) splayed_lc in - let nf_lc = if nf_lc = lc then lc else nf_lc in let consnrealargs = Array.map (fun (d,_) -> rel_context_length d - rel_context_length params) splayed_lc in |