fact: Definition functor_join_join_rec {A B C A' P} (f : A -> A') (g : JoinRecData B C P) : functor_join f (join_rec g) == trijoin_rec {| j1 := joinl o f; j2 := joinr o jl g; j3 := joinr o jr g; j12 := fun a b => jglue (f a) (jl g b); j13 := fun a c => jglue (f a) (jr g c); j23 := fun b c => ap joinr (jg g b c); j123 := fun a b c => triangle_v (f a) (jg g b c); |}.
imports: Basics Types.Paths WildCat Join.Core HoTT.Tactics