X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fdama%2Fdama_duality%2Fgroup.ma;h=4ecd016fb3dd31df85ead1ec01c5508cccc86b1c;hb=f38fd769279794d0ca73c8945eac30e8b42e59be;hp=276d409a640c2c068883a3469186801bde43f0bf;hpb=9eabe046c1182960de8cfdba96c5414224e3a61e;p=helm.git diff --git a/helm/software/matita/contribs/dama/dama_duality/group.ma b/helm/software/matita/contribs/dama/dama_duality/group.ma index 276d409a6..4ecd016fb 100644 --- a/helm/software/matita/contribs/dama/dama_duality/group.ma +++ b/helm/software/matita/contribs/dama/dama_duality/group.ma @@ -44,16 +44,16 @@ record abelian_group : Type ≝ notation "0" with precedence 89 for @{ 'zero }. -interpretation "Abelian group zero" 'zero = (zero _). +interpretation "Abelian group zero" 'zero = (zero ?). -interpretation "Abelian group plus" 'plus a b = (plus _ a b). +interpretation "Abelian group plus" 'plus a b = (plus ? a b). -interpretation "Abelian group opp" 'uminus a = (opp _ a). +interpretation "Abelian group opp" 'uminus a = (opp ? a). definition minus ≝ λG:abelian_group.λa,b:G. a + -b. -interpretation "Abelian group minus" 'minus a b = (minus _ a b). +interpretation "Abelian group minus" 'minus a b = (minus ? a b). lemma plus_assoc: ∀G:abelian_group.∀x,y,z:G.x+(y+z)≈x+y+z ≝ plus_assoc_. lemma plus_comm: ∀G:abelian_group.∀x,y:G.x+y≈y+x ≝ plus_comm_.