diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-28 23:02:54 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-28 23:02:54 +0000 |
| commit | e641aeeef1cde745561593b7ef9edb0112712cbf (patch) | |
| tree | 1cde8e071c8f19a8da7ec48598eda58628b3ade5 /contrib/correctness | |
| parent | e8fd8c89c43b2b1d00be631e888a1371cf05d0c0 (diff) | |
Court-circuit de g_zsyntax
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3329 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness')
| -rw-r--r-- | contrib/correctness/psyntax.ml4 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/correctness/psyntax.ml4 b/contrib/correctness/psyntax.ml4 index 8e4c9b2bd..9e3e8a1bb 100644 --- a/contrib/correctness/psyntax.ml4 +++ b/contrib/correctness/psyntax.ml4 @@ -94,8 +94,9 @@ module Programs = open Programs -let ast_of_int n = - G_zsyntax.z_of_string true n dummy_loc +let ast_of_int n = + CDelimiters + (dummy_loc, "Z", CNumeral (dummy_loc, Bignat.POS (Bignat.of_string n))) let constr_of_int n = Constrintern.interp_constr Evd.empty (Global.env ()) (ast_of_int n) |