diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-06 19:14:19 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-06 19:14:19 +0000 |
| commit | 98e20d5bc1250bf83940b7b9ea7b049e7834abfb (patch) | |
| tree | 950e570bfb1aa179165d4e785d426bbb9688b436 /contrib | |
| parent | 95d4aef96fb7b490b188afe66e8345428e9706ee (diff) | |
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
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/correctness/pcic.ml | 5 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/contrib/correctness/pcic.ml b/contrib/correctness/pcic.ml index 7394a41c5..bef1e2a23 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 72cf41ad4..3e4d486a8 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" |