FROM: "PP8QP0P8P; PP8P:QP;QQP:P8P9"<sip:+380445960028;ext=7114@abcdef.ua;user=phone>;epid=465F5EF25C;tag=20511b9864. нужно привести к какомуто более стандартному виду типа.
rewrite Heq. apply heap_get_value_union_L; first by map_tac_m.Disj. simpl. rewrite -value_ptyp_shift_pointer. + rewrite padd_0 in Hx; last 2 first. by apply align_gt0. eapply dvdn_trans; last by apply H4. rewrite -nth0. apply align_get_fields
Lemma entail_exists_right_intro {A : Type} (P : A -> assert) Q: (exists x, Q ===> P x) -> Q ===> (sepex x, P x). Proof. move => [] x Hx s h H; by exists x; apply Hx. Qed.