(* Definition split_rmap (m: rmap) : rmap * rmap := (proj1_sig (make_rmap _ (split_rmap_valid1 m) (level m) (split_rmap_ok1 m)), proj1_sig (make_rmap _ (split_rmap_valid2 m) (level m) (split_rmap_ok2 m))). *)

Lemma nonlock_permission_bytes_VALspec_range_join:
forall sh1 sh2 (rsh2: readable_share sh2) sh p n,
join sh1 sh2 sh ->
nonlock_permission_bytes sh1 p n *
VALspec_range n sh2 p =
VALspec_range n sh p.