--- a/Nominal/ExTySch.thy Sat Mar 27 06:51:13 2010 +0100
+++ b/Nominal/ExTySch.thy Sat Mar 27 08:11:11 2010 +0100
@@ -5,6 +5,7 @@
(* Type Schemes *)
atom_decl name
+(*ML {* val _ = alpha_type := AlphaRes *}*)
nominal_datatype t =
Var "name"
| Fun "t" "t"