fact: Definition path_cocone_naive {C1 C2 : Cocone D X} (P := fun q' => forall (i j : G) (g : G i j) (x : D i), q' j (D _f g x) = q' i x) (path_legs : legs C1 = legs C2) (path_legs_comm : transport P path_legs (legs_comm C1) = legs_comm C2) : C1 = C2 := match path_legs_comm in (_ = v1) return C1 = {|legs := legs C2; legs_comm := v1 |} with | idpath => match path_legs in (_ = v0) return C1 = {|legs := v0; legs_comm := path_legs # (legs_comm C1) |} with | idpath => 1 end end.
imports: Basics Types Diagrams.Graph Diagrams.Diagram