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.
comment;
authorwenzelm
Tue, 14 Feb 2012 20:08:59 +0100
changeset 46467 39e412f9ffdf
parent 46466 61c7214b4885
child 46468 4db76d47b51a
comment;
src/HOL/Tools/Function/induction_schema.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/Function/induction_schema.ML	Tue Feb 14 19:51:39 2012 +0100
+++ b/src/HOL/Tools/Function/induction_schema.ML	Tue Feb 14 20:08:59 2012 +0100
@@ -344,6 +344,7 @@
 
 
 fun mk_ind_tac comp_tac pres_tac term_tac ctxt facts =
+  (* FIXME proper use of facts!? *)
   (ALLGOALS (Method.insert_tac facts)) THEN HEADGOAL (SUBGOAL (fn (t, i) =>
   let
     val (ctxt', _, cases, concl) = dest_hhf ctxt t
isabelle