Definition composePathPathOver_compute {X:Type} {x' x'':X} {p:x'=x''} {Y : X -> Type} {y y': Y x'} {y'' : Y x''} (e : y = y') (q : PathOver p y' y'') : e ⟤ q = ∇ e * q. Proof. now induction p. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.PartA.