Skip to content

Commit 53a568e

Browse files
Add transport lemmas for morphisms to Category/Core
Move transport lemmas from separate file to Core.v per PR HoTT#2298 review - @jdchristensen Changes: - Add transport_compose_morphism and transport_compose_both_inverse to Category/Core.v - Remove TransportMorphisms.v from Additive folder - Use Definition with pattern matching instead of Lemma with destruct - Drop redundant lemmas (moveL_transport_V already exists) Extracted from stable categories formalization (PR HoTT#2288). Tested with: make -f Makefile.coq
1 parent 9ab7d22 commit 53a568e

1 file changed

Lines changed: 17 additions & 0 deletions

File tree

  • theories/Categories/Category

theories/Categories/Category/Core.v

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -155,6 +155,23 @@ Module Export CategoryCoreNotations.
155155
Notation "1" := (identity _) : morphism_scope.
156156
End CategoryCoreNotations.
157157

158+
(** ** Transport lemmas for morphisms *)
159+
160+
(** Transport distributes over composition. *)
161+
Definition transport_compose_morphism {C : PreCategory} {X Y Z W : object C} (p : X = W)
162+
(f : morphism C X Y) (g : morphism C Y Z)
163+
: transport (fun U => morphism C U Z) p (g o f)%morphism =
164+
(g o transport (fun U => morphism C U Y) p f)%morphism
165+
:= match p with idpath => idpath end.
166+
167+
(** Composing transported morphisms along inverse paths. *)
168+
Definition transport_compose_both_inverse {C : PreCategory} {W X Y Z : object C} (p : W = X)
169+
(f : morphism C W Z) (g : morphism C Y W)
170+
: (transport (fun U : object C => morphism C U Z) p f o
171+
transport (fun U : object C => morphism C Y U) p g)%morphism =
172+
(f o g)%morphism
173+
:= match p with idpath => idpath end.
174+
158175
(** We have a tactic for trying to run a tactic after associating morphisms either all the way to the left, or all the way to the right *)
159176
Tactic Notation "try_associativity_quick" tactic(tac) :=
160177
first [ rewrite <- ?associativity; tac

0 commit comments

Comments
 (0)