From cd29948855c2cbd3f4065170e41f8dbe625e1921 Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Sat, 9 Sep 2017 14:00:42 +0200 Subject: Don't lose names in UState.universe_context. We dont care about the order of the binder map ([map] in the code) so no need to do tricky things with it. --- engine/uState.mli | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'engine/uState.mli') diff --git a/engine/uState.mli b/engine/uState.mli index 0b67bb71f..21145e7e6 100644 --- a/engine/uState.mli +++ b/engine/uState.mli @@ -120,7 +120,13 @@ val normalize : t -> t (** {5 TODO: Document me} *) -val universe_context : ?names:(Id.t Loc.located) list -> t -> (Id.t * Univ.Level.t) list * Univ.universe_context +val universe_context : names:(Id.t Loc.located) list -> extensible:bool -> t -> + (Id.t * Univ.Level.t) list * Univ.universe_context + +type universe_decl = + (Names.Id.t Loc.located list, Univ.Constraint.t) Misctypes.gen_universe_decl + +val check_univ_decl : t -> universe_decl -> Universes.universe_binders * Univ.universe_context val update_sigma_env : t -> Environ.env -> t -- cgit v1.2.3