projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fill in lots of missing proofs
[coq-hetmet.git]
/
src
/
NaturalDeductionCategory.v
diff --git
a/src/NaturalDeductionCategory.v
b/src/NaturalDeductionCategory.v
index
7ac59b3
..
d721a97
100644
(file)
--- a/
src/NaturalDeductionCategory.v
+++ b/
src/NaturalDeductionCategory.v
@@
-72,7
+72,7
@@
Section Judgments_Category.
setoid_rewrite <- ndr_prod_preserves_comp.
apply (ndr_builtfrom_structural (f;;g)); auto.
Defined.
setoid_rewrite <- ndr_prod_preserves_comp.
apply (ndr_builtfrom_structural (f;;g)); auto.
Defined.
- Instance Judgments_Category_binoidal : BinoidalCat Judgments_Category (fun x y => x,,y) :=
+ Instance Judgments_Category_binoidal : BinoidalCat Judgments_Category (@T_Branch (??Judgment)) :=
{ bin_first := jud_first
; bin_second := jud_second }.
{ bin_first := jud_first
; bin_second := jud_second }.