simple induction 1; auto with arith pts.
Qed.

(* Specifications: *)
Lemma nth_sub_eq :
forall (t : term) (d1 : decl) (n : nat) (g e f : env),
sub_in_env g d1 t n e f -> forall d : decl, item d e n -> d1 = d.
Lemma beta_par_red1_lift : R_lift beta_par_red1.
red in |- *.