From 9ebf44d84754adc5b64fcf612c6816c02c80462d Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Sat, 2 Feb 2019 19:29:23 -0500 Subject: Imported Upstream version 8.9.0 --- checker/environ.mli | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'checker/environ.mli') diff --git a/checker/environ.mli b/checker/environ.mli index 81da8387..af1b2a62 100644 --- a/checker/environ.mli +++ b/checker/environ.mli @@ -57,8 +57,8 @@ exception NotEvaluableConst of const_evaluation_result val constant_value : env -> Constant.t puniverses -> constr val evaluable_constant : Constant.t -> env -> bool -val is_projection : Constant.t -> env -> bool -val lookup_projection : Projection.t -> env -> projection_body +(** NB: here in the checker we check the inferred info (npars, label) *) +val lookup_projection : Projection.t -> env -> constr (* Inductives *) val mind_equiv : env -> inductive -> inductive -> bool -- cgit v1.2.3