From ae44b65793be9fd821dbf48389144d93dbd7d58f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 17 Apr 2003 16:33:07 +0000
Subject: Syntaxe 'x=y:>T'

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3940 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/LogicSyntax.v | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/theories/Init/LogicSyntax.v b/theories/Init/LogicSyntax.v
index 8326de6f83..483221be2b 100644
--- a/theories/Init/LogicSyntax.v
+++ b/theories/Init/LogicSyntax.v
@@ -17,7 +17,9 @@ Notation "< P , Q > { p , q }" := (conj P Q p q) (P annot, at level 1).
 
 Notation "~ x" := (not x) (at level 5, right associativity)
   V8only (at level 55, right associativity).
+Notation "x = y  :> T" := (!eq T x y) (at level 5, y at next level, no associativity).
 Notation "x = y" := (eq ? x y) (at level 5, no associativity).
+Notation "x <> y  :> T" := (not (!eq T x y)) (at level 5, y at next level, no associativity).
 Notation "x <> y" := (not (eq ? x y)) (at level 5, no associativity).
 
 Infix RIGHTA 6 "/\\" and.
-- 
cgit v1.2.3