src/HOL/Tools/Meson/meson_clausify.ML
changeset 42072 1492ee6b8085
parent 41225 bd4ecd48c21f
child 42083 e1209fc7ecdc
child 42098 f978caf60bbe
equal deleted inserted replaced
42071:04577a7e0c51 42072:1492ee6b8085
    20 structure Meson_Clausify : MESON_CLAUSIFY =
    20 structure Meson_Clausify : MESON_CLAUSIFY =
    21 struct
    21 struct
    22 
    22 
    23 open Meson
    23 open Meson
    24 
    24 
    25 (* the extra "?" helps prevent clashes *)
    25 (* the extra "Meson" helps prevent clashes (FIXME) *)
    26 val new_skolem_var_prefix = "?SK"
    26 val new_skolem_var_prefix = "MesonSK"
    27 val new_nonskolem_var_prefix = "?V"
    27 val new_nonskolem_var_prefix = "MesonV"
    28 
    28 
    29 (**** Transformation of Elimination Rules into First-Order Formulas****)
    29 (**** Transformation of Elimination Rules into First-Order Formulas****)
    30 
    30 
    31 val cfalse = cterm_of @{theory HOL} HOLogic.false_const;
    31 val cfalse = cterm_of @{theory HOL} HOLogic.false_const;
    32 val ctp_false = cterm_of @{theory HOL} (HOLogic.mk_Trueprop HOLogic.false_const);
    32 val ctp_false = cterm_of @{theory HOL} (HOLogic.mk_Trueprop HOLogic.false_const);