(** ** Lemmas about erased values*)

  Definition isDefined v :=
    match v with
    | Vundef => false
    | _ => true
    end.

Lemma val_erasure_divs_result: forall v1 v2 v1' v2' v, val_erasure v1 v1' -> val_erasure v2 v2' -> Val.divs v1 v2 = Some v -> Val.divs v1' v2' = Some v.