fact: Fixpoint glue (bs : seq bool) n (w : seq (vec n)) := match bs,w with | b::bs,v::w => [tuple of b :: v] :: glue bs w | b::bs,[::] => [tuple of b :: nseq n false] :: glue bs [::] | nil,w => map (fun v : vec n => [tuple of false :: v]) w end.
imports: mathcomp(all_ssreflect) RegLang(misc languages dfa nfa regexp)