(A B C : Type) := natequiv_inverse (trijoin_rec_inv_natequiv A B C). Local trijoin_rec_natequiv_check (A B C P : Type) : equiv_fun_0gpd ( A B C P) = @trijoin_rec A B C P := idpath. Global Instance is0functor_trijoin_rec (A B C P : Type) : Is0Functor (@trijoin_rec A B C P). Proof. change (Is0Functor (equiv_fun_0gpd ( A B C P))). exact _. Defined.
Require Import Basics Types.Paths WildCat Join.Core HoTT.Tactics.