It appears that the code generator (Stefan's) needs some laws that appear superfluous: {..n} = set ...
(* Title: Pure/ML-Systems/polyml-4.2.0.ML
ID: $Id$
Compatibility wrapper for Poly/ML 4.2.0.
*)
use "ML-Systems/polyml_common.ML";
use "ML-Systems/polyml_old_compiler4.ML";
val pointer_eq = Address.wordEq;