diff options
Diffstat (limited to 'contrib/correctness/pcic.ml')
| -rw-r--r-- | contrib/correctness/pcic.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/correctness/pcic.ml b/contrib/correctness/pcic.ml index db2617da3..77d516a13 100644 --- a/contrib/correctness/pcic.ml +++ b/contrib/correctness/pcic.ml @@ -56,11 +56,12 @@ let tuple_n n = (fun i -> let id = make_ident ("proj_" ^ string_of_int n ^ "_") (Some i) in let id' = make_ident "T" (Some i) in - (false, Vernacexpr.AssumExpr (id, mkIdentC id'))) + (false, Vernacexpr.AssumExpr ((dummy_loc,id), mkIdentC id'))) l1n in let cons = make_ident "Build_tuple_" (Some n) in - Record.definition_structure ((false, id), params, fields, cons, mk_Set) + Record.definition_structure + ((false, (dummy_loc,id)), params, fields, cons, mk_Set) (*s [(sig_n n)] generates the inductive \begin{verbatim} |