]> matita.cs.unibo.it Git - helm.git/commitdiff
New proofs.
authorAndrea Asperti <andrea.asperti@unibo.it>
Fri, 19 Feb 2010 07:30:16 +0000 (07:30 +0000)
committerAndrea Asperti <andrea.asperti@unibo.it>
Fri, 19 Feb 2010 07:30:16 +0000 (07:30 +0000)
helm/software/matita/nlibrary/basics/list.ma

index b5664d1341e13562510002b40d4720f22165d3ac..92eddc705b642fb8f984d55c2aea81dc62d68cb1 100644 (file)
@@ -79,7 +79,9 @@ ntheorem cons_append_commute:
 //; nqed.
 
 ntheorem append_cons:∀A.∀a:A.∀l,l1.l@(a::l1)=(l@[a])@l1.
-/2/; nqed.
+#A; #a; #l; #l1; napply symmetric_eq.
+napply associative_append.
+(* /2/; *) nqed.
 
 ntheorem nil_append_elim: ∀A.∀l1,l2: list A.∀P: list A → list A → Prop. 
   l1@l2 = [] → P (nil A) (nil A) → P l1 l2.