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
|
||||
record GenTambara (ten, p : Type -> Type -> Type) a b where
|
||||
constructor MkTambara
|
||||
getTambara : {0 c : Type} -> p (a `ten` c) (b `ten` c)
|
||||
getTambara : forall c. p (a `ten` c) (b `ten` c)
|
||||
|
||||
export
|
||||
Bifunctor ten => Profunctor p => Profunctor (GenTambara ten p) where
|
||||
|
|
|
@ -22,7 +22,7 @@ interface Profunctor p where
|
|||
infix 0 :->
|
||||
public export
|
||||
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
|
||||
|
|
Loading…
Reference in a new issue