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