src/HOL/Nominal/Examples/Lambda_mu.thy
author narboux
Tue, 06 Mar 2007 16:40:32 +0100
changeset 22421 51a18dd1ea86
parent 19501 9afa7183dfc2
child 22829 f1db55c7534d
permissions -rw-r--r--
correct typo in latex output
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
18269
3f36e2165e51 some small tuning
urbanc
parents: 18106
diff changeset
     1
(* $Id$ *)
18106
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
     2
19501
9afa7183dfc2 Capitalized theory names.
berghofe
parents: 18659
diff changeset
     3
theory Lambda_mu 
9afa7183dfc2 Capitalized theory names.
berghofe
parents: 18659
diff changeset
     4
imports "../Nominal" 
18106
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
     5
begin
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
     6
18269
3f36e2165e51 some small tuning
urbanc
parents: 18106
diff changeset
     7
section {* Lambda-Mu according to a paper by Gavin Bierman *}
18106
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
     8
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
     9
atom_decl var mvar
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    10
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    11
nominal_datatype trm = Var   "var" 
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    12
                     | Lam  "\<guillemotleft>var\<guillemotright>trm"   ("Lam [_]._" [100,100] 100)
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    13
                     | App  "trm" "trm" 
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    14
                     | Pss  "mvar" "trm"
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    15
                     | Act  "\<guillemotleft>mvar\<guillemotright>trm"  ("Act [_]._" [100,100] 100)
836135c8acb2 Initial commit.
urbanc
parents:
diff changeset
    16
19501
9afa7183dfc2 Capitalized theory names.
berghofe
parents: 18659
diff changeset
    17
end