(* Lemma red_turing_compl X Y (Q : Y -> Prop) (P : X -> Prop) : *)
(*   Q ⪯ P -> compl Q ⪯T compl P. *)
(* Proof. *)
(*   intros [f] [d]. econstructor. intros x. *)
(*   destruct (d (f x)). *)
(*   + left. firstorder. *)
(*   + right. firstorder. *)
(* Qed. *)

(* Specifications: *)
Lemma red_undec  X Y (Q : Y -> Prop) (P : X -> Prop) :
Q ⪯ P -> undec Q -> undec P.
Lemma undec_compl X (P : X -> Prop) :
undec (compl P) -> undec P.
Lemma undec_PCP X (P : X -> Prop) :
undec P <-> (PCP ⪯T P).