Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').Inductive bd_par_red1 : env -> term -> term -> Prop :=
    | par_betad :
        forall (e : env) (M M' T : term),
        bd_par_red1 (Ax T :: e) M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App (Abs T M) N) (subst N' M')
    | par_delta :
        forall (e : env) (d T N : term) (n : nat),
        bd_par_red1 e (lift (S n) d) N ->
        item (Def d T) e n -> bd_par_red1 e (Ref n) N
    | sort_par_red :
        forall (e : env) (s : sort), bd_par_red1 e (Srt s) (Srt s)
    | ref_par_red : forall (e : env) (n : nat), bd_par_red1 e (Ref n) (Ref n)
    | abs_par_red :
        forall (e : env) (M M' T T' : term),
        bd_par_red1 (Ax T' :: e) M M' ->
        bd_par_red1 e T T' -> bd_par_red1 e (Abs T M) (Abs T' M')
    | app_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 e N N' -> bd_par_red1 e (App M N) (App M' N')
    | prod_par_red :
        forall (e : env) (M M' : term),
        bd_par_red1 e M M' ->
        forall N N' : term,
        bd_par_red1 (Ax M' :: e) N N' ->
        bd_par_red1 e (Prod M N) (Prod M' N').

Lemma bd_par_red1_subst_l : forall (t u : term) (g : env), bd_par_red1 g t u -> forall (v : term) (n : nat) (e : env), trunc n e g -> bd_par_red1 e (subst_rec t v n) (subst_rec u v n).