src/HOL/Tools/Sledgehammer/sledgehammer_translate.ML
changeset 39953 aa54f347e5e2
parent 39890 a1695e2169d0
child 39954 1a908a35920b
equal deleted inserted replaced
39952:7fb79905ed72 39953:aa54f347e5e2
   220   | count_combformula (AAtom tm) = count_combterm tm
   220   | count_combformula (AAtom tm) = count_combterm tm
   221 fun count_fol_formula ({combformula, ...} : fol_formula) =
   221 fun count_fol_formula ({combformula, ...} : fol_formula) =
   222   count_combformula combformula
   222   count_combformula combformula
   223 
   223 
   224 val optional_helpers =
   224 val optional_helpers =
   225   [(["c_COMBI"], @{thms COMBI_def}),
   225   [(["c_COMBI"], @{thms Meson.COMBI_def}),
   226    (["c_COMBK"], @{thms COMBK_def}),
   226    (["c_COMBK"], @{thms Meson.COMBK_def}),
   227    (["c_COMBB"], @{thms COMBB_def}),
   227    (["c_COMBB"], @{thms Meson.COMBB_def}),
   228    (["c_COMBC"], @{thms COMBC_def}),
   228    (["c_COMBC"], @{thms Meson.COMBC_def}),
   229    (["c_COMBS"], @{thms COMBS_def})]
   229    (["c_COMBS"], @{thms Meson.COMBS_def})]
   230 val optional_typed_helpers =
   230 val optional_typed_helpers =
   231   [(["c_True", "c_False", "c_If"], @{thms True_or_False}),
   231   [(["c_True", "c_False", "c_If"], @{thms True_or_False}),
   232    (["c_If"], @{thms if_True if_False})]
   232    (["c_If"], @{thms if_True if_False})]
   233 val mandatory_helpers = @{thms fequal_def}
   233 val mandatory_helpers = @{thms fequal_def}
   234 
   234