本日のC.A.D.

座標平面において,原点 $(0,\ 0)$ が $3$ 点 $(3,\ 0)$,$(-1,\ \sqrt{3})$,$(-2,\ -2\sqrt{3})$ を頂点とする $3$ 角形の Fermat 点 ( https://en.wikipedia.org/wiki/Fermat_point ) であることを示します.

$\forall x\ \forall y \ \left( 9\le\sqrt{(x-3)^2+y^2}+\sqrt{(x+1)^2+(y-\sqrt{3})^2}+\sqrt{(x+2)^2+(y+2\sqrt{3})^2}\ \right )\ \land\ 9=3+2+4 $

? tst12([ex,ex,ex,ex,ex,ex],[r,a,b,c,x,y],andx,"0<r,r^2==3,0<=a,0<=b,0<=c,a^2==(x-3)^2+y^2,b^2==(x+1)^2+(y-r)^2,c^2==(x+2)^2+(y+2*r)^2,9>a+b+c",23);Ans();
[[],[[r,2,6],[a,2,3],[b,2,3],[c,2,3],[x,2,6],[y,2,5]]]
 *** reordering by degree.
 *** using Lazard's method (MPP17).
[c,3]
[b,4]
[a,6]
[y,13]
[x,76]
[r,1554]
time = 43min, 49,542 ms.
1 171(4,5) 5715(68,128) 5715(356,6960) 5715(4,2606) 0(2,1012) 
1[false]
time = 49,278 ms.

? tst12([ex,ex,ex,ex],[r,a,b,c],andx,"0<r,r^2==3,0<=a,0<=b,0<=c,a^2==(0-3)^2+0^2,b^2==(0+1)^2+(0-r)^2,c^2==(0+2)^2+(0+2*r)^2,9==a+b+c");Ans();
 *** using Lazard's method (MPP17).
[c,3]
[b,4]
[a,7]
[r,8]
time = 91 ms.
1 1(0,2) 1(0,2) 1(0,2) 
 *** combined adjacent 0 cells.
1[true,true,true,true]
time = 4 ms.

$\forall x\ \forall y \ \left( 9=\sqrt{(x-3)^2+y^2}+\sqrt{(x+1)^2+(y-\sqrt{3})^2}+\sqrt{(x+2)^2+(y+2\sqrt{3})^2}\ \to\ x=0\ \land\ y=0\ \right )$

? tst12([ex,ex,ex,ex,ex,ex],[r,x,y,a,b,c],andx,"0<r,r^2==3,0<=a,0<=b,0<=c,a^2==(x-3)^2+y^2,b^2==(x+1)^2+(y-r)^2,c^2==(x+2)^2+(y+2*r)^2,9==a+b+c,0<x^2+y^2");Ans();
 *** using Lazard's method (MPP17).
[c,3]
[b,4]
[a,6]
[y,14]
[x,89]
[r,1675]
time = 52min, 2,991 ms.
1 175(8,7) 5814(70,129) 5814(364,7074) 5814(4,2644) 0(2,1026) 
1[false]
time = 51,849 ms