diff options
Diffstat (limited to 'contrib/correctness')
| -rw-r--r-- | contrib/correctness/pcic.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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 -> |