--- a/Nominal/Ex/CoreHaskell.thy	Mon Sep 20 21:52:45 2010 +0800
+++ b/Nominal/Ex/CoreHaskell.thy	Wed Sep 22 14:19:48 2010 +0800
@@ -8,8 +8,6 @@
 atom_decl cvar
 atom_decl tvar
 
-declare [[STEPS = 31]]
-
 nominal_datatype core_haskell: 
  tkind =
   KStar
@@ -97,6 +95,7 @@
 thm core_haskell.eq_iff
 thm core_haskell.fv_bn_eqvt
 thm core_haskell.size_eqvt
+thm core_haskell.supp
 
 (*
 lemma fresh_star_minus_perm: "as \<sharp>* - p = as \<sharp>* (p :: perm)"