{A B C A' B' C'} {f f' : A -> A'} {g g' : B -> B'} {h h' : C -> C'} (p : f == f') (q : g == g') (r : h == h') : functor_trijoin f g h == functor_trijoin f' g' h'. Proof. unfold functor_trijoin. rapply (fmap trijoin_rec). apply (trijoinrecdata_tricomp2 _ p q r). Defined.
Require Import Basics Types.Paths WildCat Join.Core HoTT.Tactics.