diff options
| author | Gaëtan Gilbert | 2019-12-30 19:19:32 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-01-15 13:43:35 +0100 |
| commit | 73c3b874633d6f6f8af831d4a37d0c1ae52575bc (patch) | |
| tree | 3ca8004e6f295b6812b1f585d12f64fde01ef909 /checker | |
| parent | f3a6d9dce4d1c291dbaa03bd0e4ed5f33646bff0 (diff) | |
Discharge inductive types without rechecking them
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/checkInductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/checkInductive.ml b/checker/checkInductive.ml index cd00bf35ee..e606d60d96 100644 --- a/checker/checkInductive.ml +++ b/checker/checkInductive.ml @@ -73,7 +73,7 @@ let check_arity env ar1 ar2 = match ar1, ar2 with List.equal (Option.equal Univ.Level.equal) ar.template_param_levels template_param_levels && UGraph.check_leq (universes env) template_level ar.template_level (* template_level is inferred by indtypes, so functor application can produce a smaller one *) - | (RegularArity _ | TemplateArity _), _ -> false + | (RegularArity _ | TemplateArity _), _ -> assert false let check_kelim k1 k2 = Sorts.family_leq k1 k2 |