X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Falgebra%2Fmonoids.ma;h=36de5a369d47eae97a210e6d0f7c8c64362e38a1;hb=a14157957532b731330492388ab32909b4147758;hp=9fc13f91e958bd46b730dbaf333884651e3f87e3;hpb=e78cf74f8976cf0ca554f64baa9979d0423ee927;p=helm.git

diff --git a/helm/software/matita/library/algebra/monoids.ma b/helm/software/matita/library/algebra/monoids.ma
index 9fc13f91e..36de5a369 100644
--- a/helm/software/matita/library/algebra/monoids.ma
+++ b/helm/software/matita/library/algebra/monoids.ma
@@ -19,6 +19,9 @@ record PreMonoid : Type ≝
    e: magma
  }.
 
+(* FG: the interpretation goes just after its definition *)
+interpretation "Monoid unit" 'neutral = (e ?).
+
 record isMonoid (M:PreMonoid) : Prop ≝
  { is_semi_group:> isSemiGroup M;
    e_is_left_unit:
@@ -31,8 +34,6 @@ record Monoid : Type ≝
  { premonoid:> PreMonoid;
    monoid_properties:> isMonoid premonoid 
  }.
-
-interpretation "Monoid unit" 'neutral = (e ?).
   
 definition is_left_inverse ≝
  λM:Monoid.