src/HOL/Tools/ATP/atp_translate.ML
changeset 43945 81d1b15aa0ae
parent 43943 9a42899ec169
child 43946 bb0ceef7d39f
equal deleted inserted replaced
43944:35962353e36b 43945:81d1b15aa0ae
    50     Preds of polymorphism * type_level * type_heaviness |
    50     Preds of polymorphism * type_level * type_heaviness |
    51     Tags of polymorphism * type_level * type_heaviness
    51     Tags of polymorphism * type_level * type_heaviness
    52 
    52 
    53   type translated_formula
    53   type translated_formula
    54 
    54 
    55   val type_tag_name : string
       
    56   val bound_var_prefix : string
    55   val bound_var_prefix : string
    57   val schematic_var_prefix: string
    56   val schematic_var_prefix: string
    58   val fixed_var_prefix: string
    57   val fixed_var_prefix: string
    59   val tvar_prefix: string
    58   val tvar_prefix: string
    60   val tfree_prefix: string
    59   val tfree_prefix: string
    68   val conjecture_prefix : string
    67   val conjecture_prefix : string
    69   val helper_prefix : string
    68   val helper_prefix : string
    70   val typed_helper_suffix : string
    69   val typed_helper_suffix : string
    71   val predicator_name : string
    70   val predicator_name : string
    72   val app_op_name : string
    71   val app_op_name : string
       
    72   val type_tag_name : string
    73   val type_pred_name : string
    73   val type_pred_name : string
    74   val simple_type_prefix : string
    74   val simple_type_prefix : string
    75   val ascii_of: string -> string
    75   val ascii_of: string -> string
    76   val unascii_of: string -> string
    76   val unascii_of: string -> string
    77   val strip_prefix_and_unascii : string -> string -> string option
    77   val strip_prefix_and_unascii : string -> string -> string option
   144 
   144 
   145 val intro_info = useful_isabelle_info "intro"
   145 val intro_info = useful_isabelle_info "intro"
   146 val elim_info = useful_isabelle_info "elim"
   146 val elim_info = useful_isabelle_info "elim"
   147 val simp_info = useful_isabelle_info "simp"
   147 val simp_info = useful_isabelle_info "simp"
   148 
   148 
   149 val type_tag_name = "ti"
       
   150 
       
   151 val bound_var_prefix = "B_"
   149 val bound_var_prefix = "B_"
   152 val schematic_var_prefix = "V_"
   150 val schematic_var_prefix = "V_"
   153 val fixed_var_prefix = "v_"
   151 val fixed_var_prefix = "v_"
   154 
   152 
   155 val tvar_prefix = "T_"
   153 val tvar_prefix = "T_"
   176 val typed_helper_suffix = "_T"
   174 val typed_helper_suffix = "_T"
   177 val untyped_helper_suffix = "_U"
   175 val untyped_helper_suffix = "_U"
   178 
   176 
   179 val predicator_name = "hBOOL"
   177 val predicator_name = "hBOOL"
   180 val app_op_name = "hAPP"
   178 val app_op_name = "hAPP"
       
   179 val type_tag_name = "ti"
   181 val type_pred_name = "is"
   180 val type_pred_name = "is"
   182 val simple_type_prefix = "ty_"
   181 val simple_type_prefix = "ty_"
   183 
   182 
   184 (* Freshness almost guaranteed! *)
   183 (* Freshness almost guaranteed! *)
   185 val sledgehammer_weak_prefix = "Sledgehammer:"
   184 val sledgehammer_weak_prefix = "Sledgehammer:"