Proposition make_enrichment_over_struct_laws : enrichment_laws make_enrichment_over_struct_data. Proof. repeat split. - intros x y. use eq_mor_hset_struct. intro a ; cbn. rewrite id_right. apply idpath. - intros x y. use eq_mor_hset_struct. intro a ; cbn. rewrite id_left. apply idpath. - intros w x y z. use eq_mor_hset_struct. intro a ; cbn. rewrite assoc. apply idpath. - intros x y f. use eq_mor_hset_struct. intro a ; cbn in *. apply maponpaths. apply isapropunit. Qed.
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.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Cartesian. Require Import UniMath.CategoryTheory.Monoidal.Examples.StructuresMonoidal. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Section FromStructEnrichment. End FromStructEnrichment.