exact (church_rosser_red srt_v6).
exact (beta_hn_sort srt_v6).
exact (beta_hn_prod srt_v6).
exact whnf.
exact beta_conv_hnf.
exact univ_v6_dec.
Qed.
(* L'axiome:  ECC est fortement normalisant *)
Axiom
v6_normalise :
forall (e : env_v6) (t T : trm_v6), typ_v6 e t T -> v6_sn e t.
(* Subject-Reduction *)

Lemma sound_v6_beta : rule_sound _ v6_pts (beta _).
simpl in |- *.