equal
deleted
inserted
replaced
547 end; |
547 end; |
548 |
548 |
549 fun add_definiendum (ml_name, (b, T)) thy = |
549 fun add_definiendum (ml_name, (b, T)) thy = |
550 thy |
550 thy |
551 |> Code_Target.add_reserved target ml_name |
551 |> Code_Target.add_reserved target ml_name |
552 |> Specification.axiomatization [(b, SOME T, NoSyn)] [] [] |
552 |> Specification.axiomatization [(b, SOME T, NoSyn)] [] [] [] |
553 |-> (fn ([Const (const, _)], _) => |
553 |-> (fn ([Const (const, _)], _) => |
554 Code_Target.set_printings (Constant (const, |
554 Code_Target.set_printings (Constant (const, |
555 [(target, SOME (Code_Printer.simple_const_syntax (0, (K o K o K o Code_Printer.str) ml_name)))])) |
555 [(target, SOME (Code_Printer.simple_const_syntax (0, (K o K o K o Code_Printer.str) ml_name)))])) |
556 #> tap (fn thy => Code_Target.produce_code (Proof_Context.init_global thy) false [const] target NONE structure_generated [])); |
556 #> tap (fn thy => Code_Target.produce_code (Proof_Context.init_global thy) false [const] target NONE structure_generated [])); |
557 |
557 |