∀ {α : Type u_2} {β : Type u_3} [inst : Field α] [inst_1 : LinearOrder α] [IsStrictOrderedRing α]
  [inst_3 : ConditionallyCompleteLinearOrderedField β] [Archimedean α] {a : α},
  0 < a →
    ∀ b ∈ LinearOrderedField.cutMap β (a * a),
      b ≤ LinearOrderedField.inducedMap α β a * LinearOrderedField.inducedMap α β a