# HG changeset patch
# User wenzelm
# Date 1329246539 -3600
# Node ID 39e412f9ffdf975c6614b4ea717b1a172a72b86c
# Parent  61c7214b4885506d8d7a28e2d34152d9ebaaed06
comment;

diff -r 61c7214b4885 -r 39e412f9ffdf src/HOL/Tools/Function/induction_schema.ML
--- 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