From 208e7b9690337ada5598b0c9751928c1eae9bb6e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 25 Jan 2002 18:45:50 +0000
Subject: 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
---
 theories/ZArith/Zsyntax.v | 3 +++
 1 file changed, 3 insertions(+)

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)) ]
-- 
cgit v1.2.3