From 8bddc438fa3a393a799c388843e235e2a63160fb Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 13 Dec 2007 16:17:16 +0000
Subject: migration of ide/utf8.v to theories/Unicode/Utf8.v

These notations aren't CoqIDE-specific, I can now use them with
ProofGeneral (after a small modification of PG, contact me if you're
interested by the patch). So let's place this file in a globally
visible subdir of theories/. By the way, the filename is now uppercase
as all other .v files.

By the way, minor other changes in Makefile : extraction/test doesn't
exist anymore, and tags / otags can be made without re-doing any find.
NB: be sure to use etags that comes from emacs and not the one of
exuberant-ctags, since the latter has now a different syntax
(in debian, see update-alternatives etags).



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10376 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Unicode/Utf8.v | 56 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 theories/Unicode/Utf8.v

(limited to 'theories/Unicode')

diff --git a/theories/Unicode/Utf8.v b/theories/Unicode/Utf8.v
new file mode 100644
index 000000000..0a0a3b95d
--- /dev/null
+++ b/theories/Unicode/Utf8.v
@@ -0,0 +1,56 @@
+(* -*- coding:utf-8 -* *)
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+(* Logic *)
+Notation "∀ x , P" := 
+  (forall x , P) (at level 200, x ident) : type_scope.
+Notation "∀ x y , P" := 
+  (forall x y , P) (at level 200, x ident, y ident) : type_scope.
+Notation "∀ x y z , P" := 
+  (forall x y z , P) (at level 200, x ident, y ident, z ident) : type_scope.
+Notation "∀ x y z u , P" := 
+  (forall x y z u , P) (at level 200, x ident, y ident, z ident, u ident) : type_scope.
+Notation "∀ x : t , P" := 
+  (forall x : t , P) (at level 200, x ident) : type_scope.
+Notation "∀ x y : t , P" := 
+  (forall x y : t , P) (at level 200, x ident, y ident) : type_scope.
+Notation "∀ x y z : t , P" := 
+  (forall x y z : t , P) (at level 200, x ident, y ident, z ident) : type_scope.
+Notation "∀ x y z u : t , P" := 
+  (forall x y z u : t , P) (at level 200, x ident, y ident, z ident, u ident) : type_scope.
+
+Notation "∃ x , P" := (exists x , P) (at level 200, x ident) : type_scope.
+Notation "∃ x : t , P" := (exists x : t, P) (at level 200, x ident) : type_scope.
+
+Notation "x ∨ y" := (x \/ y) (at level 85, right associativity) : type_scope.
+Notation "x ∧ y" := (x /\ y) (at level 80, right associativity) : type_scope.
+Notation "x → y" := (x -> y) (at level 90, right associativity): type_scope.
+Notation "x ↔ y" := (x <-> y) (at level 95, no associativity): type_scope.
+Notation "⌉ x" := (~x) (at level 75, right associativity) : type_scope.
+Notation "x ≠ y" := (x <> y) (at level 70) : type_scope.
+
+(* Abstraction *)
+(* Not nice
+Notation  "'λ' x : T , y" := ([x:T] y) (at level 1, x,T,y at level 10).
+Notation  "'λ' x := T , y" := ([x:=T] y) (at level 1, x,T,y at level 10).
+*)
+
+(* Arithmetic *)
+Notation "x ≤ y" := (le x y) (at level 70, no associativity).
+Notation "x ≥ y" := (ge x y) (at level 70, no associativity).
+
+(* test *)
+(*
+Goal ∀ x, True -> (∃ y , x ≥ y + 1) ∨ x ≤ 0.
+*)
+
+(* Integer Arithmetic *)
+(* TODO: this should come after ZArith
+Notation "x ≤ y" := (Zle x y) (at level 1, y at level 10).
+*)
-- 
cgit v1.2.3