proposition: Lemma support_NoDup : forall (A : Set)(c : Comp A), NoDup (getSupport c).
proof: Proof. intuition. specialize (getSupport_correct c); intuition. inversion H. eauto. Qed.
imports: FCF.DistSem FCF.Fold Permutation FCF.SemEquiv FCF.DetSem FCF.NotationV1 micromega.Lia