expreduce
expreduce copied to clipboard
There is odd interaction between held parts and Flat sequences
In[333]:= fooPlus[Plus[addends__]] := Hold[addends]
In[334]:= fooPlus[Plus[a, b, c]]
Out[334]= Hold[a + b + c]
Where Expreduce returns:
Hold[a, b, c]