ligo/src/test/contracts/set_arithmetic-1.mligo

// Test set iteration

let aggregate (i : int) (j : int) : int = i + j

let fold_op (s : int set) : int =
  Set.fold aggregate s 15