src/HOL/Tools/Sledgehammer/sledgehammer_reconstructor.ML
author smolkas
Thu, 11 Jul 2013 13:33:19 +0200
changeset 52590 02713cd2c2cd
parent 52555 6811291d1869
child 54495 237d5be57277
permissions -rw-r--r--
tuned
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
52590
smolkas
parents: 52555
diff changeset
     1
(*  Title:      HOL/Tools/Sledgehammer/sledgehammer_reconstructor.ML
52555
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     2
    Author:     Jasmin Blanchette, TU Muenchen
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     3
    Author:     Steffen Juilf Smolka, TU Muenchen
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     4
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     5
Reconstructors.
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     6
*)
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     7
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     8
signature SLEDGEHAMMER_RECONSTRUCTOR =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
     9
sig
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    10
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    11
  type stature = ATP_Problem_Generate.stature
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    12
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    13
  datatype reconstructor =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    14
    Metis of string * string |
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    15
    SMT
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    16
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    17
  datatype play =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    18
    Played of reconstructor * Time.time |
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    19
    Trust_Playable of reconstructor * Time.time option |
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    20
    Failed_to_Play of reconstructor
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    21
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    22
  type minimize_command = string list -> string
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    23
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    24
  type one_line_params =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    25
    play * string * (string * stature) list * minimize_command * int * int
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    26
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    27
  val smtN : string
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    28
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    29
end
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    30
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    31
structure Sledgehammer_Reconstructor : SLEDGEHAMMER_RECONSTRUCTOR =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    32
struct
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    33
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    34
open ATP_Problem_Generate
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    35
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    36
datatype reconstructor =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    37
  Metis of string * string |
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    38
  SMT
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    39
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    40
datatype play =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    41
  Played of reconstructor * Time.time |
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    42
  Trust_Playable of reconstructor * Time.time option |
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    43
  Failed_to_Play of reconstructor
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    44
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    45
type minimize_command = string list -> string
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    46
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    47
type one_line_params =
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    48
  play * string * (string * stature) list * minimize_command * int * int
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    49
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    50
val smtN = "smt"
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    51
6811291d1869 moved code -> easier debugging
smolkas
parents:
diff changeset
    52
end