From b8b835cbb7ce5fa12a60184fd83fbde2082d51b3 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 21 Nov 2019 09:23:47 +0100
Subject: Use the relevance flag in CClosure rel contexts in an efficient way.

Rels that exist inside the environment at the time of the closure creation
are fetched in the global environment, while we only use the local list of
relevance for FRels. All the infrastructure was implicitly relying on this
kind of behaviour before the introduction of SProp.

Fixes #11150: pattern is 10x slower in Coq 8.10.0
---
 kernel/retypeops.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/retypeops.mli')

diff --git a/kernel/retypeops.mli b/kernel/retypeops.mli
index f4497be44b..dd4513959f 100644
--- a/kernel/retypeops.mli
+++ b/kernel/retypeops.mli
@@ -14,14 +14,14 @@
 
 val relevance_of_term : Environ.env -> Constr.constr -> Sorts.relevance
 
-val relevance_of_fterm : Environ.env -> Sorts.relevance list ->
+val relevance_of_fterm : Environ.env -> Sorts.relevance Range.t ->
   Esubst.lift -> CClosure.fconstr ->
   Sorts.relevance
 
 
 (** Helpers *)
 open Names
-val relevance_of_rel_extra : Environ.env -> Sorts.relevance list -> int -> Sorts.relevance
+val relevance_of_rel : Environ.env -> int -> Sorts.relevance
 val relevance_of_var : Environ.env -> Id.t -> Sorts.relevance
 val relevance_of_constant : Environ.env -> Constant.t -> Sorts.relevance
 val relevance_of_constructor : Environ.env -> constructor -> Sorts.relevance
-- 
cgit v1.2.3