From 3608aa2e376bf7ed1ad7d04ffe99ffde06e9775b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 1 Oct 2000 13:30:40 +0000
Subject: renommage map_constr_with_named_binders

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@622 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/minicoq.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toplevel/minicoq.ml b/toplevel/minicoq.ml
index 4305b61ce7..171f31dae4 100644
--- a/toplevel/minicoq.ml
+++ b/toplevel/minicoq.ml
@@ -33,7 +33,7 @@ let rec globalize bv c = match kind_of_term c with
       let mib = lookup_mind sp !env in mkMutInd (spi, args mib.mind_hyps)
   | IsMutConstruct ((sp,_),_ as spc, _) ->
       let mib = lookup_mind sp !env in mkMutConstruct (spc, args mib.mind_hyps)
-  | _ -> map_constr_with_binders (fun na l -> na::l) globalize bv c
+  | _ -> map_constr_with_named_binders (fun na l -> na::l) globalize bv c
 
 let check c = 
   let c = globalize [] c in
-- 
cgit v1.2.3