X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fcongruence.ma;h=948d10667261ddc7971811c359f65424a0741aef;hb=3c4660604bb23d862c72f64e6b5b5974260eea28;hp=f418c1b8578a0a7de9e983a96c7291fd28fc73c4;hpb=a180bddcd4a8f35de3d7292162ba05d0077723aa;p=helm.git diff --git a/helm/software/matita/library/nat/congruence.ma b/helm/software/matita/library/nat/congruence.ma index f418c1b85..948d10667 100644 --- a/helm/software/matita/library/nat/congruence.ma +++ b/helm/software/matita/library/nat/congruence.ma @@ -12,8 +12,6 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/nat/congruence". - include "nat/relevant_equations.ma". include "nat/primes.ma". @@ -120,7 +118,7 @@ qed. theorem divides_to_congruent: \forall n,m,p:nat. O < p \to m \le n \to divides p (n - m) \to congruent n m p. intros.elim H2. -apply (eq_times_plus_to_congruent n m p n2). +apply (eq_times_plus_to_congruent n m p n1). assumption. rewrite < sym_plus. apply minus_to_plus.assumption.