diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-01-25 18:45:50 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-01-25 18:45:50 +0000 |
commit | 208e7b9690337ada5598b0c9751928c1eae9bb6e (patch) | |
tree | 19f7d30a7da42364b002301ee6baa1205cc02561 /theories | |
parent | 19254a1b6c811d3372e1853b0cfb61cafef5e69c (diff) |
Bug affichage de O (de nat) dans une expression sur Z
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2439 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
-rw-r--r-- | theories/ZArith/Zsyntax.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/theories/ZArith/Zsyntax.v b/theories/ZArith/Zsyntax.v index 12c7e017c..2b01710e9 100644 --- a/theories/ZArith/Zsyntax.v +++ b/theories/ZArith/Zsyntax.v @@ -172,6 +172,9 @@ Syntax constr -> [(MUTIND $i $n)] | mutconstruct_inside [ << (ZEXPR (MUTCONSTRUCT $c1 $c2 $c3)) >> ] -> [ (MUTCONSTRUCT $c1 $c2 $c3) ] + + | O_inside [ << (ZEXPR << O >>) >> ] -> [ "O" ] (* To shunt Arith printer *) + (* Added by JCF, 9/3/98; updated HH, 11/9/01 *) | implicit_head_inside [ << (ZEXPR (APPLISTEXPL ($LIST $c))) >> ] -> [ (APPLIST ($LIST $c)) ] |