intuition.
eapply getSupport_In_evalDist.
intuition.
eapply getSupport_In_evalDist.
eapply H.
rewrite <- H0.
eapply comp_spec_impl_eq.
trivial.
Qed.

(* Specifications: *)
Theorem OTP_inf_th_sec_l :
forall (x : T),
comp_spec eq RndT (r <-$ RndT; ret (T_op x r)).