src/HOL/Mirabelle/Tools/mirabelle_sledgehammer_filter.ML
changeset 41407 2878845bc549
parent 41159 1e12d6495423
child 41455 d3be2a414d15
equal deleted inserted replaced
41406:062490d081b9 41407:2878845bc549
    37    max_imperfect_exp = get args "max_imperfect_exp" max_imperfect_exp,
    37    max_imperfect_exp = get args "max_imperfect_exp" max_imperfect_exp,
    38    threshold_divisor = get args "threshold_divisor" threshold_divisor,
    38    threshold_divisor = get args "threshold_divisor" threshold_divisor,
    39    ridiculous_threshold = get args "ridiculous_threshold" ridiculous_threshold}
    39    ridiculous_threshold = get args "ridiculous_threshold" ridiculous_threshold}
    40 
    40 
    41 structure Prooftab =
    41 structure Prooftab =
    42   Table(type key = int * int val ord = prod_ord int_ord int_ord);
    42   Table(type key = int * int val ord = prod_ord int_ord int_ord)
    43 
    43 
    44 val proof_table = Unsynchronized.ref Prooftab.empty
    44 val proof_table = Unsynchronized.ref (Prooftab.empty: string list list Prooftab.table)
    45 
    45 
    46 val num_successes = Unsynchronized.ref ([] : (int * int) list)
    46 val num_successes = Unsynchronized.ref ([] : (int * int) list)
    47 val num_failures = Unsynchronized.ref ([] : (int * int) list)
    47 val num_failures = Unsynchronized.ref ([] : (int * int) list)
    48 val num_found_proofs = Unsynchronized.ref ([] : (int * int) list)
    48 val num_found_proofs = Unsynchronized.ref ([] : (int * int) list)
    49 val num_lost_proofs = Unsynchronized.ref ([] : (int * int) list)
    49 val num_lost_proofs = Unsynchronized.ref ([] : (int * int) list)