diff options
| author | barras | 2004-01-09 19:02:58 +0000 |
|---|---|---|
| committer | barras | 2004-01-09 19:02:58 +0000 |
| commit | b1bd8f2a50863a6ca77b6f05b3f1756648cfe936 (patch) | |
| tree | f9ab63c12f45c28bcc9320712e401c6ef32f26a1 /contrib/correctness | |
| parent | c4bc84f02c7d22402824514d70c6d5e66f511bfc (diff) | |
bugs avec Pose et Assert
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5190 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness')
| -rw-r--r-- | contrib/correctness/pcic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/correctness/pcic.ml b/contrib/correctness/pcic.ml index 77d516a136..8fb0ca5171 100644 --- a/contrib/correctness/pcic.ml +++ b/contrib/correctness/pcic.ml @@ -56,7 +56,7 @@ 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 ((dummy_loc,id), mkIdentC id'))) + (false, Vernacexpr.AssumExpr ((dummy_loc,Name id), mkIdentC id'))) l1n in let cons = make_ident "Build_tuple_" (Some n) in |