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