fact: Definition cell_safe_exits_right (c : cell) : seq vert_edge := let lx := p_x (head dummy_pt (right_pts c)) in map (fun p => Build_vert_edge lx (p_y (fst p)) (p_y (snd p))) (seq_to_intervals (rev (right_pts c))).
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL