Let's say I have the following datatype
datatype mytype = Foo | Bar | Baz
and want to write a function like the following
fun myfun ((Foo|Bar), (Foo|Bar)) = something
| myfun (Baz, _) = somethingelse
| ...
Is there a way to create an alias for the pattern Foo|Bar
, so that I can write it out once and avoid repeating myself?