fact: Definition smooth_point_to_point (bottom top : edge) (obstacles : seq edge) (initial final : pt) : seq curve_element := let cells := edges_to_cells bottom top obstacles in smooth_from_cells cells initial final.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL