From d1622072214a433d875cbb25abe1b3e7d929e578 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 25 Jul 2008 17:27:44 +0000
Subject: Fixed bug #1904 (instances of evars were no longer substituted since
 the context of fixpoint was typechecked binder per binder and not as whole)

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

diff --git a/toplevel/command.ml b/toplevel/command.ml
index d245dcbc1e..3b68780b74 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -827,6 +827,7 @@ let interp_recursive fixkind l boxed =
     List.split (List.map (interp_fix_context evdref env) fixl) in
   let fixccls = List.map2 (interp_fix_ccl evdref) fixctxs fixl in
   let fixtypes = List.map2 build_fix_type fixctxs fixccls in
+  let fixtypes = List.map (nf_evar (evars_of !evdref)) fixtypes in
   let env_rec = push_named_types env fixnames fixtypes in
 
   (* Get interpretation metadatas *)
-- 
cgit v1.2.3