5
You mean something like:
Scan[
Function[head,
head /: Plus[head[x_], head[y_], z___] := head[x + y] + z;
head /: Times[c_, head[x_]] := head[c x]
],
{f, g, h}
]
Only top voted, non community-wiki answers of a minimum length are eligible
