From 97f2cb04e369e07dc87dc15d4871b736776614bd Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 23 May 2008 11:47:43 +0000
Subject: - Fix bug #1858, Hint Unfold calling the wrong locate function. - Fix
 typeclass interface: instance_constructor now takes the instance   constrs as
 argument to build and return the corresponding term and   type. - Better
 typeclass error reporting when defining fixpoints.

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

(limited to 'toplevel/command.ml')

diff --git a/toplevel/command.ml b/toplevel/command.ml
index 8905907a15..7be01c666c 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -843,6 +843,8 @@ let interp_recursive fixkind l boxed =
   let evd,_ = consider_remaining_unif_problems env_rec !evdref in
   let fixdefs = List.map (nf_evar (evars_of evd)) fixdefs in
   let fixtypes = List.map (nf_evar (evars_of evd)) fixtypes in
+  let evd = Typeclasses.resolve_typeclasses
+    ~onlyargs:false ~fail:true env (evars_of evd) evd in
   List.iter (check_evars env_rec Evd.empty evd) fixdefs;
   List.iter (check_evars env Evd.empty evd) fixtypes;
   check_mutuality env kind (List.combine fixnames fixdefs);
-- 
cgit v1.2.3