fact: Definition outenv (roots : {set V}) m scc (e e' : env) := [/\ m = val (\min_(x in nexts (~:seen e) roots) @inord #|V| (num e' x)), scc = new_stack e e', {in new_stack e e' &, gconnected}, {in new_stack e e', forall x, exists2 y, y \in stack e & gconnect x y} & seen e' = seen e :|: nexts (~: seen e) roots].
imports: mathcomp(all_ssreflect) bigmin extra