fact: Definition transport_apD10 : forall {A : Type} {B : A -> Type} {a : A} (P : B a -> Type) {t1 t2 : forall x : A, B x} {e : t1 = t2} {p : P (t1 a)}, transport (fun (t : forall x : A, B x) => P (t a)) e p = transport (fun (t : B a) => P t) (apD10 e a) p.
imports: Coq(ssreflect)