update to use Control.GArrow instead of GHC.HetMet.GArrow

[coq-hetmet.git] / examples / GArrowInclusion.hs

diff --git a/examples/GArrowInclusion.hs b/examples/GArrowInclusion.hs
new file mode 100644 (file)
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