equal
deleted
inserted
replaced
107 |
107 |
108 fun prt_axm (a, t) = Pretty.block [Pretty.str (a ^ ":"), Pretty.brk 1, |
108 fun prt_axm (a, t) = Pretty.block [Pretty.str (a ^ ":"), Pretty.brk 1, |
109 Pretty.quote (Sign.pretty_term sign t)]; |
109 Pretty.quote (Sign.pretty_term sign t)]; |
110 in |
110 in |
111 Pretty.writeln (Pretty.big_list "additional axioms:" (map prt_axm axioms)); |
111 Pretty.writeln (Pretty.big_list "additional axioms:" (map prt_axm axioms)); |
112 Pretty.writeln (Pretty.strs ("oracles:" :: oras)) |
112 Pretty.writeln (Pretty.strs ("oracles:" :: oras)); |
|
113 Sign.print_data sign |
113 end; |
114 end; |
114 |
115 |
115 fun print_theory thy = (Sign.print_sg (sign_of thy); print_thy thy); |
116 fun print_theory thy = (Sign.print_sg (sign_of thy); print_thy thy); |
116 |
117 |
117 |
118 |