proposition: Corollary fork_exl_exr {x y : C} : exl △ exr ≈ @id C (x × y).
proof: Proof. intros. symmetry. apply ump_products; split; cat. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Structure.Terminal