fact: Definition Group_rhs (A : OpAlgebra GroupOp) (e : Group_equation) : (Group_eq_arity e → A) → A := match e with | assoc => (fun args => mul' (mul' (args One) (args Two)) (args Three)) | unit_left => (fun args => args Only) | unit_right => (fun args => args Only) | inv_left => (fun args => one') | inv_right => (fun args => one') end.
imports: Category.Lib Category.Theory.Category Category.Structure.Terminal Category.Structure.Initial Category.Structure.Cartesian