From 7cdfae2ec209750303818f2e39f31e4739286858 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 5 May 2009 16:52:32 +0000
Subject: [PATCH] more tests

---
 helm/software/matita/tests/ng_commands.ma | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/helm/software/matita/tests/ng_commands.ma b/helm/software/matita/tests/ng_commands.ma
index 03d9df092..f816b3684 100644
--- a/helm/software/matita/tests/ng_commands.ma
+++ b/helm/software/matita/tests/ng_commands.ma
@@ -41,7 +41,18 @@ nqed.
 
 ninductive nnat: Type ≝
    nO: nnat
- | nS: nnat → nnat.
+ | nS: mat → mat → nnat
+with mat: Type ≝ 
+ |mS : nnat → mat
+.
+
+nlet rec nnzero (n:nnat) : nnat ≝
+ match n return ? with
+  [ nO ⇒ nO
+  | nS m _ ⇒ nmzero m ]
+and nmzero (m:mat) : nnat ≝ 
+ match m return ? with
+ [ mS n ⇒ nnzero n ].   
 
 (* testare anche i record e le ricorsioni/coricorsioni/(co)induttivi MUTUI *)
 
-- 
2.39.2