(** The identity injection gives rise to the "less defined than" relation. *)

Definition inject_id : meminj := fun b => Some(b, 0).

(* Specifications: *)
Lemma val_inject_id: forall v1 v2, Val.inject inject_id v1 v2 <-> Val.lessdef v1 v2.
Lemma val_inject_id: forall v1 v2, Val.inject inject_id v1 v2 <-> Val.lessdef v1 v2.