Global Instance klr_box_subrel_params: Params (@klr_box) 4.Global Instance klr_diam_subrel_params: Params (@klr_diam) 4.Notation "[ l ] R" := (klr_box l R) (at level 65) : klr_scope.Notation "< l > R" := (klr_diam l R) (at level 65) : klr_scope.Notation "[] R" := (klr_box tt R) (at level 65) : klr_scope.Notation "<> R" := (klr_diam tt R) (at level 65) : klr_scope.Definition klr_boxto {A B} (R : klr W A B) : klr W (L1 -> A) (L2 -> B) :=
    fun w f g =>
      forall l1 l2 w', acc (l1, l2) w w' -> R w' (f l1) (g l2).Definition klr_diamat {A B} (R : klr W A B) : klr W (L1 * A) (L2 * B) :=
    fun w '(l1, a) '(l2, b) =>
      exists w', acc (l1, l2) w w' /\ R w' a b.Notation "[] -> R" := (klr_boxto R) (at level 65) : klr_scope.Notation "<> * R" := (klr_diamat R) (at level 65) : klr_scope.Definition rel_kvd {A B} (R: klr W A B): rel A B :=
    fun x y => forall w, R w x y.

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.