X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fbasics%2Flists%2Flist.ma;h=edc049738b5c5a5f01b98698dc6ac1fadec15d87;hb=43f6de7986407cb15b5b39b18eb59d19d0abfd20;hp=8c508108d8faa4c78ddce9cf9d15f5a9943bd211;hpb=dc7d29345821b84070bc5d235772c598c10d07c3;p=helm.git

diff --git a/matita/matita/lib/basics/lists/list.ma b/matita/matita/lib/basics/lists/list.ma
index 8c508108d..edc049738 100644
--- a/matita/matita/lib/basics/lists/list.ma
+++ b/matita/matita/lib/basics/lists/list.ma
@@ -225,7 +225,7 @@ qed.
 lemma split_len: ∀A,n,l. n ≤ |l| →
   |\fst (split A l n)| = n.
 #A #n #l #Hlen normalize >(eq_pair_fst_snd ?? (split_rev …))
-normalize >lenght_reverse  >(split_rev_len … [ ] Hlen) normalize //
+normalize >length_reverse  >(split_rev_len … [ ] Hlen) normalize //
 qed.
   
 lemma split_rev_eq: ∀A,n,l,acc. n ≤ |l| →