fact: Record scan_state := Bscan {sc_open1 : seq cell; lst_open : cell; sc_open2 : seq cell; sc_closed : seq cell; lst_closed : cell; lst_high : edge; lst_x : R}.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL