Definition to_rel_weq {X Y : UU} {R₁ R₂ : X → Y → hProp} (p : R₁ = R₂) : ((∏ (x : X) (y : Y), R₁ x y → R₂ x y) × ∏ (x : X) (y : Y), R₂ x y → R₁ x y). Proof. induction p. split. - exact (λ _ _ r, r). - exact (λ _ _ r, r). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Categories.HSET.Core. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Isos. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Discrete. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedFibration.