instance (Sym_Lambda term, Sym_Bounded term) => Sym_Bounded (BetaT term)
-- Typing
+instance NameTyOf Bounded where
+ nameTyOf _c = ["Bounded"] `Mod` "Bounded"
instance FixityOf Bounded
instance ClassInstancesFor Bounded
instance TypeInstancesFor Bounded
-- Compiling
instance Gram_Term_AtomsFor src ss g Bounded
-instance (Source src, Inj_Sym ss Bounded) => ModuleFor src ss Bounded where
+instance (Source src, SymInj ss Bounded) => ModuleFor src ss Bounded where
moduleFor = ["Bounded"] `moduleWhere`
[ "minBound" := teBounded_minBound
, "maxBound" := teBounded_maxBound