michael/Spectral
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Renamed homology file + fixed a superfluous hypothesis in spectrify_map

Browse source
This commit is contained in:
Yuri Sulyma 2017-06-06 12:08:37 -06:00
parent 76a0f5a683
commit 7125413a9a
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
homotopy/homology.hlean → homology/homology.hlean
View file

@ -1,11 +1,12 @@
import .spectrum .EM ..algebra.arrow_group ..algebra.direct_sum .fwedge ..choice .pushout ..move_to_lib ..algebra.product_group import ..homotopy.spectrum ..homotopy.EM ..algebra.arrow_group ..algebra.direct_sum ..homotopy.fwedge ..choice ..homotopy.pushout ..move_to_lib
open eq spectrum int trunc pointed EM group algebra circle sphere nat EM.ops equiv susp is_trunc open eq spectrum int trunc pointed EM group algebra circle sphere nat EM.ops equiv susp is_trunc
function fwedge cofiber bool lift sigma is_equiv choice pushout algebra unit pi function fwedge cofiber bool lift sigma is_equiv choice pushout algebra unit pi smash
namespace homology namespace homology
/- homology theory -/ /- homology theory -/
structure homology_theory.{u} : Type.{u+1} := structure homology_theory.{u} : Type.{u+1} :=
(HH : ℤ → pType.{u} → AbGroup.{u}) (HH : ℤ → pType.{u} → AbGroup.{u})
(Hh : Π(n : ℤ) {X Y : Type*} (f : X →* Y), HH n X →g HH n Y) (Hh : Π(n : ℤ) {X Y : Type*} (f : X →* Y), HH n X →g HH n Y)

3
homotopy/spectrum.hlean
View file

@ -422,8 +422,7 @@ namespace spectrum
by induction k with k f; reflexivity; exact f ⬝e* loopn_pequiv_loopn k (equiv_glue X (n +' k)) by induction k with k f; reflexivity; exact f ⬝e* loopn_pequiv_loopn k (equiv_glue X (n +' k))
⬝e* !loopn_succ_in⁻¹ᵉ* ⬝e* !loopn_succ_in⁻¹ᵉ*
definition spectrify_map {N : succ_str} {X : gen_prespectrum N} {Y : gen_spectrum N} definition spectrify_map {N : succ_str} {X : gen_prespectrum N} : X →ₛ spectrify X :=
(f : X →ₛ Y) : X →ₛ spectrify X :=
begin begin
fapply smap.mk, fapply smap.mk,
{ intro n, exact pinclusion _ 0 }, { intro n, exact pinclusion _ 0 },