(* Lemma read_sh_readonly: forall NU, read_sh = mk_lifted (readonly2share true) NU. *)

(* Specifications: *)
Lemma zero_ext_inj: forall i,
Int.zero_ext 8 (Int.repr (Byte.unsigned i)) = Int.zero ->
i = Byte.zero.
Lemma max_unsigned_eq: Int.max_unsigned = 4294967295.
Lemma decode_val_getN_lem1:
forall j i b,
decode_val Mint32 (getN 4 i b) = Vint Int.zero ->
0 <= j-i < 4 ->
nth (nat_of_Z (j-i)) (getN 4 i b) Undef = Byte Byte.zero.