]> matita.cs.unibo.it Git - helm.git/commitdiff
some patches
authorFerruccio Guidi <ferruccio.guidi@unibo.it>
Mon, 22 Jan 2007 18:12:54 +0000 (18:12 +0000)
committerFerruccio Guidi <ferruccio.guidi@unibo.it>
Mon, 22 Jan 2007 18:12:54 +0000 (18:12 +0000)
matita/contribs/LAMBDA-TYPES/Level-1/Base/preamble.ma
matita/matita.lang

index 5f5915958204c1102be13a25b2a9f199e75891aa..be7a435863b8466e56daf8821f580e8c99e96b41 100644 (file)
@@ -138,13 +138,11 @@ theorem sym_not_eq: \forall A:Type. \forall x,y:A. x \neq y \to y \neq x.
  unfold not. intros. apply H. symmetry. assumption.
 qed.
 
-theorem trans_eq : ∀A:Type.∀x,y,z:A.x=y→y=z→x=z.
- intros;
- transitivity y;
- assumption.
+theorem trans_eq : \forall A:Type. \forall x,y,z:A. x=y \to y=z \to x=z.
+ intros. transitivity y; assumption.
 qed.
 
-theorem plus_reg_l: \forall (n,m,p:nat). n + m = n + p \to m = p.
+theorem plus_reg_l: \forall n,m,p. n + m = n + p \to m = p.
  intros. apply plus_reg_l; auto.
 qed.
 
index 0ba60d1738e8e23f4ce6f1caba9174bfc236d2a7..fbb21d6d19ba3d4232a91b3dd8554888188eb15f 100644 (file)
     <keyword>normalize</keyword>
     <keyword>reduce</keyword>
     <keyword>reflexivity</keyword>
-    <keyword>rename</keyword>
     <keyword>replace</keyword>
     <keyword>rewrite</keyword>
     <keyword>ring</keyword>