Module ESet := G E.

Lemma commute :
forall (S : ESet.T) (a1 a2 : E.T),
let S1 := ESet.add a1 (ESet.add a2 S) in
let S2 := ESet.add a2 (ESet.add a1 S) in
forall a : E.T, ESet.find a S1 = ESet.find a S2.