src/HOL/Library/Sum_of_Squares/sos_wrapper.ML
changeset 63518 ae8fd6fe63a1
parent 63507 79122bdd4404
child 69593 3dda49e08b9d
equal deleted inserted replaced
63517:8ea738cffabe 63518:ae8fd6fe63a1
    58 (* method setup *)
    58 (* method setup *)
    59 
    59 
    60 fun print_cert cert =
    60 fun print_cert cert =
    61   Output.information
    61   Output.information
    62     ("To repeat this proof with a certificate use this command:\n" ^
    62     ("To repeat this proof with a certificate use this command:\n" ^
    63       Active.sendback_markup [Markup.padding_command]
    63       Active.sendback_markup_command
    64         ("by (sos \"" ^ Positivstellensatz_Tools.print_cert cert ^ "\")"))
    64         ("by (sos \"" ^ Positivstellensatz_Tools.print_cert cert ^ "\")"))
    65 
    65 
    66 fun sos_tac ctxt NONE =
    66 fun sos_tac ctxt NONE =
    67       Sum_of_Squares.sos_tac print_cert
    67       Sum_of_Squares.sos_tac print_cert
    68         (Sum_of_Squares.Prover (run_solver ctxt)) ctxt
    68         (Sum_of_Squares.Prover (run_solver ctxt)) ctxt