Behöver hjälp med att lösa en uppgift i Mathematica.

Ska modellera en uppgift i Mathematica men jag har kört fast.

"I kvadraten ABCD med sidlängden a dras en linje från A
genom en punkt P på CD. Låt Q vara linjens skärningspunkt
med BC:s förlängning. Härvid bildas två trianglar, APD och
PCQ. Bestäm avståndet DP så att summan av trianglarnas
areor blir så liten som möjligt."

När jag ska eliminera C Q så ska jag väl skriva {T, C Q}? Det gav mig dock ett långt felmeddelande. Kanske är för trött i huvudet för detta...
Sista out i bilden är fel och det är den jag behöver hjälp med att få rätt svar på i Mathematica.