Definition dagger_to_law_id {C : category} (dag : dagger C) : dagger_law_id dag := pr1 (dagger_to_laws dag).
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories.