From: Claudio Sacerdoti Coen Date: Wed, 16 Nov 2011 16:56:10 +0000 (+0000) Subject: Never ported to new syntax. X-Git-Tag: make_still_working~2102 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=9f339b4b34e47c5ae7580512e4a1b1c50a152c0f;p=helm.git Never ported to new syntax. --- diff --git a/matita/matita/lib/basics/list2.ma b/matita/matita/lib/basics/list2.ma deleted file mode 100644 index 1dd62c114..000000000 --- a/matita/matita/lib/basics/list2.ma +++ /dev/null @@ -1,30 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basics/list.ma". -include "arithmetics/nat.ma". - -nlet rec length (A:Type) (l:list A) on l ≝ - match l with - [ nil ⇒ 0 - | cons a tl ⇒ S (length A tl)]. - -notation "|M|" non associative with precedence 60 for @{'norm $M}. -interpretation "norm" 'norm l = (length ? l). - -nlet rec nth n (A:Type) (l:list A) (d:A) ≝ - match n with - [O ⇒ hd A l d - |S m ⇒ nth m A (tail A l) d]. -