proposition: Lemma composePathOverPathRotate {X:Type} {x x':X} {p:x=x'} {Y : X -> Type} {y : Y x} {y' y'': Y x'} (r : PathOver p y y') (q : y' = y'') (s : PathOver p y y'') : r ⟥ q = s <-> r = s ⟥ (!q).
proof: Proof. induction q. simpl. apply isrefl_logeq. Defined.
imports: UniMath.Foundations.All UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.PartA