From a8e3cd658dc5d298905d353b652561bb1c44f976 Mon Sep 17 00:00:00 2001 From: Gerwin Klein Date: Mon, 5 Apr 2004 02:24:19 +0000 Subject: new test case for \<^isub> --- etc/isar/XSymbolTests.thy | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'etc') diff --git a/etc/isar/XSymbolTests.thy b/etc/isar/XSymbolTests.thy index 632f6dfc..8862cee2 100644 --- a/etc/isar/XSymbolTests.thy +++ b/etc/isar/XSymbolTests.thy @@ -17,8 +17,9 @@ consts silly:: "'a => 'a => 'a" ("_\<^sup>_" [1000,1000] 1000) consts k:: 'a term "a\<^sup>b" (* b should be a blue variable *) -term "\ x. a\<^sup>x" (* x should be a green bound variable *) +term "\x. a\<^sup>x" (* x should be a green bound variable *) term "a\<^sup>k" (* k should be a black constant *) +term "\\<^isub>2" (* alpha should be blue variable with subscripted blue 2 *) consts sausage:: "'a => 'a => 'a" ("_\<^bsup>_\<^esup>" [1000,1000] 1000) -- cgit v1.2.3