| changeset 9941 | fe05af7ec816 |
| parent 9906 | 5c027cca6262 |
| child 11639 | 4213422388c4 |
--- a/src/HOL/Lambda/InductTermi.thy Tue Sep 12 19:03:13 2000 +0200 +++ b/src/HOL/Lambda/InductTermi.thy Tue Sep 12 22:13:23 2000 +0200 @@ -26,7 +26,7 @@ subsection {* Every term in IT terminates *} -lemma double_induction_lemma [rulified]: +lemma double_induction_lemma [rule_format]: "s : termi beta ==> \<forall>t. t : termi beta --> (\<forall>r ss. t = r[s/0] $$ ss --> Abs r $ s $$ ss : termi beta)" apply (erule acc_induct)