diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-02-24 15:48:27 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-02-24 15:48:27 +0000 |
| commit | be1619398f5b4802ebe765abf1c0c5aa27fd11bc (patch) | |
| tree | 2d0f6c3e50c380a7ea034e9f4b5db74c1ad6a2d6 /kernel/declarations.ml | |
| parent | ba76d8cfd7385998518e1626054ce3faefeac278 (diff) | |
Mod_subst: improving sharing of subst_mps
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13854 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/declarations.ml')
| -rw-r--r-- | kernel/declarations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/declarations.ml b/kernel/declarations.ml index 282dad0da..fc8064d59 100644 --- a/kernel/declarations.ml +++ b/kernel/declarations.ml @@ -210,7 +210,7 @@ type mutual_inductive_body = { } let subst_arity sub arity = - if sub = empty_subst then arity + if is_empty_subst sub then arity else match arity with | NonPolymorphicType s -> NonPolymorphicType (subst_mps sub s) | PolymorphicArity (ctx,s) -> PolymorphicArity (subst_rel_context sub ctx,s) |