src/HOL/Tools/ATP/atp_problem.ML
changeset 47148 7b5846065c1b
parent 47146 7276f2b12ff7
child 47150 6df6e56fd7cd
equal deleted inserted replaced
47147:bd064bc71085 47148:7b5846065c1b
    83   val isabelle_info_prefix : string
    83   val isabelle_info_prefix : string
    84   val isabelle_info : string -> int -> (string, 'a) ho_term list
    84   val isabelle_info : string -> int -> (string, 'a) ho_term list
    85   val extract_isabelle_status : (string, 'a) ho_term list -> string option
    85   val extract_isabelle_status : (string, 'a) ho_term list -> string option
    86   val extract_isabelle_rank : (string, 'a) ho_term list -> int
    86   val extract_isabelle_rank : (string, 'a) ho_term list -> int
    87   val introN : string
    87   val introN : string
    88   val spec_introN : string
    88   val inductiveN : string
    89   val elimN : string
    89   val elimN : string
    90   val simpN : string
    90   val simpN : string
    91   val spec_eqN : string
    91   val defN : string
    92   val rankN : string
    92   val rankN : string
    93   val minimum_rank : int
    93   val minimum_rank : int
    94   val default_rank : int
    94   val default_rank : int
    95   val default_term_order_weight : int
    95   val default_term_order_weight : int
    96   val is_tptp_equal : string -> bool
    96   val is_tptp_equal : string -> bool
   216 val tptp_empty_list = "[]"
   216 val tptp_empty_list = "[]"
   217 
   217 
   218 val isabelle_info_prefix = "isabelle_"
   218 val isabelle_info_prefix = "isabelle_"
   219 
   219 
   220 val introN = "intro"
   220 val introN = "intro"
   221 val spec_introN = "spec_intro"
   221 val inductiveN = "inductive"
   222 val elimN = "elim"
   222 val elimN = "elim"
   223 val simpN = "simp"
   223 val simpN = "simp"
   224 val spec_eqN = "spec_eq"
   224 val defN = "def"
   225 val rankN = "rank"
   225 val rankN = "rank"
   226 
   226 
   227 val minimum_rank = 0
   227 val minimum_rank = 0
   228 val default_rank = 1000
   228 val default_rank = 1000
   229 val default_term_order_weight = 1
   229 val default_term_order_weight = 1
   468 fun dfg_string_for_formula gen_simp flavor info =
   468 fun dfg_string_for_formula gen_simp flavor info =
   469   let
   469   let
   470     fun suffix_tag top_level s =
   470     fun suffix_tag top_level s =
   471       if flavor = DFG_Sorted andalso top_level then
   471       if flavor = DFG_Sorted andalso top_level then
   472         case extract_isabelle_status info of
   472         case extract_isabelle_status info of
   473           SOME s' => if s' = spec_eqN then s ^ ":lt"
   473           SOME s' => if s' = defN then s ^ ":lt"
   474                      else if s' = simpN andalso gen_simp then s ^ ":lr"
   474                      else if s' = simpN andalso gen_simp then s ^ ":lr"
   475                      else s
   475                      else s
   476         | NONE => s
   476         | NONE => s
   477       else
   477       else
   478         s
   478         s