instance (Sym_Semigroup term, Sym_Lambda term) => Sym_Semigroup (BetaT term)
-- Typing
+instance NameTyOf Semigroup where
+ nameTyOf _c = ["Semigroup"] `Mod` "Semigroup"
instance FixityOf Semigroup
instance ClassInstancesFor Semigroup
instance TypeInstancesFor Semigroup
-- Compiling
instance Gram_Term_AtomsFor src ss g Semigroup
-instance (Source src, Inj_Sym ss Semigroup) => ModuleFor src ss Semigroup where
+instance (Source src, SymInj ss Semigroup) => ModuleFor src ss Semigroup where
moduleFor = ["Semigroup"] `moduleWhere`
[ "<>" `withInfixR` 6 := teSemigroup_sappend
, "stimes" := teSemigroup_stimes