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 |