proposition: Lemma unitary_eq {C : category} {dag : dagger_structure C} {x y : C} (f g : unitary dag x y) : pr1 f = pr1 g -> f = g.
proof: Proof. intro p. apply (total2_paths_f p). apply isaprop_is_unitary. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.DaggerCategories.Categories