Section simpler_invariant_tentative.
(* This section about getYES and getNO is currently unused.  Maybe it would give us a simpler invariant, but maybe not. *)
(* Variable unrel_lsh_rsh : Share.unrel Share.Lsh Share.Rsh = Share.bot. *)

Lemma memory_block_getYES sh z v phi :
writable0_share sh ->
app_pred (memory_block sh z v) phi ->
app_pred (memory_block Share.Rsh z v) (getYES phi).