如何计算序列中的运行总计？ -VDM-SL

Question

我只是从VDM-SL开始，需要弄清楚如何计算一系列项目的总成本。

我有以下几种类型：

types  
Item :: id   : token
        cost : nat;

Box = seq of Item;

我需要完成以下函数，该函数将计算Box中所有项目的总成本。 到目前为止，我有：

TotalCost: Box -> nat
TotalCost(box) == forall i in seq inds box & x:nat => x := x + i.cost;

我相当确定这违反了VDM-SL的规则，但在此问题上我找不到很多帮助。

对此事的任何帮助将不胜感激。