אפונסו, דוכס פורטו