fact: Fixpoint removeDups(ls : list A) := match ls with | nil => nil | a' :: ls' => if (in_dec (EqDec_dec _) a' ls') then (removeDups ls') else (a' :: (removeDups ls')) end.
imports: FCF.Rat List Permutation Arith FCF.EqDec FCF.StdNat Bool