X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Flib%2Fstreams_tls.ma;h=f2a910aa0c0295c6f2b7e34eadd586a8119cc07f;hp=13bdf51a2c12245901d4754df06d8a27a45edac0;hb=a77d0bd6a04e94f765d329d47b37d9e04d349b14;hpb=b598b37379baabef24ae511596be7f740cbb0c2e diff --git a/matita/matita/contribs/lambdadelta/ground_2/lib/streams_tls.ma b/matita/matita/contribs/lambdadelta/ground_2/lib/streams_tls.ma index 13bdf51a2..f2a910aa0 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/lib/streams_tls.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/lib/streams_tls.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "ground_2/notation/functions/downspoonstar_2.ma". +include "ground_2/notation/functions/downspoonstar_3.ma". include "ground_2/lib/streams_hdtl.ma". (* STREAMS ******************************************************************) @@ -21,7 +21,7 @@ rec definition tls (A:Type[0]) (n:nat) on n: stream A → stream A ≝ ?. cases n -n [ #t @t | #n #t @tl @(tls … n t) ] defined. -interpretation "recursive tail (strams)" 'DownSpoonStar n f = (tls ? n f). +interpretation "iterated tail (strams)" 'DownSpoonStar A n f = (tls A n f). (* basic properties *********************************************************)