fact: Fixpoint path_join {I : Type} {g : (I * I) → Type} {i} (p : Path (Path g) i) : Path g i := match p with | Stop k => Stop | Link _ _ _ x xs => path_compose I g x (path_join xs) end.
imports: Hask.Ltac Coq.Program.Equality Coq.Unicode.Utf8 FunctionalExtensionality Iso Tuple