changeset 26806 | 40b411ec05aa |
parent 23757 | 087b0a241557 |
child 27611 | 2c01c0bdb385 |
--- a/src/HOL/MicroJava/BV/Listn.thy Wed May 07 10:56:58 2008 +0200 +++ b/src/HOL/MicroJava/BV/Listn.thy Wed May 07 10:57:19 2008 +0200 @@ -330,7 +330,7 @@ apply (rename_tac m n) apply (case_tac "m=n") apply simp - apply (fast intro!: equals0I [to_pred bot_empty_eq] dest: not_sym) + apply (fast intro!: equals0I [to_pred bot_empty_eq pred_equals_eq] dest: not_sym) apply clarify apply (rename_tac n) apply (induct_tac n)