proposition: Lemma Hdc: SetoidList.compat_op eq equal fdot.
proof: Proof. intros i j x y H H'; subst; unfold fdot. destruct_tests; auto with compat. rewrite <- H'. symmetry; constructor. rewrite H'. constructor. Qed.
imports: ATBR(MyFSets MyFSetProperties) ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(Numbers) ATBR(Reification)