diff options
| author | Matthieu Sozeau | 2014-09-05 20:27:37 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-09-05 20:27:37 +0200 |
| commit | 66acf05f6fd0a35b7d9a0d425983c36dbe2cc992 (patch) | |
| tree | d67a1ead218ca15becb33b605426cb5429323b60 /kernel | |
| parent | 0d7cd6eebd5b681f7dcb243e3cda4466e735e025 (diff) | |
Fix checker treatment of inductives using subst_instances instead of subst_univs_levels.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 202f6232da..fd65d7de50 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -2003,7 +2003,6 @@ let subst_univs_constraints subst csts = (fun c cstrs -> subst_univs_constraint subst c cstrs) csts Constraint.empty - let subst_instance_level s l = match l.Level.data with | Level.Var n -> s.(n) |