From 67fe536720c5ef5bb509249b9a30cbc6f2cebd92 Mon Sep 17 00:00:00 2001
From: bertot
Date: Thu, 26 Feb 2004 13:35:24 +0000
Subject: Keep structure information for Fixpoint declaration and Fix terms

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

(limited to 'toplevel/command.ml')

diff --git a/toplevel/command.ml b/toplevel/command.ml
index 5c0b5818c5..46de560b46 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -447,16 +447,16 @@ let collect_non_rec env =
   in 
   searchrec [] 
 
-let build_recursive lnameargsardef =
-  let lrecnames = List.map (fun ((f,_,_,_),_) -> f) lnameargsardef 
+let build_recursive (lnameargsardef:(fixpoint_expr *decl_notation) list)  =
+  let lrecnames = List.map (fun ((f,_,_,_,_),_) -> f) lnameargsardef 
   and sigma = Evd.empty
   and env0 = Global.env()
-  and nv = Array.of_list (List.map (fun ((_,n,_,_),_) -> n) lnameargsardef) in
+  and nv = Array.of_list (List.map (fun ((_,n,_,_,_),_) -> n) lnameargsardef) in
   let fs = States.freeze() in
   (* Declare the notations for the recursive types pushed in local context*)
   let (rec_sign,arityl) = 
     List.fold_left 
-      (fun (env,arl) ((recname,_,arityc,_),_) -> 
+      (fun (env,arl) ((recname,_,_,arityc,_),_) -> 
         let arity = interp_type sigma env0 arityc in
         (Environ.push_named (recname,None,arity) env, (arity::arl)))
       (env0,[]) lnameargsardef in
@@ -479,7 +479,7 @@ let build_recursive lnameargsardef =
 	      (Lib.cwd(),SectionLocalAssum arity, IsAssumption Definitional) in
 	    ()) lrecnames arityl;
 	List.map2
-	  (fun ((_,_,_,def),_) arity ->
+	  (fun ((_,_,_,_,def),_) arity ->
             interp_casted_constr sigma rec_sign def arity)
           lnameargsardef arityl
       with e ->
-- 
cgit v1.2.3