| author | lcp |
| Thu, 06 Apr 1995 11:49:42 +0200 | |
| changeset 246 | 0f9230a24164 |
| parent 91 | a94029edb01f |
| permissions | -rw-r--r-- |
|
56
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
1 |
(* Title: HOL/ex/pl0.thy |
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
2 |
ID: $Id$ |
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
3 |
Author: Tobias Nipkow |
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
4 |
Copyright 1994 TU Muenchen |
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
5 |
|
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
6 |
Syntax of propositional logic formulae. |
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
7 |
*) |
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
8 |
|
|
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
9 |
PL0 = HOL + |
| 81 | 10 |
datatype |
|
91
a94029edb01f
added mixfix annotations to constructor declarations
clasohm
parents:
81
diff
changeset
|
11 |
'a pl = false | var ('a) ("#_") | "->" ('a pl,'a pl) (infixr 90)
|
|
56
385d51d74f71
Used Datatype functor to define propositional logic terms.
nipkow
parents:
diff
changeset
|
12 |
end |