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 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'contrib/correctness')

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 -> 
-- 
cgit v1.2.3