src/HOL/Lex/Prefix.thy
author nipkow
Sat, 18 Nov 1995 14:55:44 +0100
changeset 1344 f172a7f14e49
child 1476 608483c2122a
permissions -rw-r--r--
Half a lexical analyzer generator.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1344
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     1
(*  Title: 	HOL/Lex/Prefix.thy
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     2
    ID:         $Id$
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     3
    Author: 	Tobias Nipkow
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     4
    Copyright   1995 TUM
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     5
*)
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     6
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     7
Prefix = List +
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     8
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
     9
arities list :: (term)ord
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
    10
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
    11
defs
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
    12
	prefix_def     "xs <= zs  ==  ? ys. zs = xs@ys"
f172a7f14e49 Half a lexical analyzer generator.
nipkow
parents:
diff changeset
    13
end