fact: Definition vert_edge_eqb (v1 v2 : vert_edge) := let: Build_vert_edge v1x v1t v1b := v1 in let: Build_vert_edge v2x v2t v2b := v2 in Qeq_bool v1x v2x && Qeq_bool v1t v2t && Qeq_bool v1b v2b.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL