fact: Definition concat_Ap {A B : Type} {f g : A -> B} (p : forall x, f x = g x) {x y : A} (q : x = y) : (ap f q) @ (p y) = (p x) @ (ap g q) := match q with | idpath => concat_1p_p1 _ end.
imports: Basics.Overture Basics.Tactics