src/HOL/Tools/SMT2/smt2_systems.ML
changeset 57209 7ffa0f7e2775
parent 57168 af95a414136a
child 57210 5d61d875076a
equal deleted inserted replaced
57208:5bf2a5c498c2 57209:7ffa0f7e2775
    47     "-lang", "smtlib", "-output-lang", "presentation",
    47     "-lang", "smtlib", "-output-lang", "presentation",
    48     "-timeout", string_of_int (Real.ceil (Config.get ctxt SMT2_Config.timeout))]
    48     "-timeout", string_of_int (Real.ceil (Config.get ctxt SMT2_Config.timeout))]
    49 in
    49 in
    50 
    50 
    51 val cvc3: SMT2_Solver.solver_config = {
    51 val cvc3: SMT2_Solver.solver_config = {
    52   name = "cvc3_new",
    52   name = "cvc3",
    53   class = K SMTLIB2_Interface.smtlib2C,
    53   class = K SMTLIB2_Interface.smtlib2C,
    54   avail = make_avail "CVC3_NEW",
    54   avail = make_avail "CVC3_NEW",
    55   command = make_command "CVC3_NEW",
    55   command = make_command "CVC3_NEW",
    56   options = cvc3_options,
    56   options = cvc3_options,
    57   default_max_relevant = 400 (* FUDGE *),
    57   default_max_relevant = 400 (* FUDGE *),
    63 
    63 
    64 
    64 
    65 (* Yices *)
    65 (* Yices *)
    66 
    66 
    67 val yices: SMT2_Solver.solver_config = {
    67 val yices: SMT2_Solver.solver_config = {
    68   name = "yices_new",
    68   name = "yices",
    69   class = K SMTLIB2_Interface.smtlib2C,
    69   class = K SMTLIB2_Interface.smtlib2C,
    70   avail = make_avail "YICES_NEW",
    70   avail = make_avail "YICES_NEW",
    71   command = make_command "YICES_NEW",
    71   command = make_command "YICES_NEW",
    72   options = (fn ctxt => [
    72   options = (fn ctxt => [
    73     "--rand-seed=" ^ string_of_int (Config.get ctxt SMT2_Config.random_seed),
    73     "--rand-seed=" ^ string_of_int (Config.get ctxt SMT2_Config.random_seed),
   133     if Config.get ctxt z3_extensions then Z3_New_Interface.smtlib2_z3C
   133     if Config.get ctxt z3_extensions then Z3_New_Interface.smtlib2_z3C
   134     else SMTLIB2_Interface.smtlib2C
   134     else SMTLIB2_Interface.smtlib2C
   135 in
   135 in
   136 
   136 
   137 val z3: SMT2_Solver.solver_config = {
   137 val z3: SMT2_Solver.solver_config = {
   138   name = "z3_new",
   138   name = "z3",
   139   class = select_class,
   139   class = select_class,
   140   avail = make_avail "Z3_NEW",
   140   avail = make_avail "Z3_NEW",
   141   command = z3_make_command "Z3_NEW",
   141   command = z3_make_command "Z3_NEW",
   142   options = z3_options,
   142   options = z3_options,
   143   default_max_relevant = 350 (* FUDGE *),
   143   default_max_relevant = 350 (* FUDGE *),