apply beta_sound; auto with arith pts.
simpl in |- *.
apply cumul_inv_prod.
exact v6_is_subtype_dec.
Qed.

(* Specifications: *)
Lemma v6_is_norm_sound : norm_sound_CTS _ v6.
(* Construction du type-checker *)
Theorem v6_algorithms : PTS_TC _ v6_pts.
Proof full_cts_type_checker srt_v6 v6 v6_is_subtype_dec v6_is_norm_sound.