proposition: Lemma Equal_Equiv : Reflexive eq -> Equal << Equiv eq.
proof: Proof. intros heq m m'. rewrite Equal_Equiv. apply Equiv_m'. intros x y xy. subst. refl. Qed.
imports: Coq(FMaps FSetInterface) CoLoR(LogicUtil RelUtil BoolUtil ListUtil FSetUtil)