fact: Definition dagger_to_law_comp {C : category} (dag : dagger C) : dagger_law_comp dag := pr12 (dagger_to_laws dag).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories