src/HOL/Bali/Example.thy
changeset 31166 a90fe83f58ea
parent 30235 58d147683393
child 31197 c1c163ec6c44
--- a/src/HOL/Bali/Example.thy	Fri May 15 10:01:57 2009 +0200
+++ b/src/HOL/Bali/Example.thy	Sat May 16 11:28:02 2009 +0200
@@ -1075,10 +1075,7 @@
 lemma max_spec_Base_foo: "max_spec tprg S (ClassT Base) \<lparr>name=foo,parTs=[NT]\<rparr> = 
   {((ClassT Base, \<lparr>access=Public,static=False,pars=[z],resT=Class Base\<rparr>)
    , [Class Base])}"
-apply (unfold max_spec_def)
-apply (simp (no_asm) add: appl_methds_Base_foo)
-apply auto
-done
+by (simp (no_asm) add: max_spec_def appl_methds_Base_foo)
 
 section "well-typedness"