src/HOL/Tools/ATP/atp_problem.ML
changeset 46320 0b8b73b49848
parent 45939 711fec5b4f61
child 46338 b02ff6b17599
equal deleted inserted replaced
46319:c248e4f1be74 46320:0b8b73b49848
   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))