spec s2 =
sort s, t;
ops a, o : s
. a = o
. o = a %implied
sort u, v
preds p, q : s * v
. forall x : v . p(a, x)