diff options
| author | herbelin | 2008-07-25 17:27:44 +0000 |
|---|---|---|
| committer | herbelin | 2008-07-25 17:27:44 +0000 |
| commit | d1622072214a433d875cbb25abe1b3e7d929e578 (patch) | |
| tree | 6a1e65874944bcfe1203451f77dd36e66349ab73 | |
| parent | 26d532da9063cdac9c693ebed29551662158bbb3 (diff) | |
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
| -rw-r--r-- | toplevel/command.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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 *) |