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.