Skip to content

Commit

Permalink
demote priority of cocartesian monoidal structure
Browse files Browse the repository at this point in the history
Signed-off-by: Ali Caglayan <[email protected]>

<!-- ps-id: 9706039f-996e-44fe-a117-ecfa8df85629 -->
  • Loading branch information
Alizter committed Oct 10, 2024
1 parent 9ed2b66 commit e85030d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions theories/WildCat/Coproducts.v
Original file line number Diff line number Diff line change
Expand Up @@ -381,7 +381,7 @@ Definition cat_bincoprod_swap_rec {A : Type} `{Is1Cat A}

Global Instance ismonoidal_cat_bincoprod {A : Type} `{HasEquivs A}
`{!HasBinaryCoproducts A} (zero : A) `{!IsInitial zero}
: IsMonoidal A (fun x y => cat_bincoprod x y) zero.
: IsMonoidal A (fun x y => cat_bincoprod x y) zero | 10.
Proof.
nrapply ismonoidal_op'.
nrapply (ismonoidal_cat_binprod (A:=A^op) zero).
Expand All @@ -390,7 +390,7 @@ Defined.

Global Instance issymmetricmonoidal_cat_bincoprod {A : Type} `{HasEquivs A}
`{!HasBinaryCoproducts A} (zero : A) `{!IsInitial zero}
: IsSymmetricMonoidal A (fun x y => cat_bincoprod x y) zero.
: IsSymmetricMonoidal A (fun x y => cat_bincoprod x y) zero | 10.
Proof.
nrapply issymmetricmonoidal_op'.
nrapply (issymmetricmonoidal_cat_binprod (A:=A^op) zero).
Expand Down

0 comments on commit e85030d

Please sign in to comment.