fact: Fixpoint tool_list_to_prodn (E:gset A) (R:grel A) (xs: seq A) : prodn (gset (seq A)) (size xs) := match xs with | [::] => tt | hd :: tl => pair (gpred_list (Intersection E (R hd))) (tool_list_to_prodn E R tl) end.
imports: Coq(RelationClasses Setoid Morphisms SetoidList Mergesort Permutation) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq fintype) mathcomp(bigop path) RegexpBrzozowski(glue)