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

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.