diff options
| author | herbelin | 2002-12-02 18:25:44 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-02 18:25:44 +0000 |
| commit | 3e782e81b1bec6b34b3a172cb5b951f7ec101041 (patch) | |
| tree | 9af55bf0b9df428896eeb78b6afef16ff02dc74b | |
| parent | e4110b17d1b0e6779e0ec4976e4b5f972c45d0e3 (diff) | |
Z_scope doit annuler l'affichage de = entre
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3349 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | theories/ZArith/Zsyntax.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/ZArith/Zsyntax.v b/theories/ZArith/Zsyntax.v index 68cb6dd54d..8d65afb680 100644 --- a/theories/ZArith/Zsyntax.v +++ b/theories/ZArith/Zsyntax.v @@ -250,6 +250,11 @@ Notation "x <> y" := ~(eq Z x y) (at level 5) : Z_scope. (* Notation "| x |" (Zabs x) : Z_scope.(* "|" conflicts with THENS *)*) Notation "|| x ||" := (Zabs x) (at level 1) : Z_scope. +(* Overwrite the printing of "`x = y`" *) +Syntax constr level 0: + Zeq [ (eq Z $n1 $n2) ] -> [[<hov 0> $n1 [1 0] "= " $n2 ]]. + + (* Warning: this hides sum and prod and breaks sumor symbolic notation *) Open Scope Z_scope. |