Definition make_poset_enrichment_data : poset_enrichment_data C. Proof. intros x y. simple refine (_ ,, ((_ ,, _) ,, _)). - exact (make_poset_enrichment_rel x y). - intros f g h p q. exact (trans_PartialOrder (pr2 (E ⦃ x , y ⦄)) p q). - intros f. exact (refl_PartialOrder (pr2 (E ⦃ x , y ⦄)) _). - cbn. intros f g p q. rewrite <- (enriched_to_from_arr E f). rewrite <- (enriched_to_from_arr E g). apply maponpaths. use eq_monotone_function. intro w. induction w. exact (antisymm_PartialOrder (pr2 (E ⦃ x , y ⦄)) p q). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets. 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.Examples.CategoryOfPosets. 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.PosetsMonoidal. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Section FromPosetEnrichment. End FromPosetEnrichment.