Use forall instead of implicit argument notation

This commit is contained in:
Kiana Sheibani 2023-03-06 10:52:28 -05:00
parent 2e4fa7ff87
commit cf38f4a07e
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
2 changed files with 2 additions and 2 deletions

View file

@ -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

View file

@ -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