Definition is_sort (t : term) :=
    match t with
    | Srt _ => True
    | _ => False
    end.

(* Specifications: *)
Lemma red_is_sort : forall (e : env) (t u : term), red R e t u -> is_sort t -> is_sort u.
Lemma sort_is_norm : forall (e : env) (t : term), is_sort t -> normal R e t.
Lemma hn_sort : forall (e : env) (s : sort), head_normal R e (Srt s).