aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/success/unicode_utf8.v
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2006-01-15 19:40:17 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2006-01-15 19:40:17 +0000
commitab1f9b9915059506e3982d7bee0cd4814aa70b08 (patch)
treeb76901b09234a9d69f17aac7db87d200ec0245d6 /test-suite/success/unicode_utf8.v
parentba165621b3dde41ce95f428fd7b1fa75ddd824e6 (diff)
Test utf-8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7868 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/unicode_utf8.v')
-rw-r--r--test-suite/success/unicode_utf8.v9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/success/unicode_utf8.v b/test-suite/success/unicode_utf8.v
new file mode 100644
index 000000000..e3c4dd300
--- /dev/null
+++ b/test-suite/success/unicode_utf8.v
@@ -0,0 +1,9 @@
+(* Check correct separation of identifiers followed by unicode symbols *)
+ Notation "x 〈 w" := (plus x w) (at level 30).
+ Check fun x => x〈x.
+
+(* Check Greek letters *)
+Definition test_greek : nat -> nat := fun Δ => Δ.
+
+(* Check indices *)
+Definition test_indices : nat -> nat := fun x₁ => x₁.