diff --git a/relational-query.cabal b/relational-query.cabal
--- a/relational-query.cabal
+++ b/relational-query.cabal
@@ -1,5 +1,5 @@
 name:                relational-query
-version:             0.0.1.5
+version:             0.0.1.6
 synopsis:            Typeful, Modular, Relational, algebraic query engine
 description:         This package contiains typeful relation structure and
                      relational-algebraic query building DSL which can
diff --git a/src/Database/Relational/Query/Relation.hs b/src/Database/Relational/Query/Relation.hs
--- a/src/Database/Relational/Query/Relation.hs
+++ b/src/Database/Relational/Query/Relation.hs
@@ -350,8 +350,10 @@
 intersectAll' :: Relation p a -> Relation q a -> Relation (p, q) a
 intersectAll' =  liftAppend' $ SubQuery.intersect All
 
-infixl 7 `union`, `except`, `intersect`, `unionAll`, `exceptAll`, `intersectAll`
-infixl 7 `union'`, `except'`, `intersect'`, `unionAll'`, `exceptAll'`, `intersectAll'`
+infixl 7 `union`, `except`, `unionAll`, `exceptAll`
+infixl 8 `intersect`, `intersectAll`
+infixl 7 `union'`, `except'`, `unionAll'`, `exceptAll'`
+infixl 8 `intersect'`, `intersectAll'`
 
 -- | Generate SQL string from 'Relation' with configuration.
 sqlFromRelationWith :: Relation p r -> Config -> StringSQL