proposition: Lemma map_flatten S T (f : T -> S) ss : map f (flatten ss) = flatten (map (map f) ss).
proof: Proof. by elim: ss => // s ss /= <-; apply: map_cat. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)