Tuple addition in pointfree
44 bytes
Got this from \x y -&gt; (fst x + fst y, snd x + snd y)

(&lt;*&gt;).((,).).(.fst).(+).fst&lt;*&gt;(.snd).(+).snd

Try it online!
Or, 42 bytes using do:
do a&lt;-fst;((,).(a+).fst&lt;*&gt;).(.snd).(+).snd

Try it online!