fact: Definition pvert_y (p : pt) (e : edge) := match vertical_intersection_point p e with Some p' => p_y p' | None => 0 end.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL