exact (church_rosser_beta_delta srt_ecc).
exact (bd_hn_sort srt_ecc).
exact (bd_hn_prod srt_ecc).
exact whnf.
exact bd_conv_hnf.
exact univ_ecc_dec.
Qed.
(* L'axiome:  ECC est fortement normalisant *)
Axiom
ecc_normalise :
forall (e : env_ecc) (t T : trm_ecc), typ_ecc e t T -> ecc_sn e t.
(* Subject-Reduction *)

Lemma sound_ecc_bd : rule_sound _ ecc_pts (beta_delta _).
unfold beta_delta in |- *.