- applyTransformation: bugfix in the rendering of records

[helm.git] / helm / software / matita / library / algebra / monoids.ma

diff --git a/helm/software/matita/library/algebra/monoids.ma b/helm/software/matita/library/algebra/monoids.ma
index 556faf6caf20445fe37d18f9fb7b780f7df62f10..36de5a369d47eae97a210e6d0f7c8c64362e38a1 100644 (file)
--- 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,22 +34,16 @@ record Monoid : Type ≝
  { premonoid:> PreMonoid;
    monoid_properties:> isMonoid premonoid 
  }.
-
-notation "1" with precedence 89
-for @{ 'munit }.
-
-interpretation "Monoid unit" 'munit =
- (cic:/matita/algebra/monoids/e.con _).
   
 definition is_left_inverse ≝
  λM:Monoid.
   λopp: M → M.
-   ∀x:M. (opp x)·x = 1.
+   ∀x:M. (opp x)·x = ⅇ.
    
 definition is_right_inverse ≝
  λM:Monoid.
   λopp: M → M.
-   ∀x:M. x·(opp x) = 1.
+   ∀x:M. x·(opp x) = ⅇ.
 
 theorem is_left_inverse_to_is_right_inverse_to_eq:
  ∀M:Monoid. ∀l,r.