inductive exT2 (A:Type0) (P,Q:A→CProp0) : CProp0 ≝
ex_introT2: ∀w:A. P w → Q w → exT2 A P Q.
+inductive exT22 (A:Type2) (P:A→CProp2) : CProp2 ≝
+ ex_introT22: ∀w:A. P w → exT22 A P.
+
definition Not : CProp0 → Prop ≝ λx:CProp.x → False.
interpretation "constructive not" 'not x = (Not x).