fact: Definition absemigr_perm021 : ∏ X : hSet, ∏ opp : binop X, ∏ is : isabsemigrop opp, ∏ n0 n1 n2, opp (opp n0 n1) n2 = opp (opp n0 n2) n1 := λ X opp is n0 n1 n2, pathscomp0 (pathscomp0 ((pr1 is) n0 n1 n2) (maponpaths (λ z, opp n0 z) ((pr2 is) n1 n2))) (pathsinv0 ((pr1 is) n0 n2 n1)).
imports: UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Tactics.Monoids_Tactics UniMath.Tactics.Utilities