Ltac unfold_cop2_sem_cmp :=
unfold Clight_Cop2.sem_cmp, Clight_Cop2.sem_cmp_pl, Clight_Cop2.sem_cmp_lp, Clight_Cop2.sem_cmp_pp.

Lemma valid_pointer_dry0: forall b ofs m, app_pred (valid_pointer (Vptr b ofs)) (m_phi m) -> Mem.valid_pointer (m_dry m) b (Ptrofs.unsigned ofs) = true.