From 001ae6f91d8eb2e847e0bf8a1ed04cac12321c3e Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 18 Jul 2002 18:47:03 +0000
Subject: New files.

---
 etc/isar/XSymbolTests.thy | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 etc/isar/XSymbolTests.thy

diff --git a/etc/isar/XSymbolTests.thy b/etc/isar/XSymbolTests.thy
new file mode 100644
index 00000000..7402ed81
--- /dev/null
+++ b/etc/isar/XSymbolTests.thy
@@ -0,0 +1,36 @@
+(* Some checks for X-Symbol behaviour.  
+   $Id$
+*)
+
+theory XSymbolTests = Main:
+
+constdefs
+ P1 :: bool   ("P\<^sub>1")    (* subscript *)
+ "P\<^sub>1 == True"
+
+theorem "P\<^sub>1";    (* check subscript appears in goals window *)
+by (simp add: P1_def)  (* .. and response window *)
+
+consts
+ "P\<^sup>\<alpha>" :: bool   (* superscript of a token char *)
+ "\<^bold>X"  :: bool   (* bold character *)
+
+
+
+(* 
+ Another X-Symbol oddity: sometimes the _first_ buffer to
+ be visited displays _some_ characters wrongly, e.g. \234 
+ for \<circ>.  But subsequent buffers to be visited work
+ fine.  Problem is stable for turning x-symbol on/off.
+ Revisting the first buffer cures the problem.
+*)
+
+consts
+  iter :: "('a => 'a) => nat => ('a => 'a)"
+primrec
+  "iter f 0 = id"
+  "iter f (Suc n) = f \<circ> (iter f n)"
+
+
+end
+
-- 
cgit v1.2.3