exact (church_rosser_beta_delta srt_v6).
exact (bd_hn_sort srt_v6).
exact (bd_hn_prod srt_v6).
exact whnf.
exact bd_conv_hnf.
exact univ_v6_dec.
Qed.
(* Subject-Reduction *)

(* Specifications: *)
Lemma sound_v6_bd : rule_sound _ v6_pts (beta_delta _).
unfold beta_delta in |- *.