src/HOL/TPTP/mash_eval.ML
changeset 73979 e5322146e7e8
parent 73942 57423714c29d
child 74981 10df7a627ab6
equal deleted inserted replaced
73978:906ecb049141 73979:e5322146e7e8
   121                   ((K (encode_str (nickname_of_thm th)), stature), th)
   121                   ((K (encode_str (nickname_of_thm th)), stature), th)
   122 
   122 
   123                 val facts =
   123                 val facts =
   124                   suggs
   124                   suggs
   125                   |> find_suggested_facts ctxt facts
   125                   |> find_suggested_facts ctxt facts
   126                   |> map (fact_of_raw_fact #> nickify)
   126                   |> map (fact_of_lazy_fact #> nickify)
   127                   |> inst_inducts ? instantiate_inducts ctxt hyp_ts concl_t
   127                   |> inst_inducts ? instantiate_inducts ctxt hyp_ts concl_t
   128                   |> take (the max_facts)
   128                   |> take (the max_facts)
   129                   |> map fact_of_raw_fact
   129                   |> map fact_of_lazy_fact
   130                 val ctxt = ctxt |> set_file_name method prob_dir_name
   130                 val ctxt = ctxt |> set_file_name method prob_dir_name
   131                 val res as {outcome, ...} = run_prover_for_mash ctxt params prover name facts goal
   131                 val res as {outcome, ...} = run_prover_for_mash ctxt params prover name facts goal
   132                 val ok = if is_none outcome then 1 else 0
   132                 val ok = if is_none outcome then 1 else 0
   133               in
   133               in
   134                 (str_of_result method facts res, ok)
   134                 (str_of_result method facts res, ok)