Section UNKRIPKIFY.
Context `{kf: KripkeFrame}.
Definition rel_kvd {A B} (R: klr W A B): rel A B :=
fun x y => forall w, R w x y.
Global Instance rel_kvd_subrel A B:
Monotonic (@rel_kvd A B) ((- ==> subrel) ++> subrel).

Lemma rel_kvd_relim {A B} (R: klr W A B) w x y P Q:
RElim (R w) x y P Q ->
RElim (rel_kvd R) x y P Q.