SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\BabyDoPeGDO"];
Once[Get@"../Profile/Profile.m"];
<<Engine.m

$k=1;

FullSimplify /@ (Subscript[Zip, {x,y}])[(ξ^2)/2+(η^2)/2,𝔼[1,a (x^2)/2+b x y+c (y^2)/2+t x+s y,ϵSeries[0]]]

inter=FullSimplify /@ (Subscript[Zip, {y}])[(η^2)/2,𝔼[1,a (x^2)/2+b x y+c (y^2)/2+t x+s y,ϵSeries[0]]]

FullSimplify /@ (Subscript[Zip, {x}])[(ξ^2)/2,inter]