# HG changeset patch
# User kuncar
# Date 1368207683 -7200
# Node ID bcd6898ac613a9b214d409dbf98c4f02979d129e
# Parent  25ceb5fa8f78a498a1518c2c7aedcb9c446bae37
don't apply an unnecessary morphism

diff -r 25ceb5fa8f78 -r bcd6898ac613 src/HOL/Tools/Lifting/lifting_def.ML
--- a/src/HOL/Tools/Lifting/lifting_def.ML	Fri May 10 06:34:29 2013 +0200
+++ b/src/HOL/Tools/Lifting/lifting_def.ML	Fri May 10 19:41:23 2013 +0200
@@ -115,7 +115,6 @@
   let
     val transfer_rule =
       ([quot_thm, rsp_thm, def_thm] MRSL @{thm Quotient_to_transfer})
-      |> Morphism.thm (Local_Theory.target_morphism lthy)
       |> Lifting_Term.parametrize_transfer_rule lthy
   in
     (option_fold transfer_rule (generate_parametric_transfer_rule lthy transfer_rule) opt_par_thm