Definition val_obsC f v :=
    match v with
    | Vptr b n => match f b with
                 | Some b' => Vptr b' n
                 | None => Vundef
                 end
    | _ => v
    end.

Lemma val_obs_subl: forall f v1 v2 v1' v2' (Hinjective: forall b1 b1' b2, f b1 = Some b2 -> f b1' = Some b2 -> b1 = b1') (Hval_obs': val_obs f v1' v2') (Hval_obs: val_obs f v1 v2), val_obs f (Val.subl v1 v1') (Val.subl v2 v2').