translateExpression scope _ nsid (L1.L1ExUnmkUnion ss label value) =
  L2.L2ExUnmkUnion ss
    <$> translateLabelOnly "union label" scope ss nsid label
    <*> translateExpression scope ss nsid value
translateExpression scope _ nsid (L1.L1ExUnmkUnion ss label value) =
  L2.L2ExUnmkUnion ss
    <$> translateLabelOnly "union label" scope ss nsid label
    <*> translateExpression scope ss nsid value
translateExpression scope _ nsid (L1.L1ExUnmkUnion ss label value) =
  L2.L2ExUnmkUnion ss
    <$> translateLabelOnly "union label" scope ss nsid label
    <*> translateExpression scope ss nsid value