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 ;}