let assigns_goal frame from_label assigned to_label =
    let mfrom = mem_at frame from_label in
    let mto = mem_at frame to_label in
    model_ishavoc mfrom.talloc mfrom.store (region assigned) mto.store