intuition.
despec.
intuition.
eapply leRat_trans.
eapply eqRat_impl_leRat.
eauto.
eapply leRat_trans.
2:{
eapply eqRat_impl_leRat.
symmetry.
eauto.
}
unfold marginal_l, marginal_r.
dist_skip.
dist_compute.
exfalso.
eapply n.
specialize (H2 x1).
intuition.
eapply rat0_le_all.
Qed.

(* Specifications: *)
Theorem comp_spec_eq_symm:
forall (A : Set){eqda : EqDec A}(c1 c2 : Comp A),
comp_spec eq c1 c2 ->
comp_spec eq c2 c1.