Corollary last_two_reads_In1 : forall h, In (AE (fst (last_two_reads h)) Empty) (AE (vint 1) Empty :: h).

(* Specifications: *)
Lemma find_read_incl : forall a d h, In a (snd (find_read h d)) -> In a h.
Lemma find_read_incl : forall a d h, In a (snd (find_read h d)) -> In a h.