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