7 lines
364 B
Text
7 lines
364 B
Text
namespace test
|
|
class inductive {u} is_equiv (A B : Type u) (f : A → B) : Type u
|
|
definition inverse (A B : Type*) (f : A → B) [H : is_equiv A B f] := Type*
|
|
definition foo (A : Type*) (B : A → Type*) (h : A → A) (g : Π(a : A), B a → B a)
|
|
[H : Π(a : A), is_equiv _ _ (g a)] (x : A) : Type* :=
|
|
inverse (B (h x)) (B (h x)) (g (h x))
|
|
end test
|