fact: CoInductive has_spec (s : seq A) : bool -> Type := | has_true x of x \in s & p x : has_spec s true | has_false of (all (predC p) s) : has_spec s false.
imports: mathcomp(ssreflect ssrbool eqtype ssrfun seq) Eqdep ClassicalFacts