Lemma mem_lessdef_sem_cmp:
forall m1 m2, mem_lessdef m1 m2 ->
forall v1 v1', Val.lessdef v1 v1' ->
forall v2 v2', Val.lessdef v2 v2' ->
forall op (t1: type) (t2: type) v,
sem_cmp op v1 t1 v2 t2 m1 = Some v ->
sem_cmp op v1' t1 v2' t2 m2 = Some v.