nasty change in the lexer/parser:

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

diff --git a/helm/software/matita/library/algebra/groups.ma b/helm/software/matita/library/algebra/groups.ma
index 1201c4fdf58a94c12aa1bb74579e354947100fea..bfb639af78deabee531767ff1d4a39b7245e763b 100644 (file)
--- a/helm/software/matita/library/algebra/groups.ma
+++ b/helm/software/matita/library/algebra/groups.ma
@@ -33,7 +33,7 @@ record Group : Type ≝
    group_properties:> isGroup pregroup
  }.
 
-interpretation "Group inverse" 'invert x = (inv _ x).
+interpretation "Group inverse" 'invert x = (inv ? x).
 
 definition left_cancellable ≝
  λT:Type. λop: T -> T -> T.
@@ -177,7 +177,7 @@ notation "hvbox(x \sub H)" with precedence 79
 for @{ 'subgroupimage $H $x }.
 
 interpretation "Subgroup image" 'subgroupimage H x =
- (image _ _ (morphism_OF_subgroup _ H) x).
+ (image ?? (morphism_OF_subgroup ? H) x).
 
 definition member_of_subgroup ≝
  λG.λH:subgroup G.λx:G.∃y.x=y \sub H.
@@ -189,10 +189,10 @@ notation "hvbox(x break \notin H)" with precedence 79
 for @{ 'not_member_of $x $H }.
 
 interpretation "Member of subgroup" 'member_of x H =
- (member_of_subgroup _ H x).
+ (member_of_subgroup ? H x).
  
 interpretation "Not member of subgroup" 'not_member_of x H =
- (Not (member_of_subgroup _ H x)).
+ (Not (member_of_subgroup ? H x)).
 
 (* Left cosets *)
 
@@ -203,14 +203,14 @@ record left_coset (G:Group) : Type ≝
 
 (* Here I would prefer 'magma_op, but this breaks something in the next definition *)
 interpretation "Left_coset" 'times x C =
- (mk_left_coset _ x C).
+ (mk_left_coset ? x C).
 
 definition member_of_left_coset ≝
  λG:Group.λC:left_coset G.λx:G.
   ∃y.x=(element ? C)·y \sub (subgrp ? C).
 
 interpretation "Member of left_coset" 'member_of x C =
- (member_of_left_coset _ C x).
+ (member_of_left_coset ? C x).
 
 definition left_coset_eq ≝
  λG.λC,C':left_coset G.
@@ -227,7 +227,7 @@ notation "hvbox(a break \par b)"
 for @{ 'disjoint $a $b }.
 
 interpretation "Left cosets disjoint" 'disjoint C C' =
- (left_coset_disjoint _ C C').
+ (left_coset_disjoint ? C C').
 
 (* The following should be a one-shot alias! *)
 alias symbol "member_of" (instance 0) = "Member of subgroup".