fact: Definition fromParam@{i} {A B : Type@{i}} (R : Param33.Rel@{i} A B) : A <~> B := {| equiv_fun := map R; equiv_isequiv := isequiv_adjointify _ (comap R) (fun b => R_in_map R _ _ (comap_in_R R _ _ 1%path)) (fun a => R_in_comap R _ _ (map_in_R R _ _ 1%path)) |}.
imports: ssreflect