changeset 79274 | fb8ed7fbb537 |
parent 74561 | 8e6c973003c8 |
child 80636 | 4041e7c8059d |
--- a/src/HOL/Tools/Transfer/transfer.ML Sun Dec 17 21:43:14 2023 +0100 +++ b/src/HOL/Tools/Transfer/transfer.ML Sun Dec 17 22:57:20 2023 +0100 @@ -385,7 +385,7 @@ (** Adding transfer domain rules **) fun prep_transfer_domain_thm ctxt = - abstract_equalities_domain ctxt o detect_transfer_rules + abstract_equalities_domain ctxt o detect_transfer_rules o Thm.transfer' ctxt fun add_transfer_domain_thm thm ctxt = (add_transfer_thm o prep_transfer_domain_thm (Context.proof_of ctxt)) thm ctxt