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