{A B C} (f : A -> B -> C) (x : A) l {defl defr} : list_map2 f defl defr (repeat x (length l)) l = list_map (f x) l. Proof. induction l as [|y l IHl]. - reflexivity. - cbn; f_ap. Defined.
Require Import Basics.Overture Basics.Tactics Basics.PathGroupoids Basics.Trunc Require Import Types.Paths Types.Unit Types.Prod Types.Sigma Types.Sum