module Chapter5.Inverse where data _⁻¹_ {A B : Set}(f : A → B) : B → Set where inv : (a : A) → f ⁻¹ (f a)