Local Notation NProp := NoRetractToNegativeProp.NProp.Local Notation El := NoRetractToNegativeProp.El.

(* Specifications: *)
Lemma wp2p1 : forall A:NProp, El A -> El (b2p (p2b A)).
Lemma wp2p2 : b1 <> b2 -> forall A:NProp, El (b2p (p2b A)) -> El A.
Theorem wproof_irrelevance_cc : ~~(b1 = b2).