From 24d0027f0344bca7abce3b8fa8c2a1e42ecf1a00 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Sat, 13 Sep 2014 10:44:40 +0200 Subject: Providing a -type-in-type option for collapsing the universe hierarchy. --- kernel/environ.mli | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'kernel/environ.mli') diff --git a/kernel/environ.mli b/kernel/environ.mli index 1523f40d1..7f3fdc536 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -50,6 +50,8 @@ val named_context_val : env -> named_context_val val engagement : env -> engagement option val is_impredicative_set : env -> bool +val type_in_type : env -> bool + (** is the local context empty *) val empty_context : env -> bool @@ -210,6 +212,8 @@ val push_constraints_to_env : 'a Univ.constrained -> env -> env val set_engagement : engagement -> env -> env +val set_type_in_type : env -> env + (** {6 Sets of referred section variables } [global_vars_set env c] returns the list of [id]'s occurring either directly as [Var id] in [c] or indirectly as a section variable -- cgit v1.2.3