Tie between voices

[Christian]

How can I make a tie go from the half note d in the lower part to the
quarter d in the upper part?


rightOne = \relative c'' {
  b4 a <d, a'> <f gis> | 
}

rightTwo = \relative c' {
  <b~ d>2 b |
}