58 lines
1.8 KiB
Text
58 lines
1.8 KiB
Text
|
/-
|
|||
|
|
Copyright (c) 2015 Ulrik Buchholtz. All rights reserved.
|
|||
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|||
|
|
Authors: Ulrik Buchholtz
|
|||
|
|
-/
|
|||
|
|
import types.trunc hit.sphere hit.pushout
|
|||
|
|
|
|||
|
|
open eq is_trunc is_equiv nat equiv trunc prod pushout sigma sphere_index unit
|
|||
|
|
|
|||
|
|
-- where should this be?
|
|||
|
|
definition family : Type := ΣX, X → Type
|
|||
|
|
|
|||
|
|
-- this should be in init!
|
|||
|
|
namespace nat
|
|||
|
|
|
|||
|
|
definition cases {M : ℕ → Type} (mz : M zero) (ms : Πn, M (succ n)) : Πn, M n :=
|
|||
|
|
nat.rec mz (λn dummy, ms n)
|
|||
|
|
|
|||
|
|
end nat
|
|||
|
|
|
|||
|
|
namespace cellcomplex
|
|||
|
|
|
|||
|
|
/-
|
|||
|
|
define by recursion on ℕ
|
|||
|
|
both the type of fdccs of dimension n
|
|||
|
|
and the realization map fdcc n → Type
|
|||
|
|
|
|||
|
|
in other words, we define a function
|
|||
|
|
fdcc : ℕ → family
|
|||
|
|
|
|||
|
|
an alternative to the approach here (perhaps necessary) is to
|
|||
|
|
define relative cell complexes relative to a type A, and then use
|
|||
|
|
spherical indexing, so a -1-dimensional relative cell complex is
|
|||
|
|
just star : unit with realization A
|
|||
|
|
-/
|
|||
|
|
|
|||
|
|
definition fdcc_family [reducible] : ℕ → family :=
|
|||
|
|
nat.rec
|
|||
|
|
-- a zero-dimensional cell complex is just an hset
|
|||
|
|
-- with realization the identity map
|
|||
|
|
⟨hset , λA, trunctype.carrier A⟩
|
|||
|
|
(λn fdcc_family_n, -- sigma.rec (λ fdcc_n realize_n,
|
|||
|
|
/- a (succ n)-dimensional cell complex is a triple of
|
|||
|
|
an n-dimensional cell complex X, an hset of (succ n)-cells A,
|
|||
|
|
and an attaching map f : A × sphere n → |X| -/
|
|||
|
|
⟨Σ X : pr1 fdcc_family_n , Σ A : hset, A × sphere n → pr2 fdcc_family_n X ,
|
|||
|
|
/- the realization of such is the pushout of f with
|
|||
|
|
canonical map A × sphere n → unit -/
|
|||
|
|
sigma.rec (λX , sigma.rec (λA f, pushout (λx , star) f))
|
|||
|
|
⟩)
|
|||
|
|
|
|||
|
|
definition fdcc (n : ℕ) : Type := pr1 (fdcc_family n)
|
|||
|
|
|
|||
|
|
definition cell : Πn, fdcc n → hset :=
|
|||
|
|
nat.cases (λA, A) (λn T, pr1 (pr2 T))
|
|||
|
|
|
|||
|
|
end cellcomplex
|