
diff -r d8661799afb2 -r c7038c397ae3 src/HOL/Word/More_Word.thy
--- a/src/HOL/Word/More_Word.thy	Thu Oct 29 09:59:40 2020 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,58 +0,0 @@
-(*  Title:      HOL/Word/More_thy
-*)
-
-section \<open>Ancient comprehensive Word Library\<close>
-
-theory More_Word
-imports
-  Word
-  Ancient_Numeral
-  Reversed_Bit_Lists
-  Bits_Int
-  Bit_Comprehension
-  Misc_Auxiliary
-  Misc_Arithmetic
-  Misc_set_bit
-  Misc_lsb
-  Misc_Typedef
-  Word_rsplit
-begin
-
-declare signed_take_bit_Suc [simp]
-
-lemmas bshiftr1_def = bshiftr1_eq
-lemmas is_down_def = is_down_eq
-lemmas is_up_def = is_up_eq
-lemmas mask_def = mask_eq_decr_exp
-lemmas scast_def = scast_eq
-lemmas shiftl1_def = shiftl1_eq
-lemmas shiftr1_def = shiftr1_eq
-lemmas sshiftr1_def = sshiftr1_eq
-lemmas sshiftr_def = sshiftr_eq_funpow_sshiftr1
-lemmas to_bl_def = to_bl_eq
-lemmas ucast_def = ucast_eq
-lemmas unat_def = unat_eq_nat_uint
-lemmas word_cat_def = word_cat_eq
-lemmas word_reverse_def = word_reverse_eq_of_bl_rev_to_bl
-lemmas word_roti_def = word_roti_eq_word_rotr_word_rotl
-lemmas word_rotl_def = word_rotl_eq
-lemmas word_rotr_def = word_rotr_eq
-lemmas word_sle_def = word_sle_eq
-lemmas word_sless_def = word_sless_eq
-
-lemmas uint_0 = uint_nonnegative
-lemmas uint_lt = uint_bounded
-lemmas uint_mod_same = uint_idem
-lemmas of_nth_def = word_set_bits_def
-
-lemmas of_nat_word_eq_iff = word_of_nat_eq_iff
-lemmas of_nat_word_eq_0_iff = word_of_nat_eq_0_iff
-lemmas of_int_word_eq_iff = word_of_int_eq_iff
-lemmas of_int_word_eq_0_iff = word_of_int_eq_0_iff
-
-lemma shiftl_transfer [transfer_rule]:
-  includes lifting_syntax
-  shows "(pcr_word ===> (=) ===> pcr_word) (<<) (<<)"
-  by (unfold shiftl_eq_push_bit) transfer_prover
-
-end




