module Chapter5.Inverse where

data _⁻¹_ {A B : Set}(f : A  B) : B  Set where
  inv : (a : A)  f ⁻¹ (f a)