intros.
unfold subst in |- *.
apply bd_par_red1_subst_rec with (d := Ax T) (1 := H0) (2 := H);
auto with arith pts.
Qed.

(* Specifications: *)
Lemma confluence_bd_par_red1 : confluent bd_par_red1.
unfold confluent, commut, transp in |- *.