oh my god guys!!! Located is a lax semimonoidal endofunctor on the category Hask!!!

![abstractionjak](https://media.discordapp.net/attachments/1101767463579951154/1200248978642567168/3877820-20SoyBooru.png?ex=65c57df8&is=65b308f8&hm=67da3acb61861cab6156df014b397d78fb8815fa163f2e992474d545beb668ba&=&format=webp&quality=lossless&width=880&height=868)

src/Rlp/Syntax.hs

@@ -15,7 +15,10 @@ module Rlp.Syntax
     , ConAlt(..)
 
     -- * Pattern synonyms for unused extensions
+    -- ** Decl
     , pattern InfixD'
+    -- ** RlpExpr
+    , pattern ParE', pattern VarE', pattern LitE'
 
     -- * Trees That Grow extensions
     , XRec, IdP
@@ -103,6 +106,15 @@ type family XXRlpExpr p
 
 type family IdP p
 
+pattern ParE' :: (XParE p ~ ()) => RlpExpr' p -> RlpExpr p
+pattern ParE' e = ParE () e
+
+pattern LitE' :: (XLitE p ~ ()) => Lit p -> RlpExpr p
+pattern LitE' e = LitE () e
+
+pattern VarE' :: (XVarE p ~ ()) => IdP p -> RlpExpr p
+pattern VarE' e = VarE () e
+
 type Where p = [Bind p]
 
 -- do we want guards?