(* *)
(**************************************************************************)
-include "nat/plus.ma".
+include "ng_pts.ma".
ndefinition thesis0: ∀A:Type.Type ≝ λA. A → A.
ndefinition Q: Prop ≝ NP.
+include "nat/nat.ma".
+
nlet rec nzero (n:nat) : nat ≝
match n with
[ O ⇒ O
[ mS n ⇒ nnzero n ].
nrecord pair (n: nat) (x: DT n) (label: Type): Type ≝
- { lbl:label; l: pair n x label; r: pair n x label}.
\ No newline at end of file
+ { lbl:label; l: pair n x label; r: pair n x label}.