fact: Fixpoint limit_get l k (t : tree l k) : tree l k := match t with | Frontier k' => Frontier k' | Node l' k' s => let s' := map (@limit_get _ _) s in Node (take n s') end.
imports: mathcomp(all_ssreflect ssralg fingroup zmodp poly ssrnum) mathcomp(matrix perm) ssr_ext ssralg_ext fdist