{-# OPTIONS --without-K --safe #-}
open import Relation.Binary
module Function.Definitions.Core1
{a ℓ₁} {A : Set a} (_≈₁_ : Rel A ℓ₁)
where
open import Level using (_⊔_)
Inverseʳ : ∀ {b} {B : Set b} → (A → B) → (B → A) → Set (a ⊔ ℓ₁)
Inverseʳ f g = ∀ x → g (f x) ≈₁ x