Lemma isaprop_dagger_laws {C : category} (dag : dagger_structure C) : isaprop (dagger_laws dag). Proof. repeat (apply isapropdirprod) ; repeat (apply impred_isaprop ; intro) ; apply homset_property. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories.