proposition: Lemma cast_OK : forall A dom₁ dom₂ (Heq : Dom.eq dom₁ dom₂) (m : S.t A), OK dom₁ m -> OK dom₂ m.
proof: Proof. intros. apply (@OK_compat A _ _ Heq m m); trivial. intro. reflexivity. Qed.
imports: Utf8 MSets FMaps Orders Coqlib DepMapInterface