fact: Definition listOf {A : Type} (g : G A) : G (list A) := sized (fun n => bind (choose (0, n)) (fun k => vectorOf k g)).
imports: ZArith List Lia mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat seq eqtype) QuickChick(Sets Tactics RandomQC)