From: Ferruccio Guidi Date: Mon, 22 Jan 2007 18:12:54 +0000 (+0000) Subject: some patches X-Git-Tag: 0.4.95@7852~652 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=fd650508ef7534ef7cb379f692dc50559b3d7036;p=helm.git some patches --- diff --git a/matita/contribs/LAMBDA-TYPES/Level-1/Base/preamble.ma b/matita/contribs/LAMBDA-TYPES/Level-1/Base/preamble.ma index 5f5915958..be7a43586 100644 --- a/matita/contribs/LAMBDA-TYPES/Level-1/Base/preamble.ma +++ b/matita/contribs/LAMBDA-TYPES/Level-1/Base/preamble.ma @@ -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. diff --git a/matita/matita.lang b/matita/matita.lang index 0ba60d173..fbb21d6d1 100644 --- a/matita/matita.lang +++ b/matita/matita.lang @@ -115,7 +115,6 @@ normalize reduce reflexivity - rename replace rewrite ring