equal
deleted
inserted
replaced
177 val extend = copy; |
177 val extend = copy; |
178 fun merge _ (ref pack1, ref pack2) = ref (merge_pack (pack1, pack2)); |
178 fun merge _ (ref pack1, ref pack2) = ref (merge_pack (pack1, pack2)); |
179 fun print _ (ref pack) = print_pack pack; |
179 fun print _ (ref pack) = print_pack pack; |
180 end); |
180 end); |
181 |
181 |
182 val prover_setup = [ProverData.init]; |
182 val prover_setup = ProverData.init; |
183 |
183 |
184 val print_pack = ProverData.print; |
184 val print_pack = ProverData.print; |
185 val pack_ref_of = ProverData.get; |
185 val pack_ref_of = ProverData.get; |
186 |
186 |
187 (* access global pack *) |
187 (* access global pack *) |