fact: Definition dfs1_correct (dfs1 : V -> env -> nat * env) x e := (x \in whites e) -> pre_dfs [set x] e -> let (m, e') := dfs1 x e in (x \in blacks e') /\ post_dfs [set x] e e' m.
imports: mathcomp(all_ssreflect) extra