From 8cf4e04fa817cf7ff9d73cb5cb7fff8b3b950387 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 18 Oct 2008 15:57:24 +0000
Subject: Optimisation de clenv.ml pour que meta_instance ne soit pas appelé
 abusivement sur les clauses. Nettoyage au passage de metamap qui était
 utilisé à la fois pour les substitutions de meta et pour les contextes de
 typage de meta.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11467 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/termops.mli | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'pretyping/termops.mli')

diff --git a/pretyping/termops.mli b/pretyping/termops.mli
index 15751b91c0..e9516ec486 100644
--- a/pretyping/termops.mli
+++ b/pretyping/termops.mli
@@ -105,8 +105,11 @@ val free_rels : constr -> Intset.t
 val dependent : constr -> constr -> bool
 val collect_metas : constr -> int list
 (* Substitution of metavariables *)
-type metamap = (metavariable * constr) list 
-val subst_meta : metamap -> constr -> constr
+type meta_value_map = (metavariable * constr) list 
+val subst_meta : meta_value_map -> constr -> constr
+
+(* Type assignment for metavariables *)
+type meta_type_map = (metavariable * types) list 
 
 (* [pop c] lifts by -1 the positive indexes in [c] *)
 val pop : constr -> constr
-- 
cgit v1.2.3