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_rintro {A B} (R: klr W A B) x y:
RIntro (forall w, R w x y) (rel_kvd R) x y.