From 98e20d5bc1250bf83940b7b9ea7b049e7834abfb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 6 Sep 2003 19:14:19 +0000
Subject: Mise en place possibilité de définitions locales dans les paramètres
 des records

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4322 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/correctness/pcic.ml | 5 ++++-
 contrib/interface/xlate.ml  | 3 ++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'contrib')

diff --git a/contrib/correctness/pcic.ml b/contrib/correctness/pcic.ml
index 7394a41c5d..bef1e2a23c 100644
--- a/contrib/correctness/pcic.ml
+++ b/contrib/correctness/pcic.ml
@@ -47,7 +47,10 @@ let ast_set = CSort (dummy_loc,RProp Pos)
 let tuple_n n =
   let id = make_ident "tuple_" (Some n) in
   let l1n = Util.interval 1 n in
-  let params = List.map (fun i -> (make_ident "T" (Some i), ast_set)) l1n in
+  let params =
+    List.map (fun i ->
+      (LocalRawAssum ([dummy_loc,Name (make_ident "T" (Some i))], ast_set)))
+      l1n in
   let fields = 
     List.map
       (fun i -> 
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index 72cf41ad45..3e4d486a8f 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1508,7 +1508,8 @@ let xlate_vernac =
       CT_record
        ((if add_coercion then CT_coercion_atm else
           CT_coerce_NONE_to_COERCION_OPT(CT_none)),
-        xlate_ident s, cvt_vernac_binders binders, xlate_sort c1, record_constructor,
+        xlate_ident s, xlate_binder_list binders, 
+	xlate_sort c1, record_constructor,
          build_record_field_list field_list)
 
   |    VernacRecord _ -> xlate_error "TODO: Record in a defined sort"
-- 
cgit v1.2.3