word_lib: remove warning
Signed-off-by: Gerwin Klein <gerwin.klein@proofcraft.systems>
This commit is contained in:
parent
83ddb4def9
commit
ac1cda74f9
|
@ -134,6 +134,6 @@ lemmas cast_simps = cast_simps ucast_down_bl
|
|||
lemma nth_ucast:
|
||||
"(ucast (w::'a::len word)::'b::len word) !! n =
|
||||
(w !! n \<and> n < min LENGTH('a) LENGTH('b))"
|
||||
by (auto simp add: bit_simps not_le dest: bit_imp_le_length)
|
||||
by (auto simp: not_le dest: bit_imp_le_length)
|
||||
|
||||
end
|
||||
|
|
Loading…
Reference in New Issue