diff options
author | Gerwin Klein <gerwin.klein@nicta.com.au> | 2004-04-05 02:24:19 +0000 |
---|---|---|
committer | Gerwin Klein <gerwin.klein@nicta.com.au> | 2004-04-05 02:24:19 +0000 |
commit | a8e3cd658dc5d298905d353b652561bb1c44f976 (patch) | |
tree | a1e63d02e9e29b6374c7ff5932cb63d7efe52a1d /etc | |
parent | 740e86abdcfa35c46e8b6004b9af0df186e1d089 (diff) |
new test case for \<^isub>
Diffstat (limited to 'etc')
-rw-r--r-- | etc/isar/XSymbolTests.thy | 3 |
1 files changed, 2 insertions, 1 deletions
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 "\<forall> x. a\<^sup>x" (* x should be a green bound variable *) +term "\<forall>x. a\<^sup>x" (* x should be a green bound variable *) term "a\<^sup>k" (* k should be a black constant *) +term "\<alpha>\<^isub>2" (* alpha should be blue variable with subscripted blue 2 *) consts sausage:: "'a => 'a => 'a" ("_\<^bsup>_\<^esup>" [1000,1000] 1000) |