Lemma foldr1_map_cons {A : UU} {B : UU} (f : B -> B -> B) (b : B) (h : A -> B) (x y : A) (xs : list A) : foldr1_map f b h (cons x (cons y xs)) = f (h x) (foldr1_map f b h (cons y xs)). Proof. apply idpath. Qed.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.Vectors.