fact: Record TriJoinRecPath' {A B C P : Type} {j1' : A -> P} {j2' : B -> P} {j3' : C -> P} {f g : TriJoinRecData' j1' j2' j3'} := { h12' : forall a b, j12' f a b = j12' g a b; h13' : forall a c, j13' f a c = j13' g a c; h23' : forall b c, j23' f b c = j23' g b c; h123' : forall a b c, prism' (j123' f a b c) (j123' g a b c) (h12' a b) (h13' a c) (h23' b c); }.
imports: Basics Types.Paths WildCat Join.Core HoTT.Tactics