X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FReificationFromGeneralizedArrow.v;fp=src%2FReificationFromGeneralizedArrow.v;h=ed92c57e701541fc537fe94d052616a48e52a3d6;hp=0000000000000000000000000000000000000000;hb=76f4613eaa5989e29bfd59d716c216ee5386c5f7;hpb=8dc348a407d7a476388401765b24f7815cc801cf

diff --git a/src/ReificationFromGeneralizedArrow.v b/src/ReificationFromGeneralizedArrow.v
new file mode 100644
index 0000000..ed92c57
--- /dev/null
+++ b/src/ReificationFromGeneralizedArrow.v
@@ -0,0 +1,37 @@
+(*********************************************************************************************************************************)
+(* ReificationFromGeneralizedArrow:                                                                                              *)
+(*                                                                                                                               *)
+(*   Turn a reification into a generalized arrow                                                                                 *)
+(*                                                                                                                               *)
+(*********************************************************************************************************************************)
+
+Generalizable All Variables.
+Require Import Preamble.
+Require Import General.
+Require Import Categories_ch1_3.
+Require Import Functors_ch1_4.
+Require Import Isomorphisms_ch1_5.
+Require Import ProductCategories_ch1_6_1.
+Require Import OppositeCategories_ch1_6_2.
+Require Import Enrichment_ch2_8.
+Require Import Subcategories_ch7_1.
+Require Import NaturalTransformations_ch7_4.
+Require Import NaturalIsomorphisms_ch7_5.
+Require Import MonoidalCategories_ch7_8.
+Require Import Coherence_ch7_8.
+Require Import Enrichment_ch2_8.
+Require Import RepresentableStructure_ch7_2.
+Require Import Reification.
+Require Import GeneralizedArrow.
+
+Definition reification_from_garrow (K:Enrichment) (C:MonoidalEnrichment) (garrow : GeneralizedArrow K C)
+ : Reification K C (mon_i C).
+  refine
+  {| reification_r         := fun k:K => RepresentableFunctor K k >>>> garrow
+   ; reification_rstar_f   :=                                garrow >>>> me_mf C
+   ; reification_rstar     :=              MonoidalFunctorsCompose _ _ _ _ _ garrow (me_mf C)
+   |}.
+   abstract (intros; set (@ni_associativity) as q; apply q).
+   Defined.
+
+