def mynumerator(x):
  if parent(x) == R:
    return x
  return numerator(x)

class fastfrac:
  def __init__(self,top,bot=1):
    if parent(top) == ZZ or parent(top) == R:
      self.top = R(top)
      self.bot = R(bot)
    elif top.__class__ == fastfrac:
      self.top = top.top
      self.bot = top.bot * bot
    else:
      self.top = R(numerator(top))
      self.bot = R(denominator(top)) * bot
  def reduce(self):
    return fastfrac(self.top / self.bot)
  def sreduce(self):
    return fastfrac(I.reduce(self.top),I.reduce(self.bot))
  def iszero(self):
    return self.top in I and not (self.bot in I)
  def isdoublingzero(self):
    return self.top in J and not (self.bot in J)
  def __add__(self,other):
    if parent(other) == ZZ:
      return fastfrac(self.top + self.bot * other,self.bot)
    if other.__class__ == fastfrac:
      return fastfrac(self.top * other.bot + self.bot * other.top,self.bot * other.bot)
    return NotImplemented
  def __sub__(self,other):
    if parent(other) == ZZ:
      return fastfrac(self.top - self.bot * other,self.bot)
    if other.__class__ == fastfrac:
      return fastfrac(self.top * other.bot - self.bot * other.top,self.bot * other.bot)
    return NotImplemented
  def __neg__(self):
    return fastfrac(-self.top,self.bot)
  def __mul__(self,other):
    if parent(other) == ZZ:
      return fastfrac(self.top * other,self.bot)
    if other.__class__ == fastfrac:
      return fastfrac(self.top * other.top,self.bot * other.bot)
    return NotImplemented
  def __rmul__(self,other):
    return self.__mul__(other)
  def __div__(self,other):
    if parent(other) == ZZ:
      return fastfrac(self.top,self.bot * other)
    if other.__class__ == fastfrac:
      return fastfrac(self.top * other.bot,self.bot * other.top)
    return NotImplemented
  def __pow__(self,other):
    if parent(other) == ZZ:
      return fastfrac(self.top ^ other,self.bot ^ other)
    return NotImplemented

def isidentity(x):
  return x.iszero()

def isdoublingidentity(x):
  return x.isdoublingzero()

R.<ua,ux2,uy2,ux1,uy1,uX1,uZZ1,uY1,uZ1,uX2,uZZ2,uY2,uZ2> = PolynomialRing(QQ,13,order='invlex')
I = R.ideal([
  mynumerator((uy1^2)-(ux1^3+3*ua*(ux1+1)^2))
, mynumerator((ux1)-(uX1/uZ1^2))
, mynumerator((uy1)-(uY1/uZ1^3))
, mynumerator((uZZ1)-(uZ1^2))
, mynumerator((uy2^2)-(ux2^3+3*ua*(ux2+1)^2))
, mynumerator((ux2)-(uX2/uZ2^2))
, mynumerator((uy2)-(uY2/uZ2^3))
, mynumerator((uZZ2)-(uZ2^2))
])

J = I + R.ideal([0
, uX1-uX2
, uZZ1-uZZ2
, uY1-uY2
, uZ1-uZ2
])

ua = fastfrac(ua)
ux2 = fastfrac(ux2)
uy2 = fastfrac(uy2)
ux1 = fastfrac(ux1)
uy1 = fastfrac(uy1)
uX1 = fastfrac(uX1)
uZZ1 = fastfrac(uZZ1)
uY1 = fastfrac(uY1)
uZ1 = fastfrac(uZ1)
uX2 = fastfrac(uX2)
uZZ2 = fastfrac(uZZ2)
uY2 = fastfrac(uY2)
uZ2 = fastfrac(uZ2)


uA = ((uX2*uZ1^2-uX1*uZ2^2))
uB = ((uY2*uZ1^3-uY1*uZ2^3))
uX3 = ((uB^2-uA^3-uZ1^2*uZ2^2*fastfrac(3)*ua*uA^2-uZ2^2*fastfrac(2)*uA^2*uX1))
uY3 = ((uB*(uZ2^2*uA^2*uX1-uX3)-uZ2^3*uA^3*uY1))
uZ3 = ((uZ1*uZ2*uA))
uZZ3 = ((uZ3^2))

ux3 = (((-ux1^3+(ux2-fastfrac(3)*ua)*ux1^2+(ux2^2+fastfrac(6)*ua*ux2)*ux1+(uy1^2-fastfrac(2)*uy2*uy1+(-ux2^3-fastfrac(3)*ua*ux2^2+uy2^2)))/(ux1^2-fastfrac(2)*ux2*ux1+ux2^2))).reduce()
uy3 = ((((-uy1+fastfrac(2)*uy2)*ux1^3+(-fastfrac(3)*ua*uy1+(-fastfrac(3)*uy2*ux2+fastfrac(3)*ua*uy2))*ux1^2+((fastfrac(3)*ux2^2+fastfrac(6)*ua*ux2)*uy1-fastfrac(6)*ua*uy2*ux2)*ux1+(uy1^3-fastfrac(3)*uy2*uy1^2+(-fastfrac(2)*ux2^3-fastfrac(3)*ua*ux2^2+fastfrac(3)*uy2^2)*uy1+(uy2*ux2^3+fastfrac(3)*ua*uy2*ux2^2-uy2^3)))/(-ux1^3+fastfrac(3)*ux2*ux1^2-fastfrac(3)*ux2^2*ux1+ux2^3))).reduce()

print isidentity((uy3^2)-(ux3^3+fastfrac(3)*ua*(ux3+fastfrac(1))^2))
print isidentity((ux3)-(uX3/uZ3^2))
print isidentity((uy3)-(uY3/uZ3^3))
print isidentity((uZZ3)-(uZ3^2))

unified = True
uZZ4 = uZZ3
uX4 = uX3
uY4 = uY3
uZ4 = uZ3
ux4 = ((fastfrac(9)/(fastfrac(4)*uy1^2)*ux1^4+fastfrac(9)/uy1^2*ua*ux1^3+(fastfrac(9)/uy1^2*ua^2+fastfrac(9)/uy1^2*ua)*ux1^2+(fastfrac(18)/uy1^2*ua^2-fastfrac(2))*ux1+(fastfrac(9)/uy1^2*ua^2-fastfrac(3)*ua))).reduce()
uy4 = ((-fastfrac(27)/(fastfrac(8)*uy1^3)*ux1^6-fastfrac(81)/(fastfrac(4)*uy1^3)*ua*ux1^5+(-fastfrac(81)/(fastfrac(2)*uy1^3)*ua^2-fastfrac(81)/(fastfrac(4)*uy1^3)*ua)*ux1^4+(-fastfrac(27)/uy1^3*ua^3-fastfrac(81)/uy1^3*ua^2+fastfrac(9)/(fastfrac(2)*uy1))*ux1^3+(-fastfrac(81)/uy1^3*ua^3-fastfrac(81)/(fastfrac(2)*uy1^3)*ua^2+fastfrac(27)/(fastfrac(2)*uy1)*ua)*ux1^2+(-fastfrac(81)/uy1^3*ua^3+fastfrac(9)/uy1*ua^2+fastfrac(9)/uy1*ua)*ux1+(-fastfrac(27)/uy1^3*ua^3+fastfrac(9)/uy1*ua^2-uy1))).reduce()
if unified: unified = isdoublingidentity((uy4^2)-(ux4^3+fastfrac(3)*ua*(ux4+fastfrac(1))^2))
if unified: unified = isdoublingidentity((ux4)-(uX4/uZ4^2))
if unified: unified = isdoublingidentity((uy4)-(uY4/uZ4^3))
if unified: unified = isdoublingidentity((uZZ4)-(uZ4^2))
if unified: print "Unified"