projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update baked in CoqPass.hs
[coq-hetmet.git]
/
src
/
ProgrammingLanguageGeneralizedArrow.v
diff --git
a/src/ProgrammingLanguageGeneralizedArrow.v
b/src/ProgrammingLanguageGeneralizedArrow.v
index
bac2397
..
8fe0391
100644
(file)
--- a/
src/ProgrammingLanguageGeneralizedArrow.v
+++ b/
src/ProgrammingLanguageGeneralizedArrow.v
@@
-27,22
+27,21
@@
Require Import FunctorCategories_ch7_7.
Require Import NaturalDeduction.
Require Import NaturalDeductionCategory.
Require Import NaturalDeduction.
Require Import NaturalDeductionCategory.
-Require Import FreydCategories.
-
+Require Import Enrichments.
Require Import Reification.
Require Import GeneralizedArrow.
Require Import Reification.
Require Import GeneralizedArrow.
-Require Import GeneralizedArrowFromReification.
-Require Import ProgrammingLanguage.
-
-Require Import ReificationsAndGeneralizedArrows.
-Require Import ReificationFromGeneralizedArrow.
+Require Import ProgrammingLanguageEnrichment.
Section ProgrammingLanguageGeneralizedArrow.
Section ProgrammingLanguageGeneralizedArrow.
- Context (Guest:ProgrammingLanguageSMME) (Host :ProgrammingLanguageSMME).
+ Context
+ `(Guest : ProgrammingLanguage)
+ `(Host : ProgrammingLanguage)
+ (HostMonoidal : MonoidalEnrichment (TypesEnrichedInJudgments Host))
+ (HostMonic : MonicEnrichment (TypesEnrichedInJudgments Host)).
Definition GeneralizedArrowInLanguage
Definition GeneralizedArrowInLanguage
- := GeneralizedArrow Guest Host.
+ := GeneralizedArrow (TypesEnrichedInJudgments Guest) HostMonoidal.
End ProgrammingLanguageGeneralizedArrow.
End ProgrammingLanguageGeneralizedArrow.