equal
deleted
inserted
replaced
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) |