src/HOL/Tools/ATP/atp_reconstruct.ML
changeset 44121 44adaa6db327
parent 44002 ae53f1304ad5
child 44396 66b9b3fcd608
equal deleted inserted replaced
44120:01de796250a0 44121:44adaa6db327
   543         HOLogic.eq_const HOLogic.typeT $ t1 $ t2
   543         HOLogic.eq_const HOLogic.typeT $ t1 $ t2
   544         |> unvarify_args |> uncombine_term thy |> infer_formula_types ctxt
   544         |> unvarify_args |> uncombine_term thy |> infer_formula_types ctxt
   545         |> HOLogic.dest_eq
   545         |> HOLogic.dest_eq
   546     in
   546     in
   547       (Definition (name, t1, t2),
   547       (Definition (name, t1, t2),
   548        fold Variable.declare_term (maps OldTerm.term_frees [t1, t2]) ctxt)
   548        fold Variable.declare_term (maps Misc_Legacy.term_frees [t1, t2]) ctxt)
   549     end
   549     end
   550   | decode_line sym_tab (Inference (name, u, deps)) ctxt =
   550   | decode_line sym_tab (Inference (name, u, deps)) ctxt =
   551     let val t = u |> uncombined_etc_prop_from_atp ctxt true sym_tab in
   551     let val t = u |> uncombined_etc_prop_from_atp ctxt true sym_tab in
   552       (Inference (name, t, deps),
   552       (Inference (name, t, deps),
   553        fold Variable.declare_term (OldTerm.term_frees t) ctxt)
   553        fold Variable.declare_term (Misc_Legacy.term_frees t) ctxt)
   554     end
   554     end
   555 fun decode_lines ctxt sym_tab lines =
   555 fun decode_lines ctxt sym_tab lines =
   556   fst (fold_map (decode_line sym_tab) lines ctxt)
   556   fst (fold_map (decode_line sym_tab) lines ctxt)
   557 
   557 
   558 fun is_same_inference _ (Definition _) = false
   558 fun is_same_inference _ (Definition _) = false