fact: Definition cell_path (cells : seq cell) (source_i target_i : nat) : option (seq nat) := match cell_connection_table cells source_i target_i with | inr _ => None | inl (table, _) => make_path _ _ _ bfs_find table (fun c_i => Nat.eqb c_i target_i) (fun n1 n2 => Some n2) source_i (List.length cells) end.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL