fact: Definition mul' {G : OpAlgebra GroupOp} (x y : G) := op G mul (fun i => match i with | Fst => x | Snd => y end).
imports: Category.Lib Category.Theory.Category Category.Structure.Terminal Category.Structure.Initial Category.Structure.Cartesian