Definition is_binary_prod_enriched_arrow {w : C} (f : w --> x) (g : w --> y) : w --> a. Proof. refine (enriched_to_arr E _). use (BinProductArrow _ (is_binary_prod_enriched_to_BinProduct Ha w)). - exact (enriched_from_arr E f). - exact (enriched_from_arr E g). Defined.
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.Core.Univalence. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.Limits.BinProducts. Import MonoidalNotations. Section BinaryProductFromUnderlying. End BinaryProductFromUnderlying.