fun a b => g.mul a b : g.carrier → g.carrier → g.carrier