equal
deleted
inserted
replaced
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 |