fact: Definition on_vert_edge (p : pt) (v : vert_edge) : bool := Qeq_bool (p_x p) (ve_x v) && Qlt_bool (ve_bot v) (p_y p) && Qlt_bool (p_y p) (ve_top v).
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL