From f4e85257de36e77fa45f1e60e4cfea8b3378f4f8 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 29 Jul 2016 11:49:36 -0700 Subject: Make IsIso a class --- src/Util/Isomorphism.v | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Util/Isomorphism.v b/src/Util/Isomorphism.v index a02afc3bf..0e6553dcd 100644 --- a/src/Util/Isomorphism.v +++ b/src/Util/Isomorphism.v @@ -1,4 +1,8 @@ -Record IsIso {A B} (f : A -> B) := +Class IsIso {A B} (f : A -> B) := { iso_inv : B -> A; is_right_inv : forall x, f (iso_inv x) = x; is_left_inv : forall x, iso_inv (f x) = x }. + +Arguments iso_inv {_ _} _ {_} _. +Arguments is_right_inv {_ _} _ {_} _. +Arguments is_left_inv {_ _} _ {_} _. -- cgit v1.2.3