fact: Definition intersect(A : Set)(eqd : eq_dec A)(ls1 ls2 : list A) := filter (fun x => if (in_dec eqd x ls1) then true else false) ls2.
imports: FCF.DistSem FCF.Fold Permutation FCF.SemEquiv FCF.DetSem FCF.NotationV1 micromega.Lia