From 0bbe049656f4a400f65e7ef55345735148812508 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 13 Dec 2010 17:43:09 +0000
Subject: Remove an unused function with a Evd.fold in subtac

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13711 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/subtac/subtac_pretyping.ml | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'plugins')

diff --git a/plugins/subtac/subtac_pretyping.ml b/plugins/subtac/subtac_pretyping.ml
index 2fb1a7981b..2eb7408aae 100644
--- a/plugins/subtac/subtac_pretyping.ml
+++ b/plugins/subtac/subtac_pretyping.ml
@@ -62,9 +62,6 @@ let my_print_rec_info env t =
 (* 	   str " and tycon "++ my_print_tycon env tycon ++ *)
 (* 	   str " in environment: " ++ my_print_env env); *)
 
-let merge_evms x y =
-  Evd.fold (fun ev evi evm -> Evd.add evm ev evi) x y
-
 let interp env isevars c tycon =
   let j = pretype tycon env isevars ([],[]) c in
   let _ = isevars := Evarutil.nf_evar_map !isevars in
-- 
cgit v1.2.3