define preselect by Fixpoint+proof mode

previous definition of preselect raised a stack overflow on my machine