equal
deleted
inserted
replaced
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; |