Use forall instead of implicit argument notation
This commit is contained in:
parent
2e4fa7ff87
commit
cf38f4a07e
|
@ -48,7 +48,7 @@ uncurry' = rmap (uncurry id) . first
|
||||||
public export
|
public export
|
||||||
record GenTambara (ten, p : Type -> Type -> Type) a b where
|
record GenTambara (ten, p : Type -> Type -> Type) a b where
|
||||||
constructor MkTambara
|
constructor MkTambara
|
||||||
getTambara : {0 c : Type} -> p (a `ten` c) (b `ten` c)
|
getTambara : forall c. p (a `ten` c) (b `ten` c)
|
||||||
|
|
||||||
export
|
export
|
||||||
Bifunctor ten => Profunctor p => Profunctor (GenTambara ten p) where
|
Bifunctor ten => Profunctor p => Profunctor (GenTambara ten p) where
|
||||||
|
|
|
@ -22,7 +22,7 @@ interface Profunctor p where
|
||||||
infix 0 :->
|
infix 0 :->
|
||||||
public export
|
public export
|
||||||
0 (:->) : (p, q : k -> k' -> Type) -> Type
|
0 (:->) : (p, q : k -> k' -> Type) -> Type
|
||||||
p :-> q = {0 a, b : _} -> p a b -> q a b
|
p :-> q = forall a, b. p a b -> q a b
|
||||||
|
|
||||||
|
|
||||||
-- Instances for existing types
|
-- Instances for existing types
|
||||||
|
|
Loading…
Reference in a new issue