--- a/src/HOL/Tools/inductive_realizer.ML Wed Sep 05 17:12:40 2012 +0200
+++ b/src/HOL/Tools/inductive_realizer.ML Wed Sep 05 19:51:00 2012 +0200
@@ -355,7 +355,7 @@
val (ind_info, thy3') = thy2 |>
Inductive.add_inductive_global
{quiet_mode = false, verbose = false, alt_name = Binding.empty, coind = false,
- no_elim = false, no_ind = false, skip_mono = false, fork_mono = false}
+ no_elim = false, no_ind = false, skip_mono = false}
rlzpreds rlzparams (map (fn (rintr, intr) =>
((Binding.name (Long_Name.base_name (name_of_thm intr)), []),
subst_atomic rlzpreds' (Logic.unvarify_global rintr)))