fact: Fixpoint SCC'_list_aux i L := match L with | nil => nil | x :: q => match eq_opt_dec eq_nat_dec (SCC'_tag HM x) (Some i) with | left _ => x :: @SCC'_list_aux i q | right _ => @SCC'_list_aux i q end end.
imports: Coq(Permutation Multiset Setoid PermutSetoid) CoLoR(SCCTopoOrdering AGraph ATrs RelUtil RelSub BoundNat AdjMat LogicUtil NatUtil SCC SCC_dec ListExtras SN VecUtil GDomainBij OptUtil Union SortUtil ListNodup ListPermutation)