bsc-leon-vatthauer/Extensive/Bundle.agda

31 lines
874 B
Agda
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

{-# 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
open import Extensive.Core
import Categories.Morphism as M
module Extensive.Bundle where
open import Level
record ExtensiveCategory o e : Set (suc (o e)) where
field
U : Category o e
extensive : Extensive U
open Category U public
open Extensive extensive public
record ExtensiveDistributiveCategory o e : Set (suc (o e)) where
field
U : Category o e
cartesian : Cartesian U
extensive : Extensive U
open Category U public
open Extensive extensive public
open Distributive (Extensive⇒Distributive cartesian extensive) public