# HG changeset patch
# User kuncar
# Date 1337355380 -7200
# Node ID c09326cedb4158315a93ddf71ed2dc8ac18661d4
# Parent  49b05b9ead33ed666c9653fa68e53617e975360d
note Quotient theorem for typedefs in setup_lifting

diff -r 49b05b9ead33 -r c09326cedb41 src/HOL/Tools/Lifting/lifting_setup.ML
--- a/src/HOL/Tools/Lifting/lifting_setup.ML	Fri May 18 16:43:38 2012 +0200
+++ b/src/HOL/Tools/Lifting/lifting_setup.ML	Fri May 18 17:36:20 2012 +0200
@@ -211,6 +211,8 @@
         |> pair NONE
   in
     lthy''
+      |> (snd oo Local_Theory.note) ((Binding.prefix_name "Quotient_" qty_name, []), 
+        [quot_thm])
       |> (snd oo Local_Theory.note) ((qualify "bi_unique", [transfer_attr]), 
         [[typedef_thm, T_def] MRSL @{thm typedef_bi_unique}])
       |> (snd oo Local_Theory.note) ((qualify "rep_transfer", [transfer_attr]),