src/HOL/Tools/ATP/atp_proof_reconstruct.ML
changeset 57258 67d85a8aa6cc
parent 57257 0d5e34ba4d28
child 57263 2b6a96cc64c9
equal deleted inserted replaced
57257:0d5e34ba4d28 57258:67d85a8aa6cc
   610         else line :: repair_body lines
   610         else line :: repair_body lines
   611   in
   611   in
   612     repair_body proof
   612     repair_body proof
   613   end
   613   end
   614 
   614 
   615 fun termify_atp_proof ctxt prover format type_enc pool lifted sym_tab =
   615 fun termify_atp_proof ctxt local_prover format type_enc pool lifted sym_tab =
   616   clean_up_atp_proof_dependencies
   616   clean_up_atp_proof_dependencies
   617   #> nasty_atp_proof pool
   617   #> nasty_atp_proof pool
   618   #> map_term_names_in_atp_proof repair_name
   618   #> map_term_names_in_atp_proof repair_name
   619   #> map_filter (termify_line ctxt format type_enc lifted sym_tab)
   619   #> map_filter (termify_line ctxt format type_enc lifted sym_tab)
   620   #> perhaps (try (unprefix remote_prefix)) prover = waldmeisterN ? repair_waldmeister_endgame
   620   #> local_prover = waldmeisterN ? repair_waldmeister_endgame
   621 
   621 
   622 fun take_distinct_vars seen ((t as Var _) :: ts) =
   622 fun take_distinct_vars seen ((t as Var _) :: ts) =
   623     if member (op aconv) seen t then rev seen else take_distinct_vars (t :: seen) ts
   623     if member (op aconv) seen t then rev seen else take_distinct_vars (t :: seen) ts
   624   | take_distinct_vars seen _ = rev seen
   624   | take_distinct_vars seen _ = rev seen
   625 
   625