(* *)
(**************************************************************************)
-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
match m return ? with
[ mS n ⇒ nnzero n ].
-nrecord pair (n: nat) (x: dt n) (label: Type): Type ≝
- { lbl:label; l: pair label; r: pair label}.
\ No newline at end of file
+nrecord pair (n: nat) (x: DT n) (label: Type): Type ≝
+ { lbl:label; l: pair n x label; r: pair n x label}.