πName(Contacts⋈ID=IDState=CA(Address) ⋈ID=ID σState=MA(Address)))

Or:

πName(Contacts⋈ID=IDidState=CA(Address)) ∩ πidState=MA(Address))))

Or, using renaming:

πNameState=CA AND State2=MA(Contacts ⋈ Address ⋈ID=ID Address[ID,State2]))