diff options
| author | Maxime Dénès | 2017-05-29 10:44:16 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-29 10:44:16 +0200 |
| commit | eefda76f6f42674fb342e1aa5f1dcf29569a4806 (patch) | |
| tree | 259991dd06bb09c68ce05b13ddcc236c9db92135 | |
| parent | 7c44f6de91390c16bedee8475e46c538f52f2c00 (diff) | |
| parent | bde0f3038bffa660b0fc15084fb99bce42c7aa43 (diff) | |
Merge PR#685: Fix a bug in checker
| -rw-r--r-- | checker/indtypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/indtypes.ml b/checker/indtypes.ml index 27f79e7963..9ccaaa7cbb 100644 --- a/checker/indtypes.ml +++ b/checker/indtypes.ml @@ -530,7 +530,7 @@ let check_positivity env_ar mind params nrecp inds = let check_inductive env kn mib = Flags.if_verbose Feedback.msg_notice (str " checking ind: " ++ MutInd.print kn); (* check mind_constraints: should be consistent with env *) - let env = add_constraints (Univ.UContext.constraints mib.mind_universes) env in + let env = Environ.push_context (Univ.instantiate_univ_context mib.mind_universes) env in (* check mind_record : TODO ? check #constructor = 1 ? *) (* check mind_finite : always OK *) (* check mind_ntypes *) |