src/HOL/Tools/Sledgehammer/sledgehammer_fol_clause.ML
changeset 35826 1590abc3d42a
parent 35825 a6aad5a70ed4
child 35827 f552152d7747
equal deleted inserted replaced
35825:a6aad5a70ed4 35826:1590abc3d42a
     1 (*  Title:      HOL/Tools/res_clause.ML
     1 (*  Title:      HOL/Tools/Sledgehammer/sledgehammer_fol_clause.ML
     2     Author:     Jia Meng, Cambridge University Computer Laboratory
     2     Author:     Jia Meng, Cambridge University Computer Laboratory
     3 
     3 
     4 Storing/printing FOL clauses and arity clauses.  Typed equality is
     4 Storing/printing FOL clauses and arity clauses.  Typed equality is
     5 treated differently.
     5 treated differently.
     6 
     6 
     7 FIXME: combine with res_hol_clause!
     7 FIXME: combine with res_hol_clause!
     8 *)
     8 *)
     9 
     9 
    10 signature RES_CLAUSE =
    10 signature SLEDGEHAMMER_FOL_CLAUSE =
    11 sig
    11 sig
    12   val schematic_var_prefix: string
    12   val schematic_var_prefix: string
    13   val fixed_var_prefix: string
    13   val fixed_var_prefix: string
    14   val tvar_prefix: string
    14   val tvar_prefix: string
    15   val tfree_prefix: string
    15   val tfree_prefix: string
    75   val tptp_tfree_clause : string -> string
    75   val tptp_tfree_clause : string -> string
    76   val tptp_arity_clause : arityClause -> string
    76   val tptp_arity_clause : arityClause -> string
    77   val tptp_classrelClause : classrelClause -> string
    77   val tptp_classrelClause : classrelClause -> string
    78 end
    78 end
    79 
    79 
    80 structure Res_Clause: RES_CLAUSE =
    80 structure Sledgehammer_FOL_Clause : SLEDGEHAMMER_FOL_CLAUSE =
    81 struct
    81 struct
    82 
    82 
    83 val schematic_var_prefix = "V_";
    83 val schematic_var_prefix = "V_";
    84 val fixed_var_prefix = "v_";
    84 val fixed_var_prefix = "v_";
    85 
    85