s
Size: a a a
s
ZM
s
s
w
ᛒ
s
ᛒ
s
ᛒ
AG
uncurryS : All (p ^*^ q :-> r) -> All (p :-> q ~* r)
uncurryS f pl = \sp, qr => f $ MkStar pl sp qr
curryS : All (p :-> q ~* r) -> All (p ^*^ q :-> r)
curryS f (MkStar pl sp qr) = f pl sp qr
D
ᛒ
uncurryS : All (p ^*^ q :-> r) -> All (p :-> q ~* r)
uncurryS f pl = \sp, qr => f $ MkStar pl sp qr
curryS : All (p :-> q ~* r) -> All (p ^*^ q :-> r)
curryS f (MkStar pl sp qr) = f pl sp qr
AG
AG
s
s