src/HOL/ex/StringEx.ML
author wenzelm
Mon, 16 Nov 1998 10:41:08 +0100
changeset 5869 b279a84ac11c
parent 5278 a903b66822e2
child 8035 84c5ce912b43
permissions -rw-r--r--
added read;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5199
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     1
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     2
Goal "hd(''ABCD'') = CHR ''A''";
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     3
by (Simp_tac 1);
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     4
result();
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     5
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     6
Goal "hd(''ABCD'') ~= CHR ''B''";
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     7
by (Simp_tac 1);
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     8
result();
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
     9
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    10
Goal "''ABCD'' ~= ''ABCX''";
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    11
by (Simp_tac 1);
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    12
result();
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    13
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    14
Goal "''ABCD'' = ''ABCD''";
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    15
by (Simp_tac 1);
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    16
result();
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    17
5278
a903b66822e2 even more tidying of Goal commands
paulson
parents: 5199
diff changeset
    18
Goal "''ABCDEFGHIJKLMNOPQRSTUVWXYZ'' ~= ''ABCDEFGHIJKLMNOPQRSTUVWXY''";
5199
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    19
by (Simp_tac 1);
be986f7a6def added ex/MonoidGroups (record example);
wenzelm
parents:
diff changeset
    20
result();