Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wf_induct_rule: consumes 1;
authorwenzelm
Thu, 22 Dec 2005 00:28:39 +0100
changeset 18458 c0794cdbc6d1
parent 18457 356a9f711899
child 18459 2b102759160d
wf_induct_rule: consumes 1;
src/HOL/Wellfounded_Recursion.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/Wellfounded_Recursion.thy	Thu Dec 22 00:28:36 2005 +0100
+++ b/src/HOL/Wellfounded_Recursion.thy	Thu Dec 22 00:28:39 2005 +0100
@@ -56,7 +56,7 @@
      |]  ==>  P(a)"
 by (unfold wf_def, blast)
 
-lemmas wf_induct_rule = wf_induct [rule_format, case_names less, induct set: wf]
+lemmas wf_induct_rule = wf_induct [rule_format, consumes 1, case_names less, induct set: wf]
 
 lemma wf_not_sym [rule_format]: "wf(r) ==> ALL x. (a,x):r --> (x,a)~:r"
 by (erule_tac a=a in wf_induct, blast)
isabelle