X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FProgrammingLanguageGeneralizedArrow.v;h=8fe0391c19affafe821d2a957226c029eae3145f;hp=620ca9f2e342aff99009e096e3e3a9b92ca1b042;hb=034f7e7856bebbbcb3c83946aa603c640b17f3bb;hpb=ec8ee5cde986e5b38bcae38cda9e63eba94f1d9f

diff --git a/src/ProgrammingLanguageGeneralizedArrow.v b/src/ProgrammingLanguageGeneralizedArrow.v
index 620ca9f..8fe0391 100644
--- a/src/ProgrammingLanguageGeneralizedArrow.v
+++ b/src/ProgrammingLanguageGeneralizedArrow.v
@@ -27,36 +27,21 @@ Require Import FunctorCategories_ch7_7.
 Require Import NaturalDeduction.
 Require Import NaturalDeductionCategory.
 
-Require Import FreydCategories.
+Require Import Enrichments.
+Require Import Reification.
+Require Import GeneralizedArrow.
+Require Import ProgrammingLanguageEnrichment.
 
-Require Import GeneralizedArrowFromReification.
-Section GArrowInLanguage.
+Section ProgrammingLanguageGeneralizedArrow.
 
-  Definition GeneralizedArrowInLanguage (Guest:ProgrammingLanguageSMME) (Host :ProgrammingLanguageSMME)
-    := GeneralizedArrow Guest Host.
+  Context
+  `(Guest        : ProgrammingLanguage)
+  `(Host         : ProgrammingLanguage)
+   (HostMonoidal : MonoidalEnrichment (TypesEnrichedInJudgments Host))
+   (HostMonic    : MonicEnrichment    (TypesEnrichedInJudgments Host)).
 
-  Definition ArrowsAreGeneralizedArrows (Host:ProgrammingLanguageSMME)
-    {mf}{mn}{cc}{kehom}{CC}
-    (arrow:ArrowInProgrammingLanguage Host _ _ CC mf mn cc kehom) :  GeneralizedArrowInLanguage.
+  Definition GeneralizedArrowInLanguage 
+    := GeneralizedArrow (TypesEnrichedInJudgments Guest) HostMonoidal.
 
-  Definition TwoLevelLanguage := Reification Guest Host (me_i Host).
+End ProgrammingLanguageGeneralizedArrow.
 
-  Context (GuestHost:TwoLevelLanguage).
-
-  Definition FlatObject (x:TypesL _ _ Host) :=
-    forall y1 y2, not ((reification_r_obj GuestHost y1 y2)=x).
-
-  Definition FlatSubCategory := FullSubcategory (TypesL _ _ Host) FlatObject.
-
-  Section Flattening.
-
-    Context  (F:Retraction (TypesL _ _ Host) FlatSubCategory).
-    Definition FlatteningOfReification := garrow_from_reification Guest Host GuestHost >>>> F.
-    Lemma FlatteningIsNotDestructive : 
-      FlatteningOfReification >>>> retraction_retraction F >>>> HomFunctor _ (me_i Host) ~~~~ GuestHost.
-      admit.
-      Qed.
-
-  End Flattening.
-
-End GArrowInLanguage.