X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=examples%2FGArrowInclusion.hs;fp=examples%2FGArrowInclusion.hs;h=e8c7fb69bc02847c8d25e79728d8bf1e5bc9ce0a;hp=0000000000000000000000000000000000000000;hb=ec996e8cb550676d89d187061db7d018af9ec88d;hpb=2f22f2f26622f85e457060de3a5c534004a26e79

diff --git a/examples/GArrowInclusion.hs b/examples/GArrowInclusion.hs
new file mode 100644
index 0000000..e8c7fb6
--- /dev/null
+++ b/examples/GArrowInclusion.hs
@@ -0,0 +1,6 @@
+{-# LANGUAGE FunctionalDependencies, NoMonomorphismRestriction, MultiParamTypeClasses #-}
+module GArrowInclusion(GArrowInclusion(ga_inc)) where
+import Control.GArrow
+
+class GArrow g (**) u => GArrowInclusion g (**) u g' where
+  ga_inc :: g' x y -> g x y