changeset 47941 | 22e001795641 |
parent 47611 | e3c699a1fae6 |
child 48196 | b7313810b6e6 |
--- a/src/HOL/Word/Word.thy Thu May 17 13:36:23 2012 +0200 +++ b/src/HOL/Word/Word.thy Fri May 18 15:08:08 2012 +0200 @@ -245,7 +245,7 @@ "reflp (\<lambda>x y. bintrunc (len_of TYPE('a::len0)) x = bintrunc (len_of TYPE('a)) y)" by (simp add: reflp_def) -setup_lifting Quotient_word reflp_word +setup_lifting(no_code) Quotient_word reflp_word text {* TODO: The next lemma could be generated automatically. *}