{A B : Type} {P : A -> Type} (f : B <~> A) : (forall a, P a) <~> (forall b, P (f b)) := equiv_functor_forall' (Q := P o f) f (fun b => equiv_idmap).
Require Import Basics.Overture Basics.Equivalences Basics.PathGroupoids