Melt segregation in anatectic granites: a thermo-mechanical model