λ (a b : ↥g), g^.mul a b : ↥g → ↥g → g^.carrier