Skip to content

Fix type of exported natural isomorphisms#447

Merged
JacquesCarette merged 1 commit intoagda:masterfrom
jacquescomeaux:op-cartesian-nat-iso-fix
Jan 17, 2025
Merged

Fix type of exported natural isomorphisms#447
JacquesCarette merged 1 commit intoagda:masterfrom
jacquescomeaux:op-cartesian-nat-iso-fix

Conversation

@jacquescomeaux
Copy link
Contributor

These two natural isomorphisms are not oped enough

{-# OPTIONS --without-K --safe #-}

open import Categories.Category.Core using (Category)
open import Categories.Category.Cocartesian using (Cocartesian)

module Minimal {o ℓ e} {𝒞 : Category o ℓ e} (cocartesian : Cocartesian 𝒞) where

open import Categories.Category.Cocartesian using (module CocartesianMonoidal)
open import Categories.Functor using (id; Functor)
open import Categories.NaturalTransformation.NaturalIsomorphism using (NaturalIsomorphism)

open Cocartesian cocartesian using (⊥; _+-; -+_)
open CocartesianMonoidal 𝒞 cocartesian using () renaming (⊥+--id to ⊥+--id′; -+⊥-id to -+⊥-id′)

module Bad where

  open Functor using (op)

  ⊥+--id : NaturalIsomorphism (op (⊥ +-)) id
  ⊥+--id = ⊥+--id′

  -+⊥-id : NaturalIsomorphism (op (-+ ⊥)) id
  -+⊥-id = -+⊥-id′

module Good where

  open NaturalIsomorphism using (op′)

  ⊥+--id : NaturalIsomorphism (⊥ +-) id
  ⊥+--id = op′ ⊥+--id′

  -+⊥-id : NaturalIsomorphism (-+ ⊥) id
  -+⊥-id = op′ -+⊥-id′

@JacquesCarette JacquesCarette merged commit a797628 into agda:master Jan 17, 2025
1 check passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants