fact: Definition pmap_compose_ppforall2_right {A : pType} {P Q : A -> pType} (g : forall (a : A), P a ->* Q a) {f f' : ppforall (a : A), P a} (q : f ==* f') : pmap_compose_ppforall g f ==* pmap_compose_ppforall g f' := pmap_compose_ppforall2 (fun a => phomotopy_reflexive (g a)) q.
imports: Basics Types Pointed.Core