src/HOL/Tools/Transfer/transfer.ML
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