From b2a962c342c74e96dc81e9eca30515282864620c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 8 Mar 2005 22:03:21 +0000
Subject: Ajout fold

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6811 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/evd.ml  | 1 +
 pretyping/evd.mli | 1 +
 2 files changed, 2 insertions(+)

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index 111cc9d7c6..dbcfae0e86 100644
--- a/pretyping/evd.ml
+++ b/pretyping/evd.ml
@@ -44,6 +44,7 @@ let map evc k = Evarmap.find k evc
 let rmv evc k = Evarmap.remove k evc
 let remap evc k i = Evarmap.add k i evc
 let in_dom evc k = Evarmap.mem k evc
+let fold = Evarmap.fold
 
 let add evd ev newinfo =  Evarmap.add ev newinfo evd
 
diff --git a/pretyping/evd.mli b/pretyping/evd.mli
index 435efa4998..d321e332a1 100644
--- a/pretyping/evd.mli
+++ b/pretyping/evd.mli
@@ -46,6 +46,7 @@ val rmv : evar_map -> evar -> evar_map
 val remap : evar_map -> evar -> evar_info -> evar_map
 val in_dom : evar_map -> evar -> bool
 val to_list : evar_map -> (evar * evar_info) list
+val fold : (evar -> evar_info -> 'a -> 'a) -> evar_map -> 'a -> 'a
 
 val define : evar_map -> evar -> constr -> evar_map
 
-- 
cgit v1.2.3