proposition: Lemma filter_subset p s : [seq a <- s | p a] \subset s.
proof: Proof. by apply/subsetP=> x; rewrite mem_filter => /andP[]. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path div)