proposition: Lemma Ered_normal_NF_Econv : forall T T' : term, Ered T T' -> normal T -> NF_Econv T T'.
proof: Proof. intros T T' H. pattern T in |- *. apply Ered1_Ered_ind with T'; auto with ecoc sets. intros. apply trans_NF_Econv_NF_Econv with R; eauto with ecoc. Qed.
imports: Termes Conv Ered Types ETypes Conv_Dec Strong_Norm