ex/String.ML
changeset 252 a4dc62a46ee4
parent 251 f04b33ce250f
child 253 132634d24019
--- a/ex/String.ML	Tue Oct 24 14:59:17 1995 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,22 +0,0 @@
-val string_ss = list_ss addsimps (String.nibble.simps @ String.char.simps);
-
-goal String.thy "hd(''ABCD'') = CHR ''A''";
-by(simp_tac string_ss 1);
-result();
-
-goal String.thy "hd(''ABCD'') ~= CHR ''B''";
-by(simp_tac string_ss 1);
-result();
-
-goal String.thy "''ABCD'' ~= ''ABCX''";
-by(simp_tac string_ss 1);
-result();
-
-goal String.thy "''ABCD'' = ''ABCD''";
-by(simp_tac string_ss 1);
-result();
-
-goal String.thy
-  "''ABCDEFGHIJKLMNOPQRSTUVWXYZ'' ~= ''ABCDEFGHIJKLMNOPQRSTUVWXY''";
-by(simp_tac string_ss 1);
-result();