(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/algebra/semigroups".
-
include "higher_order_defs/functions.ma".
(* Magmas *)
op: carrier → carrier → carrier
}.
-notation "hvbox(a break \middot b)"
- left associative with precedence 55
-for @{ 'magma_op $a $b }.
-
-interpretation "magma operation" 'magma_op a b =
- (cic:/matita/algebra/semigroups/op.con _ a b).
+interpretation "magma operation" 'middot a b = (op ? a b).
(* Semigroups *)