intro; unfold yi, vi, thetat in |- *.
assert (H := cond_y intr t).
rewrite <- H.
apply pr_nu.
Qed.

(* Specifications: *)
(* Easy to prove with constructive reals *)
Axiom r_sin_rho : (ConflictRange < r_vi * sin rho_vi)%R.
Definition l : R := Die 0 T.