(** ** Reduction **)
Section BPCP_CND.
Variable R : BSRS.
Context {b : logic}.

(* Specifications: *)
Lemma BPCP_to_CND :
BPCP R -> [] ⊢C (F R).
Lemma impl_trans A phi :
trans (A ==> phi) = (map trans A) ==> trans phi.
Lemma CND_BPCP :
[] ⊢C (F R) -> BPCP R.
Lemma BPCP_CND :
BPCP R <-> [] ⊢C (F R).