(** ** Corollaries *)

(* Specifications: *)
Corollary kvalid_red :
BPCP ⪯ @kvalid full.
Corollary kvalid_undec :
UA -> ~ decidable (@kvalid full).
Corollary kvalid_unenum :
UA -> ~ enumerable (compl (@kvalid full)).
Corollary kprv_red :
BPCP ⪯ @prv intu full nil.
Corollary kprv_undec :
UA -> ~ decidable (@prv intu full nil).
Corollary kprv_unenum :
UA -> ~ enumerable (compl (@prv intu full nil)).
Corollary ksatis_red :
compl BPCP ⪯ @ksatis full.
Corollary ksatis_undec :
UA -> ~ decidable (@ksatis full).
Corollary ksatis_enum :
UA -> ~ enumerable (@ksatis full).
Lemma form_discrete {b : logic} :
discrete (form b).