X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Flist%2Flist.ma;h=42e20b5b2dfb004d6179612fa0a3a181eb9fec2e;hb=35a06fa8d6c2664301b59e77dcbff5bcfd4a5091;hp=b7a38ed991a1e60439396fe5ca6121aad9800ec8;hpb=209184c83f7d290ceb43605598e09074b57d36f4;p=helm.git diff --git a/matita/library/list/list.ma b/matita/library/list/list.ma index b7a38ed99..42e20b5b2 100644 --- a/matita/library/list/list.ma +++ b/matita/library/list/list.ma @@ -32,9 +32,9 @@ notation "hvbox(l1 break @ l2)" right associative with precedence 47 for @{'append $l1 $l2 }. -interpretation "nil" 'nil = (cic:/matita/list/list.ind#xpointer(1/1/1) _). +interpretation "nil" 'nil = (cic:/matita/list/list/list.ind#xpointer(1/1/1) _). interpretation "cons" 'cons hd tl = - (cic:/matita/list/list.ind#xpointer(1/1/2) _ hd tl). + (cic:/matita/list/list/list.ind#xpointer(1/1/2) _ hd tl). (* theorem test_notation: [O; S O; S (S O)] = O :: S O :: S (S O) :: []. *) @@ -62,7 +62,7 @@ definition tail := \lambda A:Type. \lambda l: list A. [ nil => [] | (cons hd tl) => tl]. -interpretation "append" 'append l1 l2 = (cic:/matita/list/append.con _ l1 l2). +interpretation "append" 'append l1 l2 = (cic:/matita/list/list/append.con _ l1 l2). theorem append_nil: \forall A:Type.\forall l:list A.l @ [] = l. intros;