From bde0f3038bffa660b0fc15084fb99bce42c7aa43 Mon Sep 17 00:00:00 2001 From: Amin Timany Date: Sat, 27 May 2017 09:44:38 +0200 Subject: Fix a bug in checker Universe constraints of the inductive types were not instantiated before being pushed on the environment. This commit fixes this bug. --- checker/indtypes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'checker/indtypes.ml') diff --git a/checker/indtypes.ml b/checker/indtypes.ml index 27f79e796..9ccaaa7cb 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 *) -- cgit v1.2.3