instance (Sym_Lambda term, Sym_Alternative term) => Sym_Alternative (BetaT term)
-- Typing
+instance NameTyOf Alternative where
+ nameTyOf _c = ["Alternative"] `Mod` "Alternative"
instance FixityOf Alternative
instance ClassInstancesFor Alternative
instance TypeInstancesFor Alternative
-- Compiling
instance Gram_Term_AtomsFor src ss g Alternative
-instance (Source src, Inj_Sym ss Alternative) => ModuleFor src ss Alternative where
+instance (Source src, SymInj ss Alternative) => ModuleFor src ss Alternative where
moduleFor = ["Alternative"] `moduleWhere`
[ "empty" := teAlternative_empty
, "<|>" `withInfixL` 3 := teAlternative_alt