fact: Fixpoint no_dup_seq_aux [A : Type] (eqb : A -> A -> bool) (s : seq A) : (seq A) := match s with | nil => nil | a::q => match q with | nil => s | b::r => if eqb a b then no_dup_seq_aux eqb q else a::(no_dup_seq_aux eqb q) end end.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL