{A B C D} (f : A -> C) (g : B -> D) : A /\ B -> C /\ D := fun x => (f (fst x), g (snd x)). Section closeness. Universe UA. Context {A:Type@{UA} } `{Closeness A}. Global Instance id_nonexpanding : NonExpanding (@id A). Proof. hnf;trivial. Qed.
Require Import Import NatPair.Instances. Import Quoting.Instances.