Ajout array_fold_map2Ã'

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8867 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/util.ml b/lib/util.ml
index a9d9655eda..cd7f09de33 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -642,6 +642,13 @@ else
   let v' = Array.map (fun x -> let (y,e) = f x !e' in e' := e; y) v in
   (v',!e')
 
+let array_fold_map2' f v1 v2 e =
+  let e' = ref e in
+  let v' = 
+    array_map2 (fun x1 x2 -> let (y,e) = f x1 x2 !e' in e' := e; y) v1 v2 
+  in
+  (v',!e')
+
 (* Matrices *)
 
 let matrix_transpose mat =