-- | Get the Id of the 'DataCon' worker: a function that is the "actual"
-- constructor and has no top level binding in the program. The type may
-- be different from the obvious one written in the source program. Panics
-- if there is no such 'Id' for this 'DataCon'
dataConWorkId :: DataCon -> Id
dataConWorkId dc = dcWorkId dc
dataConWorkId :: DataCon -> Id
dataConWorkId dc = dcWorkId dc
dataConWorkId dc = dcWorkId dc