projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
very rudimentary support for feedback in GArrowTikZ
[coq-hetmet.git]
/
examples
/
GArrowSkeleton.hs
diff --git
a/examples/GArrowSkeleton.hs
b/examples/GArrowSkeleton.hs
index
c63fd15
..
14827ec
100644
(file)
--- a/
examples/GArrowSkeleton.hs
+++ b/
examples/GArrowSkeleton.hs
@@
-46,8
+46,8
@@
data GArrowSkeleton m :: * -> * -> *
GAS_copy :: GArrowSkeleton m x (x,x)
GAS_swap :: GArrowSkeleton m (x,y) (y,x)
GAS_merge :: GArrowSkeleton m (x,y) z
GAS_copy :: GArrowSkeleton m x (x,x)
GAS_swap :: GArrowSkeleton m (x,y) (y,x)
GAS_merge :: GArrowSkeleton m (x,y) z
- GAS_loopl :: GArrowSkeleton m (x,z) (y,z) -> GArrowSkeleton m x y
- GAS_loopr :: GArrowSkeleton m (z,x) (z,y) -> GArrowSkeleton m x y
+ GAS_loopl :: GArrowSkeleton m (z,x) (z,y) -> GArrowSkeleton m x y
+ GAS_loopr :: GArrowSkeleton m (x,z) (y,z) -> GArrowSkeleton m x y
GAS_misc :: m x y -> GArrowSkeleton m x y
instance Category (GArrowSkeleton m) where
GAS_misc :: m x y -> GArrowSkeleton m x y
instance Category (GArrowSkeleton m) where
@@
-81,7
+81,7
@@
type instance GArrowTensor (GArrowSkeleton m) = (,)
type instance GArrowUnit (GArrowSkeleton m) = ()
type instance GArrowExponent (GArrowSkeleton m) = (->)
type instance GArrowUnit (GArrowSkeleton m) = ()
type instance GArrowExponent (GArrowSkeleton m) = (->)
-instance GArrowSTKC (GArrowSkeleton m)
+instance GArrowSTKCL (GArrowSkeleton m)
--
-- | Simple structural equality on skeletons. NOTE: two skeletons
--
-- | Simple structural equality on skeletons. NOTE: two skeletons