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