Martin sets lap record to grab pole position at San Marino GP