Logic 合金中的关联积

我有以下签名

Sig Name, Addr {}
Sig Book { addr: Name -> lone Addr }

我想为delete操作定义一个谓词，即删除一个名称为n的地址

pred remove [b, b':Book, n: Name] {
   // What to do?
}

其中

b

和

b'

表示书籍的前后状态

谢谢

pred remove [b, b':Book, n: Name] {
    b'.addr = b.addr - n -> Addr
}