src/HOL/Tools/recdef_package.ML
changeset 16122 864fda4a4056
parent 15705 b5edb9dcec9a
child 16364 dc9f7066d80a
equal deleted inserted replaced
16121:a80aa66d2271 16122:864fda4a4056
   118         mk_hints (Drule.merge_rules (simps1, simps2),
   118         mk_hints (Drule.merge_rules (simps1, simps2),
   119           Library.merge_alists congs1 congs2,
   119           Library.merge_alists congs1 congs2,
   120           Drule.merge_rules (wfs1, wfs2)));
   120           Drule.merge_rules (wfs1, wfs2)));
   121 
   121 
   122   fun print sg (tab, hints) =
   122   fun print sg (tab, hints) =
   123    (Pretty.strs ("recdefs:" :: map #1 (Sign.cond_extern_table sg Sign.constK tab)) ::
   123    (Pretty.strs ("recdefs:" :: map #1 (Sign.extern_table sg Sign.constK tab)) ::
   124      pretty_hints hints) |> Pretty.chunks |> Pretty.writeln;
   124      pretty_hints hints) |> Pretty.chunks |> Pretty.writeln;
   125 end;
   125 end;
   126 
   126 
   127 structure GlobalRecdefData = TheoryDataFun(GlobalRecdefArgs);
   127 structure GlobalRecdefData = TheoryDataFun(GlobalRecdefArgs);
   128 val print_recdefs = GlobalRecdefData.print;
   128 val print_recdefs = GlobalRecdefData.print;