2014-11-25 20:54:07 +00:00
|
|
|
structure is_equiv [class] {A B : Type} (f : A → B) :=
|
|
|
|
|
(inv : B → A)
|
|
|
|
|
|
|
|
|
|
check @is_equiv.inv
|
|
|
|
|
namespace is_equiv
|
2015-04-22 02:33:21 +00:00
|
|
|
section
|
2014-11-25 20:54:07 +00:00
|
|
|
parameters A B : Type
|
|
|
|
|
parameter f : A → B
|
|
|
|
|
parameter c : is_equiv f
|
|
|
|
|
check inv f
|
|
|
|
|
end
|
|
|
|
|
end is_equiv
|
