From c0a71f9ff6289d99bbbcd13ef65c68f74ac9e191 Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Wed, 12 Feb 2020 10:27:13 +0100 Subject: Remove special case for implicit inductive parameters Co-authored-by: Jasper Hugunin Co-authored-by: Gaëtan Gilbert --- vernac/comAssumption.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'vernac/comAssumption.ml') diff --git a/vernac/comAssumption.ml b/vernac/comAssumption.ml index 47ae03e0a3..1e2e2e53e2 100644 --- a/vernac/comAssumption.ml +++ b/vernac/comAssumption.ml @@ -70,7 +70,8 @@ let declare_axiom is_coe ~poly ~local ~kind typ (univs, pl) imps nl {CAst.v=name (gr,inst) let interp_assumption ~program_mode sigma env impls c = - let sigma, (ty, impls) = interp_type_evars_impls ~program_mode env sigma ~impls c in + let flags = { Pretyping.all_no_fail_flags with program_mode } in + let sigma, (ty, impls) = interp_type_evars_impls ~flags env sigma ~impls c in sigma, (ty, impls) (* When monomorphic the universe constraints and universe names are -- cgit v1.2.3