13 lines
235 B
Text
13 lines
235 B
Text
|
structure is_equiv [class] {A B : Type} (f : A → B) :=
|
||
|
(inv : B → A)
|
||
|
|
||
|
check @is_equiv.inv
|
||
|
namespace is_equiv
|
||
|
context
|
||
|
parameters A B : Type
|
||
|
parameter f : A → B
|
||
|
parameter c : is_equiv f
|
||
|
check inv f
|
||
|
end
|
||
|
end is_equiv
|