From 7a39bd5650cc49c5c77788fb42fe2caaf35dfdac Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 6 May 2008 14:05:20 +0000
Subject: Postpone the search for the recursive argument index from the user
 given name after internalisation, to get the correct behavior with typeclass
 binders. This simplifies the pretty printing and translation of the recursive
 argument name in various places too. Use this opportunity to factorize the
 different internalization and interpretation functions of binders as well.
 This definitely fixes part 2 of bug #1846 and makes it possible to use
 fixpoint definitions with typeclass arguments in program too, with an example
 given in EquivDec. At the same time, one fix and one enhancement in Program:
 - fix a de Bruijn bug in subtac_cases - introduce locations of obligations
 and use them in case the obligation tactic raises a failure when tried on a
 particular obligation, as suggested by Sean Wilson.

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

(limited to 'interp/topconstr.mli')

diff --git a/interp/topconstr.mli b/interp/topconstr.mli
index 3094be0e9d..f56550dd5a 100644
--- a/interp/topconstr.mli
+++ b/interp/topconstr.mli
@@ -136,7 +136,7 @@ type constr_expr =
   | CDynamic of loc * Dyn.t
 
 and fixpoint_expr =
-    identifier * (int option * recursion_order_expr) * local_binder list * constr_expr * constr_expr
+    identifier * (identifier located option * recursion_order_expr) * local_binder list * constr_expr * constr_expr
 
 and cofixpoint_expr =
     identifier * local_binder list * constr_expr * constr_expr
-- 
cgit v1.2.3