Section Head_Normal_Products.
Hypothesis prod_norm : forall (e : env) (A B : term), normal R e (Prod A B).
Definition is_prod (t : term) :=
match t with
| Prod _ _ => True
| _ => False
end.

Lemma red_is_prod :
forall (e : env) (t u : term), red R e t u -> is_prod t -> is_prod u.