diff options
| author | herbelin | 2002-01-25 18:45:50 +0000 |
|---|---|---|
| committer | herbelin | 2002-01-25 18:45:50 +0000 |
| commit | 208e7b9690337ada5598b0c9751928c1eae9bb6e (patch) | |
| tree | 19f7d30a7da42364b002301ee6baa1205cc02561 | |
| 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
| -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 12c7e017cd..2b01710e96 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)) ] |