(*  Title:      HOL/ex/SOS.thy
    Author:     Amine Chaieb, University of Cambridge
    Author:     Philipp Meyer, TU Muenchen

Examples for Sum_of_Squares.
*)

theory SOS
imports "HOL-Library.Sum_of_Squares"
begin

lemma "(3::real) * x + 7 * a < 4 ∧ 3 < 2 * x ==> a < 0"
  by sos

lemma "a1 ≥ 0 ∧ a2 ≥ 0 ∧ (a1 * a1 + a2 * a2 = b1 * b1 + b2 * b2 + 2) ∧ (a1 * b1 + a2 * b2 = 0) ⟶
    a1 * a2 - b1 * b2 ≥ (0::real)"
  by sos

lemma "(3::real) * x + 7 * a < 4 ∧ 3 < 2 * x ⟶ a < 0"
  by sos

lemma "(0::real) ≤ x ∧ x ≤ 1 ∧ 0 ≤ y ∧ y ≤ 1 ⟶
    x² + y² < 1 ∨ (x - 1)² + y² < 1 ∨ x² + (y - 1)² < 1 ∨ (x - 1)² + (y - 1)² < 1"
  by sos

lemma "(0::real) ≤ x ∧ 0 ≤ y ∧ 0 ≤ z ∧ x + y + z ≤ 3 ⟶ x * y + x * z + y * z ≥ 3 * x * y * z"
  by sos

lemma "(x::real)² + y² + z² = 1 ⟶ (x + y + z)² ≤ 3"
  by sos

lemma "w² + x² + y² + z² = 1 ⟶ (w + x + y + z)² ≤ (4::real)"
  by sos

lemma "(x::real) ≥ 1 ∧ y ≥ 1 ⟶ x * y ≥ x + y - 1"
  by sos

lemma "(x::real) > 1 ∧ y > 1 ⟶ x * y > x + y - 1"
  by sos

lemma "∣x∣ ≤ 1 ⟶ ∣64 * x^7 - 112 * x^5 + 56 * x^3 - 7 * x∣ ≤ (1::real)"
  by sos


text ‹One component of denominator in dodecahedral example.›

lemma "2 ≤ x ∧ x ≤ 125841 / 50000 ∧ 2 ≤ y ∧ y ≤ 125841 / 50000 ∧ 2 ≤ z ∧ z ≤ 125841 / 50000 ⟶
    2 * (x * z + x * y + y * z) - (x * x + y * y + z * z) ≥ (0::real)"
  by sos


text ‹Over a larger but simpler interval.›

lemma "(2::real) ≤ x ∧ x ≤ 4 ∧ 2 ≤ y ∧ y ≤ 4 ∧ 2 ≤ z ∧ z ≤ 4 ⟶
    0 ≤ 2 * (x * z + x * y + y * z) - (x * x + y * y + z * z)"
  by sos


text ‹We can do 12. I think 12 is a sharp bound; see PP's certificate.›

lemma "2 ≤ (x::real) ∧ x ≤ 4 ∧ 2 ≤ y ∧ y ≤ 4 ∧ 2 ≤ z ∧ z ≤ 4 ⟶
    12 ≤ 2 * (x * z + x * y + y * z) - (x * x + y * y + z * z)"
  by sos


text ‹Inequality from sci.math (see "Leon-Sotelo, por favor").›

lemma "0 ≤ (x::real) ∧ 0 ≤ y ∧ x * y = 1 ⟶ x + y ≤ x² + y²"
  by sos

lemma "0 ≤ (x::real) ∧ 0 ≤ y ∧ x * y = 1 ⟶ x * y * (x + y) ≤ x² + y²"
  by sos

lemma "0 ≤ (x::real) ∧ 0 ≤ y ⟶ x * y * (x + y)² ≤ (x² + y²)²"
  by sos

lemma "(0::real) ≤ a ∧ 0 ≤ b ∧ 0 ≤ c ∧ c * (2 * a + b)^3 / 27 ≤ x ⟶ c * a² * b ≤ x"
  by sos

lemma "(0::real) < x ⟶ 0 < 1 + x + x²"
  by sos

lemma "(0::real) ≤ x ⟶ 0 < 1 + x + x²"
  by sos

lemma "(0::real) < 1 + x²"
  by sos

lemma "(0::real) ≤ 1 + 2 * x + x²"
  by sos

lemma "(0::real) < 1 + ∣x∣"
  by sos

lemma "(0::real) < 1 + (1 + x)² * ∣x∣"
  by sos


lemma "∣(1::real) + x²∣ = (1::real) + x²"
  by sos

lemma "(3::real) * x + 7 * a < 4 ∧ 3 < 2 * x ⟶ a < 0"
  by sos

lemma "(0::real) < x ⟶ 1 < y ⟶ y * x ≤ z ⟶ x < z"
  by sos

lemma "(1::real) < x ⟶ x² < y ⟶ 1 < y"
  by sos

lemma "(b::real)² < 4 * a * c ⟶ a * x² + b * x + c ≠ 0"
  by sos

lemma "(b::real)² < 4 * a * c ⟶ a * x² + b * x + c ≠ 0"
  by sos

lemma "(a::real) * x² + b * x + c = 0 ⟶ b² ≥ 4 * a * c"
  by sos

lemma "(0::real) ≤ b ∧ 0 ≤ c ∧ 0 ≤ x ∧ 0 ≤ y ∧ x² = c ∧ y² = a² * c + b ⟶ a * c ≤ y * x"
  by sos

lemma "∣x - z∣ ≤ e ∧ ∣y - z∣ ≤ e ∧ 0 ≤ u ∧ 0 ≤ v ∧ u + v = 1 ⟶ ∣(u * x + v * y) - z∣ ≤ (e::real)"
  by sos

lemma "(x::real) - y - 2 * x^4 = 0 ∧ 0 ≤ x ∧ x ≤ 2 ∧ 0 ≤ y ∧ y ≤ 3 ⟶ y² - 7 * y - 12 * x + 17 ≥ 0"
  oops (*Too hard; left it running for 80 minutes -- LCP*)

lemma "(0::real) ≤ x ⟶ (1 + x + x²) / (1 + x²) ≤ 1 + x"
  by sos

lemma "(0::real) ≤ x ⟶ 1 - x ≤ 1 / (1 + x + x²)"
  by sos

lemma "(x::real) ≤ 1 / 2 ⟶ - x - 2 * x² ≤ - x / (1 - x)"
  by sos

lemma "4 * r² = p² - 4 * q ∧ r ≥ (0::real) ∧ x² + p * x + q = 0 ⟶
    2 * (x::real) = - p + 2 * r ∨ 2 * x = - p - 2 * r"
  by sos

end