(** ** Soundness **)
Hint Resolve reach_refl.
Definition kcast domain (eta eta' : nat -> domain) (M : kmodel eta) : kmodel eta'.

Lemma ksat_ext dom b (phi : form b) rho rho' eta (M : @kmodel dom eta ) u :
rho ⊩(u,M,eta) phi -> (forall v, rho v = rho' v) ->  rho' ⊩(u,M,eta) phi.