fact: Definition ttail (et : colseq) : colseq := if proper_trace et then if et is c :: et' then permt (edge_rot c) et' else [::] else [:: Color0].
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype)