src/ZF/Tools/datatype_package.ML

--- a/src/ZF/Tools/datatype_package.ML	Tue Jan 19 11:16:39 1999 +0100
+++ b/src/ZF/Tools/datatype_package.ML	Tue Jan 19 11:18:11 1999 +0100
@@ -380,6 +380,7 @@
         {big_rec_name = big_rec_name,
 	 constructors = constructors,
             (*let primrec handle definition by cases*)
+	 free_iffs = free_iffs,
 	 rec_rewrites = (case recursor_eqns of
 			     [] => case_eqns | _ => recursor_eqns)};