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