src/Tools/Code/code_runtime.ML
changeset 63184 dd6cd88cebd9
parent 63174 57c0d60e491c
parent 63178 b9e1d53124f5
child 64928 18a6b96f8b00
equal deleted inserted replaced
63175:d191892b1c23 63184:dd6cd88cebd9
   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