proposition: Theorem bimap_triangle_right {x y} : unit_right << (x ⨂ y) ⨂ I ~~> x ⨂ y >> bimap id unit_right ∘ to tensor_assoc.
proof: Proof. rewrite triangle_identity_right. rewrite <- comp_assoc. rewrite iso_from_to; cat. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Functor.Bifunctor Category.Structure.Monoidal