(A B C : Type) : TriJoinRecData A B C (TriJoin B A C) := Build_TriJoinRecData join2 join1 join3 (fun a b => (join12 b a)^) join23 join13 (fun a b c => moveR_Vp _ _ _ (join123 b a c)^).
Require Import Basics Types WildCat Join.Core Join.TriJoin Spaces.Nat.Core.