`{P : A -> Type} `{Q : A -> Type} (f1 : forall a:A, P a -> Q a) : (forall a:A, P a) -> (forall a:A, Q a) := functor_forall idmap f1.
Require Import Basics.Overture Basics.Equivalences Basics.PathGroupoids