Require Import NaturalDeduction.
Require Import NaturalDeductionCategory.
-Require Import FreydCategories.
-
+Require Import Enrichments.
Require Import Reification.
Require Import GeneralizedArrow.
-Require Import GeneralizedArrowFromReification.
-Require Import ProgrammingLanguage.
-
-Require Import ReificationsAndGeneralizedArrows.
-Require Import ReificationFromGeneralizedArrow.
+Require Import ProgrammingLanguageEnrichment.
Section ProgrammingLanguageGeneralizedArrow.
- Context (Guest:ProgrammingLanguageSMME) (Host :ProgrammingLanguageSMME).
+ Context
+ `(Guest : ProgrammingLanguage)
+ `(Host : ProgrammingLanguage)
+ (HostMonoidal : MonoidalEnrichment (TypesEnrichedInJudgments Host))
+ (HostMonic : MonicEnrichment (TypesEnrichedInJudgments Host)).
Definition GeneralizedArrowInLanguage
- := GeneralizedArrow Guest Host.
+ := GeneralizedArrow (TypesEnrichedInJudgments Guest) HostMonoidal.
End ProgrammingLanguageGeneralizedArrow.