Definition enriched_smash_hom_to_mor {x y : C} (f : pr11 (E ⦃ x , y ⦄)) : x --> y. Proof. assert (mor_hset_struct P (pr2 (monoidal_unit (smash_product_monoidal_cat P))) (pr2 (E ⦃ x , y ⦄)) (pointed_hset_struct_map_from_unit P (pr2 (E ⦃ x , y ⦄)) f)) as H. { apply hset_struct_with_smash_map_from_unit. } exact (enriched_to_arr E (_ ,, H)). 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.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.CategoryTheory.DisplayedCats.Structures.CartesianStructure. Require Import UniMath.CategoryTheory.DisplayedCats.Structures.StructureLimitsAndColimits. Require Import UniMath.CategoryTheory.DisplayedCats.Structures.StructuresSmashProduct. Require Import UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Cartesian. Require Import UniMath.CategoryTheory.Monoidal.Examples.SmashProductMonoidal. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Section FromStructSmashEnrichment. End FromStructSmashEnrichment.