Lemma mem_lessdef_sem_cast: forall m1 m2, mem_lessdef m1 m2 -> forall v1 v1', Val.lessdef v1 v1' -> forall t1 t2 v, classify_cast t1 t2 <> Cop.cast_case_void -> sem_cast v1 t1 t2 m1 = Some v -> sem_cast v1' t1 t2 m2 = Some v.