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