diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-08 17:14:29 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-08 17:14:29 +0000 |
commit | 4a4785b9b8a2b24324bdfe92855b1c1b7aeca9cd (patch) | |
tree | 4cfb2ee089c6912ba15a51cdd022e05d630306d8 /parsing/g_rsyntax.ml | |
parent | a4f64ba3e82546d2cc57b6c2be4bad0d52364863 (diff) |
Automatisation de l'utilisation de token primitifs dans les motifs de filtrage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7818 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_rsyntax.ml')
-rw-r--r-- | parsing/g_rsyntax.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/parsing/g_rsyntax.ml b/parsing/g_rsyntax.ml index fb5be2896..3cfa3f104 100644 --- a/parsing/g_rsyntax.ml +++ b/parsing/g_rsyntax.ml @@ -111,8 +111,9 @@ let uninterp_r p = let _ = Notation.declare_numeral_interpreter "R_scope" (glob_R,["Coq";"Reals";"Rdefinitions"]) - (r_of_int,None) + r_of_int ([RRef(dummy_loc,glob_Ropp);RRef(dummy_loc,glob_R0); - RRef(dummy_loc,glob_Rplus);RRef(dummy_loc,glob_Rmult);RRef(dummy_loc,glob_R1)], + RRef(dummy_loc,glob_Rplus);RRef(dummy_loc,glob_Rmult); + RRef(dummy_loc,glob_R1)], uninterp_r, - None) + false) |