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 |