diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-12-13 16:17:16 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-12-13 16:17:16 +0000 |
commit | 8bddc438fa3a393a799c388843e235e2a63160fb (patch) | |
tree | 7ab0505e6e35a6c7fe69b183a14ac27183abb4b6 /theories/Unicode | |
parent | f1306fd7d7ed91d9fb3e0eb8d12fa628783ec392 (diff) |
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
Diffstat (limited to 'theories/Unicode')
-rw-r--r-- | theories/Unicode/Utf8.v | 56 |
1 files changed, 56 insertions, 0 deletions
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). +*) |