I have the equations
eq1=(a[3] - a[4]) \[Psi] . \[Xi] + (a[1] + 2 a[2]) \[Psi] . \[Phi]
eq2=2 (a[3] - a[4]) \[Psi] . \[Xi]
eq3=(a[1] + a[2] + a[3] + a[4]) \[Psi] . \[Phi]
Question: How do I make Mathematica to solve for the coefficients a[1], a[2], a[3] and a[4] the system of equations given by eq1=0, eq2=0 and eq3=0?
Elaborating on the question:
When equating any of the above equations to zero, each term should vanish separately, so that eq1=0 gives a[3] - a[4]=0 and a[1] + 2 a[2]=0.
For example, I could solve manually the system eq1=0, eq2=0 and eq3=0 in terms of a[1], a[2] and a[3]
Solve[{a[3] - a[4]==0,a[1] + 2 a[2]==0,a[1] + a[2] + a[3] + a[4]==0},{a[1],a[2],a[3]}]
To obtain
{{a[1] -> -4a[4], a[2] -> 2a[4], a[3] -> a[4]}}
But I want Mathematica to do the solving step for me and I don't want to specify for what variables it should solve for, It doesn't matter if It solves for a[1], a[3], a[4] as a function of a[2] instead. In my original code I can have more than three independent equations for the coefficients (these are the equations given by imposing eq1=0, eq2=0 and eq3=0) and the number of coefficients is not limited to four. This makes manually solving not feasible.
