X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fbasics%2Flist.ma;h=8b04499872f8ee473b9305d3f40fca4311d52d26;hb=fefe8d334012230f8e8b9d90976d9411a58d4ba8;hp=e4bdcb8aa0a8fbd38f94ac930d4a9392507908de;hpb=31e8729021717072f88d250ef41527da3488289e;p=helm.git

diff --git a/matita/matita/lib/basics/list.ma b/matita/matita/lib/basics/list.ma
index e4bdcb8aa..8b0449987 100644
--- a/matita/matita/lib/basics/list.ma
+++ b/matita/matita/lib/basics/list.ma
@@ -211,9 +211,8 @@ lemma lhd_cons_ltl: ∀A,n,l. lhd A l n @ ltl A l n = l.
 #A #n elim n -n //
 #n #IHn #l elim l normalize //
 qed.
-(*
+
 lemma length_ltl: ∀A,n,l. |ltl A l n| = |l| - n.
 #A #n elim n -n /2/
-#n #IHn * normalize /2/
+#n #IHn *; normalize /2/
 qed.
-*)
\ No newline at end of file