fact: Definition pt_eqb (a b : pt) : bool := let: Bpt a_x a_y := a in let: Bpt b_x b_y := b in (Qeq_bool a_x b_x)%Q && (Qeq_bool a_y b_y).
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL