fact: Definition foldr {B : UU} (f : A -> B -> B) (b : B) : list -> B := list_ind (λ _, B) b (λ a _ b', f a b').
imports: UniMath.MoreFoundations.Tactics UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.Vectors