Skip to content

Commit

Permalink
Explicit uses of a scope.
Browse files Browse the repository at this point in the history
  • Loading branch information
herbelin committed Sep 7, 2023
1 parent 5a48cb7 commit 8936d95
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions theories/Categories/Comma/ProjectionFunctors.v
Original file line number Diff line number Diff line change
Expand Up @@ -44,15 +44,15 @@ Section comma.

Definition comma_category_projection_functor_object_of
(ST : object ((A -> C)^op * (B -> C)))
: Cat / !((A * B; PAB) : Cat).
: Cat / !(((A * B)%category; PAB) : Cat).
Proof.
exists (Datatypes.fst ST / Datatypes.snd ST; P_comma _ _) (center _).
exact (comma_category_projection (Datatypes.fst ST) (Datatypes.snd ST)).
Defined.

Definition comma_category_projection_functor_morphism_of
s d (m : morphism ((A -> C)^op * (B -> C)) s d)
: morphism (Cat / !((A * B; PAB) : Cat))
: morphism (Cat / !(((A * B)%category; PAB) : Cat))
(comma_category_projection_functor_object_of s)
(comma_category_projection_functor_object_of d).
Proof.
Expand Down Expand Up @@ -120,9 +120,9 @@ Section comma.

Definition comma_category_projection_functor
: Functor ((A -> C)^op * (B -> C))
(Cat / !((A * B; PAB) : Cat))
(Cat / !(((A * B)%category; PAB) : Cat))
:= Build_Functor ((A -> C)^op * (B -> C))
(Cat / !((A * B; PAB) : Cat))
(Cat / !(((A * B)%category; PAB) : Cat))
comma_category_projection_functor_object_of
comma_category_projection_functor_morphism_of
comma_category_projection_functor_composition_of
Expand Down

0 comments on commit 8936d95

Please sign in to comment.