347 possible, to work around LEO-II 1.2.8 parser limitation. *) |
347 possible, to work around LEO-II 1.2.8 parser limitation. *) |
348 tptp_string_for_formula format |
348 tptp_string_for_formula format |
349 (AQuant (if s = tptp_ho_forall then AForall else AExists, |
349 (AQuant (if s = tptp_ho_forall then AForall else AExists, |
350 [(s', SOME ty)], AAtom tm)) |
350 [(s', SOME ty)], AAtom tm)) |
351 | (_, true, [AAbs ((s', ty), tm)]) => |
351 | (_, true, [AAbs ((s', ty), tm)]) => |
352 (* There is code in "ATP_Translate" to ensure that "Eps" is always |
352 (* There is code in "ATP_Problem_Generate" to ensure that "Eps" is always |
353 applied to an abstraction. *) |
353 applied to an abstraction. *) |
354 tptp_choice ^ "[" ^ s' ^ " : " ^ string_for_type format ty ^ "]: " ^ |
354 tptp_choice ^ "[" ^ s' ^ " : " ^ string_for_type format ty ^ "]: " ^ |
355 tptp_string_for_term format tm ^ "" |
355 tptp_string_for_term format tm ^ "" |
356 |> enclose "(" ")" |
356 |> enclose "(" ")" |
357 | _ => tptp_string_for_app format s (map (tptp_string_for_term format) ts)) |
357 | _ => tptp_string_for_app format s (map (tptp_string_for_term format) ts)) |