red in |- *.
simple induction 1.
simple induction 1; intros.
inversion_clear H2.
elim CR with e0 y1 z; intros; auto with arith pts.
exists x2; auto 10 with arith pts.
split; auto with arith pts.
apply hn_red_hn with z; auto with arith pts.
change (conv hdr e0 y1 z) in |- *.
apply conv_trans with x1; auto with arith pts.
inversion_clear H2.
exists (Srt s2); auto with arith pts.
apply cumul_trans with (Srt s1); auto 10 with arith pts.
inversion_clear H5.
exists (Prod C D); auto with arith pts.
apply cumul_trans with (Prod A B); auto 10 with arith pts.
intros.
exists z; auto with arith pts.
intros.
elim H1 with z0; intros; auto with arith pts.
elim H3 with x1; intros; auto with arith pts.
exists x2; auto with arith pts.
apply cumul_trans with x1; auto with arith pts.
Qed.

(* Specifications: *)
Lemma inv_cumul_conv :
forall (e : env) (x y : term),
conv_hn_inv hd_rule e x y -> cumul_hn_inv e x y.