fact: Definition BoolOp : OpAlgebra GroupOp := {| carrier := bool ; op := (fun (o : operation GroupOp) => match o with | one => (fun args => false) | mul => (fun args => xor (args Fst) (args Snd)) | inv => (fun args => args Only) end) |}.
imports: Category.Lib Category.Theory.Category Category.Structure.Terminal Category.Structure.Initial Category.Structure.Cartesian