re-arrange ProgrammingLanguage

[coq-hetmet.git] / src / ProgrammingLanguageGeneralizedArrow.v

diff --git a/src/ProgrammingLanguageGeneralizedArrow.v b/src/ProgrammingLanguageGeneralizedArrow.v
index 620ca9f..bac2397 100644 (file)
--- a/src/ProgrammingLanguageGeneralizedArrow.v
+++ b/src/ProgrammingLanguageGeneralizedArrow.v
@@ -29,34 +29,20 @@ Require Import NaturalDeductionCategory.
 
 Require Import FreydCategories.
 
+Require Import Reification.
+Require Import GeneralizedArrow.
 Require Import GeneralizedArrowFromReification.
-Section GArrowInLanguage.
+Require Import ProgrammingLanguage.
 
-  Definition GeneralizedArrowInLanguage (Guest:ProgrammingLanguageSMME) (Host :ProgrammingLanguageSMME)
-    := GeneralizedArrow Guest Host.
-
-  Definition ArrowsAreGeneralizedArrows (Host:ProgrammingLanguageSMME)
-    {mf}{mn}{cc}{kehom}{CC}
-    (arrow:ArrowInProgrammingLanguage Host _ _ CC mf mn cc kehom) :  GeneralizedArrowInLanguage.
-
-  Definition TwoLevelLanguage := Reification Guest Host (me_i Host).
+Require Import ReificationsAndGeneralizedArrows.
+Require Import ReificationFromGeneralizedArrow.
 
-  Context (GuestHost:TwoLevelLanguage).
+Section ProgrammingLanguageGeneralizedArrow.
 
-  Definition FlatObject (x:TypesL _ _ Host) :=
-    forall y1 y2, not ((reification_r_obj GuestHost y1 y2)=x).
+  Context (Guest:ProgrammingLanguageSMME) (Host :ProgrammingLanguageSMME).
 
-  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.
+  Definition GeneralizedArrowInLanguage 
+    := GeneralizedArrow Guest Host.
 
-  End Flattening.
+End ProgrammingLanguageGeneralizedArrow.
 
-End GArrowInLanguage.