X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fextraction.ma;h=a1c49f8f0c2f35b04370f11d8cd4a2b1cd060dfe;hb=ecd5b02db67b07fdc7c14d7ae7f0e0fd1034809c;hp=bb6af07e00ea222697d6ccebc8069d00df791b80;hpb=ca81bd9ba941c3c14e8775c7f04ce10ec277348a;p=helm.git

diff --git a/matita/matita/lib/extraction.ma b/matita/matita/lib/extraction.ma
index bb6af07e0..a1c49f8f0 100644
--- a/matita/matita/lib/extraction.ma
+++ b/matita/matita/lib/extraction.ma
@@ -155,6 +155,9 @@ coinductive stream: Type[0] ≝ scons : nat → stream → stream.
 
 let corec div (n:nat) : stream ≝ scons n (div (S n)).
 
+definition rtest2 : nat → stream → nat ≝
+ λm,s. match s with [ scons n l ⇒ m + n ].
+
 (*
 let rec mkterm (n:nat) : nat ≝
  match n with