(* Strip lemmas *)

(* Specifications: *)
Lemma strip_lemma_r : confluence lambda par_red1 -> strip.
Lemma strip_lemma_l : strip -> confluence lambda par_red.
Lemma lemma2 : confluence lambda par_red1 -> confluence lambda par_red.
(***************************************)
(* Parallel moves lemma and confluence *)
(***************************************)
Lemma parallel_moves : confluence lambda par_red1.
Lemma confluence_parallel_reduction : confluence lambda par_red.
Theorem confluence_beta_reduction : confluence lambda red.