X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fcongruence.ma;h=0a635ff78d9dc98ce0e68bae63b028a218ef7b64;hb=edccb29109d07b54b48230a280f4351ed042dd9f;hp=948d10667261ddc7971811c359f65424a0741aef;hpb=b3f75a04f7516037a1c3dc0735ed17720663356c;p=helm.git diff --git a/helm/software/matita/library/nat/congruence.ma b/helm/software/matita/library/nat/congruence.ma index 948d10667..0a635ff78 100644 --- a/helm/software/matita/library/nat/congruence.ma +++ b/helm/software/matita/library/nat/congruence.ma @@ -1,5 +1,5 @@ (**************************************************************************) -(* ___ *) +(* ___ *) (* ||M|| *) (* ||A|| A project by Andrea Asperti *) (* ||T|| *) @@ -21,12 +21,7 @@ definition S_mod: nat \to nat \to nat \def definition congruent: nat \to nat \to nat \to Prop \def \lambda n,m,p:nat. mod n p = mod m p. -interpretation "congruent" 'congruent n m p = - (cic:/matita/nat/congruence/congruent.con n m p). - -notation < "hvbox(n break \cong\sub p m)" - (*non associative*) with precedence 45 -for @{ 'congruent $n $m $p }. +interpretation "congruent" 'congruent n m p = (congruent n m p). theorem congruent_n_n: \forall n,p:nat.congruent n n p. intros.unfold congruent.reflexivity.