2023-07-28 20:50:27 +02:00
|
|
|
|
{-# OPTIONS --without-K --safe #-}
|
|
|
|
|
|
|
|
|
|
|
|
open import Categories.Category
|
|
|
|
|
|
open import Categories.Category.Cartesian
|
|
|
|
|
|
open import Categories.Category.BinaryProducts
|
|
|
|
|
|
open import Categories.Category.Cocartesian
|
|
|
|
|
|
open import Distributive.Core using (Distributive)
|
|
|
|
|
|
import Categories.Morphism as M
|
|
|
|
|
|
|
|
|
|
|
|
module Distributive.Bundle where
|
|
|
|
|
|
|
|
|
|
|
|
open import Level
|
|
|
|
|
|
|
|
|
|
|
|
record DistributiveCategory o ℓ e : Set (suc (o ⊔ ℓ ⊔ e)) where
|
|
|
|
|
|
field
|
|
|
|
|
|
U : Category o ℓ e
|
2023-07-30 17:47:06 +02:00
|
|
|
|
cartesian : Cartesian U
|
|
|
|
|
|
cocartesian : Cocartesian U
|
|
|
|
|
|
distributive : Distributive U cartesian cocartesian
|
2023-07-28 20:50:27 +02:00
|
|
|
|
|
|
|
|
|
|
open Category U public
|
|
|
|
|
|
open Distributive distributive public
|
