Forcing finiteness in trace.thy