let mem ()= let va = L.fresh "ma" (Formula.Model t_alloc) in let vb = L.fresh "mb" (Formula.Model t_mbits) in { vbits = vb ; valloc = va ;}