Lemma isaset_unitary {C : category} (dag : dagger_structure C) (x y : C) : isaset (unitary dag x y). Proof. apply isaset_total2. - apply homset_property. - intro ; apply isasetaprop ; apply isaprop_is_unitary. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.DaggerCategories.Categories.