X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fng_commands.ma;h=f816b36840c2b4684593e011fbf8c430c74433d1;hb=d3548c16f481b14ce94e64c790bc767c59590050;hp=75d3eda6a78bff973519efcc4b0659d341f026df;hpb=7ce251730873891f2975bc8c46b122e842d203db;p=helm.git

diff --git a/helm/software/matita/tests/ng_commands.ma b/helm/software/matita/tests/ng_commands.ma
index 75d3eda6a..f816b3684 100644
--- a/helm/software/matita/tests/ng_commands.ma
+++ b/helm/software/matita/tests/ng_commands.ma
@@ -39,11 +39,20 @@ ntheorem nzero_ok: nzero (S (S O)) = O.
  napply (refl_eq ? O);
 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 *)