fact: Definition collapse : dfa := {| dfa_s := \pi_(collapse_state) (dfa_s A); dfa_trans x a := \pi (dfa_trans (repr x) a); dfa_fin := [set x : collapse_state | repr x \in dfa_fin A ] |}.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph finfun finset generic_quotient) RegLang(misc languages dfa)