diff -r cb3612cc41a3 -r fc075ae929e4 src/HOL/MicroJava/J/WellForm.thy --- a/src/HOL/MicroJava/J/WellForm.thy Sun Jan 30 20:48:50 2005 +0100 +++ b/src/HOL/MicroJava/J/WellForm.thy Tue Feb 01 18:01:57 2005 +0100 @@ -542,17 +542,13 @@ apply hypsubst apply simp apply (erule conjE) -apply (subst method_rec) - apply (assumption) - apply (assumption) +apply (simplesubst method_rec, assumption+) apply (clarify) apply (erule_tac x = "Da" in allE) apply (clarsimp) apply (simp add: map_of_map) apply (clarify) - apply (subst method_rec) - apply (assumption) - apply (assumption) + apply (subst method_rec, assumption+) apply (simp add: map_add_def map_of_map split add: option.split) done @@ -566,17 +562,13 @@ apply hypsubst apply simp apply (erule conjE) -apply (subst method_rec) - apply (assumption) - apply (assumption) +apply (simplesubst method_rec, assumption+) apply (clarify) apply (erule_tac x = "Da" in allE) apply (clarsimp) apply (simp add: map_of_map) apply (clarify) - apply (subst method_rec) - apply (assumption) - apply (assumption) + apply (subst method_rec, assumption+) apply (simp add: map_add_def map_of_map split add: option.split) done