From e368bcd7e16fda4d011ad2c960c647c7da72bcb6 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Fri, 29 Aug 2014 00:50:08 +0200 Subject: Add test-suite file. Compute the name for the record binder in the eta-expanded version of a projection as before. --- kernel/indtypes.mli | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'kernel/indtypes.mli') diff --git a/kernel/indtypes.mli b/kernel/indtypes.mli index 85e6a6327..0d5b03404 100644 --- a/kernel/indtypes.mli +++ b/kernel/indtypes.mli @@ -41,6 +41,7 @@ val check_inductive : env -> mutual_inductive -> mutual_inductive_entry -> mutua val enforce_indices_matter : unit -> unit val is_indices_matter : unit -> bool -val compute_projections : pinductive -> int -> Context.rel_context -> int array -> int array -> +val compute_projections : pinductive -> Id.t -> + int -> Context.rel_context -> int array -> int array -> Context.rel_context -> (constant array * projection_body array) -- cgit v1.2.3