2014-12-12 04:14:53 +00:00
|
|
|
-- Copyright (c) 2014 Jakob von Raumer. All rights reserved.
|
|
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
-- Author: Jakob von Raumer
|
|
|
|
|
|
|
|
import ..precategory.basic ..precategory.morphism ..precategory.iso
|
|
|
|
|
2014-12-12 19:19:06 +00:00
|
|
|
open precategory morphism is_equiv eq truncation nat sigma sigma.ops
|
2014-12-12 04:14:53 +00:00
|
|
|
|
|
|
|
-- A category is a precategory extended by a witness,
|
|
|
|
-- that the function assigning to each isomorphism a path,
|
|
|
|
-- is an equivalecnce.
|
|
|
|
structure category [class] (ob : Type) extends (precategory ob) :=
|
|
|
|
(iso_of_path_equiv : Π {a b : ob}, is_equiv (@iso_of_path ob (precategory.mk hom _ comp ID assoc id_left id_right) a b))
|
|
|
|
|
2015-01-25 04:23:21 +00:00
|
|
|
persistent attribute category [multiple-instances]
|
2014-12-22 01:18:38 +00:00
|
|
|
|
2014-12-12 04:14:53 +00:00
|
|
|
namespace category
|
|
|
|
variables {ob : Type} {C : category ob} {a b : ob}
|
|
|
|
include C
|
|
|
|
|
|
|
|
-- Make iso_of_path_equiv a class instance
|
|
|
|
-- TODO: Unsafe class instance?
|
2015-01-25 04:23:21 +00:00
|
|
|
persistent attribute iso_of_path_equiv [instance]
|
2014-12-12 04:14:53 +00:00
|
|
|
|
2014-12-12 19:19:06 +00:00
|
|
|
definition path_of_iso {a b : ob} : a ≅ b → a = b :=
|
2014-12-12 04:14:53 +00:00
|
|
|
iso_of_path⁻¹
|
|
|
|
|
|
|
|
definition ob_1_type : is_trunc nat.zero .+1 ob :=
|
|
|
|
begin
|
|
|
|
apply is_trunc_succ, intros (a, b),
|
|
|
|
fapply trunc_equiv,
|
|
|
|
exact (@path_of_iso _ _ a b),
|
|
|
|
apply inv_closed,
|
|
|
|
apply is_hset_iso,
|
|
|
|
end
|
|
|
|
|
|
|
|
end category
|
|
|
|
|
|
|
|
-- Bundled version of categories
|
|
|
|
inductive Category : Type := mk : Π (ob : Type), category ob → Category
|