Basic facts for ordered rings and semirings

This file develops the basics of ordered (semi)rings in an unbundled fashion for later use with the bundled classes from Algebra.Order.Ring.Defs.

The set of typeclass variables here comprises

• an algebraic class (Semiring, CommSemiring, Ring, CommRing)
• an order class (PartialOrder, LinearOrder)
• assumptions on how both interact ((strict) monotonicity, canonicity)

For short,

• "+ respects ≤" means "monotonicity of addition"
• "+ respects <" means "strict monotonicity of addition"
• "* respects ≤" means "monotonicity of multiplication by a nonnegative number".
• "* respects <" means "strict monotonicity of multiplication by a positive number".

Typeclasses found in Algebra.Order.Ring.Defs

• OrderedSemiring: Semiring with a partial order such that + and * respect ≤.
• StrictOrderedSemiring: Nontrivial semiring with a partial order such that + and * respects <.
• OrderedCommSemiring: Commutative semiring with a partial order such that + and * respect ≤.
• StrictOrderedCommSemiring: Nontrivial commutative semiring with a partial order such that + and * respect <.
• OrderedRing: Ring with a partial order such that + respects ≤ and * respects <.
• OrderedCommRing: Commutative ring with a partial order such that + respects ≤ and * respects <.
• LinearOrderedSemiring: Nontrivial semiring with a linear order such that + respects ≤ and * respects <.
• LinearOrderedCommSemiring: Nontrivial commutative semiring with a linear order such that + respects ≤ and * respects <.
• LinearOrderedRing: Nontrivial ring with a linear order such that + respects ≤ and * respects <.
• LinearOrderedCommRing: Nontrivial commutative ring with a linear order such that + respects ≤ and * respects <.
• CanonicallyOrderedCommSemiring: Commutative semiring with a partial order such that + respects ≤, * respects <, and a ≤ b ↔ ∃ c, b = a + c.

Hierarchy

The hardest part of proving order lemmas might be to figure out the correct generality and its corresponding typeclass. Here's an attempt at demystifying it. For each typeclass, we list its immediate predecessors and what conditions are added to each of them.

• OrderedSemiring
  • OrderedAddCommMonoid & multiplication & * respects ≤
  • Semiring & partial order structure & + respects ≤ & * respects ≤
• StrictOrderedSemiring
  • OrderedCancelAddCommMonoid & multiplication & * respects < & nontriviality
  • OrderedSemiring & + respects < & * respects < & nontriviality
• OrderedCommSemiring
  • OrderedSemiring & commutativity of multiplication
  • CommSemiring & partial order structure & + respects ≤ & * respects <
• StrictOrderedCommSemiring
  • StrictOrderedSemiring & commutativity of multiplication
  • OrderedCommSemiring & + respects < & * respects < & nontriviality
• OrderedRing
  • OrderedSemiring & additive inverses
  • OrderedAddCommGroup & multiplication & * respects <
  • Ring & partial order structure & + respects ≤ & * respects <
• StrictOrderedRing
  • StrictOrderedSemiring & additive inverses
  • OrderedSemiring & + respects < & * respects < & nontriviality
• OrderedCommRing
  • OrderedRing & commutativity of multiplication
  • OrderedCommSemiring & additive inverses
  • CommRing & partial order structure & + respects ≤ & * respects <
• StrictOrderedCommRing
  • StrictOrderedCommSemiring & additive inverses
  • StrictOrderedRing & commutativity of multiplication
  • OrderedCommRing & + respects < & * respects < & nontriviality
• LinearOrderedSemiring
  • StrictOrderedSemiring & totality of the order
  • LinearOrderedAddCommMonoid & multiplication & nontriviality & * respects <
• LinearOrderedCommSemiring
  • StrictOrderedCommSemiring & totality of the order
  • LinearOrderedSemiring & commutativity of multiplication
• LinearOrderedRing
  • StrictOrderedRing & totality of the order
  • LinearOrderedSemiring & additive inverses
  • LinearOrderedAddCommGroup & multiplication & * respects <
  • Ring & IsDomain & linear order structure
• LinearOrderedCommRing
  • StrictOrderedCommRing & totality of the order
  • LinearOrderedRing & commutativity of multiplication
  • LinearOrderedCommSemiring & additive inverses
  • CommRing & IsDomain & linear order structure

Generality

Each section is labelled with a corresponding bundled ordered ring typeclass in mind. Mixin's for relating the order structures and ring structures are added as needed.

TODO: the mixin assumptiosn can be relaxed in most cases

Note that OrderDual does not satisfy any of the ordered ring typeclasses due to the zero_le_one field.

theorem add_one_le_two_mul {α : Type u} [LE α] [Semiring α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} (a1 : 1 ≤ a) : a + 1 ≤ 2 * a

theorem add_le_mul_two_add {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} [ZeroLEOneClass α] [MulPosMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a2 : 2 ≤ a) (b0 : 0 ≤ b) : a + (2 + b) ≤ a * (2 + b)

theorem mul_le_mul_of_nonpos_left {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (h : b ≤ a) (hc : c ≤ 0) : c * a ≤ c * b

theorem mul_le_mul_of_nonpos_right {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (h : b ≤ a) (hc : c ≤ 0) : a * c ≤ b * c

theorem mul_nonneg_of_nonpos_of_nonpos {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (ha : a ≤ 0) (hb : b ≤ 0) : 0 ≤ a * b

theorem mul_le_mul_of_nonneg_of_nonpos {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [MulPosMono α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hca : c ≤ a) (hbd : b ≤ d) (hc : 0 ≤ c) (hb : b ≤ 0) : a * b ≤ c * d

theorem mul_le_mul_of_nonneg_of_nonpos' {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hca : c ≤ a) (hbd : b ≤ d) (ha : 0 ≤ a) (hd : d ≤ 0) : a * b ≤ c * d

theorem mul_le_mul_of_nonpos_of_nonneg {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [MulPosMono α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hac : a ≤ c) (hdb : d ≤ b) (hc : c ≤ 0) (hb : 0 ≤ b) : a * b ≤ c * d

theorem mul_le_mul_of_nonpos_of_nonneg' {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hca : c ≤ a) (hbd : b ≤ d) (ha : 0 ≤ a) (hd : d ≤ 0) : a * b ≤ c * d

theorem mul_le_mul_of_nonpos_of_nonpos {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [MulPosMono α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hca : c ≤ a) (hdb : d ≤ b) (hc : c ≤ 0) (hb : b ≤ 0) : a * b ≤ c * d

theorem mul_le_mul_of_nonpos_of_nonpos' {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hca : c ≤ a) (hdb : d ≤ b) (ha : a ≤ 0) (hd : d ≤ 0) : a * b ≤ c * d

theorem le_mul_of_le_one_left {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hb : b ≤ 0) (h : a ≤ 1) : b ≤ a * b

Variant of mul_le_of_le_one_left for b non-positive instead of non-negative.

theorem mul_le_of_one_le_left {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hb : b ≤ 0) (h : 1 ≤ a) : a * b ≤ b

Variant of le_mul_of_one_le_left for b non-positive instead of non-negative.

theorem le_mul_of_le_one_right {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (ha : a ≤ 0) (h : b ≤ 1) : a ≤ a * b

Variant of mul_le_of_le_one_right for a non-positive instead of non-negative.

theorem mul_le_of_one_le_right {α : Type u} [Semiring α] [Preorder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (ha : a ≤ 0) (h : 1 ≤ b) : a * b ≤ a

Variant of le_mul_of_one_le_right for a non-positive instead of non-negative.

theorem antitone_mul_left {α : Type u} [Semiring α] [Preorder α] [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} (ha : a ≤ 0) : Antitone fun (x : α) => a * x

theorem antitone_mul_right {α : Type u} [Semiring α] [Preorder α] [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} (ha : a ≤ 0) : Antitone fun (x : α) => x * a

theorem Monotone.const_mul_of_nonpos {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Monotone f) (ha : a ≤ 0) : Antitone fun (x : β) => a * f x

theorem Monotone.mul_const_of_nonpos {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Monotone f) (ha : a ≤ 0) : Antitone fun (x : β) => f x * a

theorem Antitone.const_mul_of_nonpos {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Antitone f) (ha : a ≤ 0) : Monotone fun (x : β) => a * f x

theorem Antitone.mul_const_of_nonpos {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Antitone f) (ha : a ≤ 0) : Monotone fun (x : β) => f x * a

theorem Antitone.mul_monotone {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] [Preorder β] {f : β → α} {g : β → α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Antitone f) (hg : Monotone g) (hf₀ : ∀ (x : β), f x ≤ 0) (hg₀ : ∀ (x : β), 0 ≤ g x) : Antitone (f * g)

theorem Monotone.mul_antitone {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] [Preorder β] {f : β → α} {g : β → α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Monotone f) (hg : Antitone g) (hf₀ : ∀ (x : β), 0 ≤ f x) (hg₀ : ∀ (x : β), g x ≤ 0) : Antitone (f * g)

theorem Antitone.mul {α : Type u} {β : Type u_1} [Semiring α] [Preorder α] [Preorder β] {f : β → α} {g : β → α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hf : Antitone f) (hg : Antitone g) (hf₀ : ∀ (x : β), f x ≤ 0) (hg₀ : ∀ (x : β), g x ≤ 0) : Monotone (f * g)

theorem lt_two_mul_self {α : Type u} [Semiring α] [PartialOrder α] {a : α} [ZeroLEOneClass α] [MulPosStrictMono α] [NeZero 1] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (ha : 0 < a) : a < 2 * a

theorem mul_lt_mul_of_neg_left {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} {c : α} [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (h : b < a) (hc : c < 0) : c * a < c * b

theorem mul_lt_mul_of_neg_right {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} {c : α} [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (h : b < a) (hc : c < 0) : a * c < b * c

theorem mul_pos_of_neg_of_neg {α : Type u} [Semiring α] [PartialOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} {b : α} (ha : a < 0) (hb : b < 0) : 0 < a * b

theorem lt_mul_of_lt_one_left {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hb : b < 0) (h : a < 1) : b < a * b

Variant of mul_lt_of_lt_one_left for b negative instead of positive.

theorem mul_lt_of_one_lt_left {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hb : b < 0) (h : 1 < a) : a * b < b

Variant of lt_mul_of_one_lt_left for b negative instead of positive.

theorem lt_mul_of_lt_one_right {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (ha : a < 0) (h : b < 1) : a < a * b

Variant of mul_lt_of_lt_one_right for a negative instead of positive.

theorem mul_lt_of_one_lt_right {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (ha : a < 0) (h : 1 < b) : a * b < a

Variant of lt_mul_of_lt_one_right for a negative instead of positive.

theorem strictAnti_mul_left {α : Type u} [Semiring α] [PartialOrder α] [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} (ha : a < 0) : StrictAnti fun (x : α) => a * x

theorem strictAnti_mul_right {α : Type u} [Semiring α] [PartialOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} (ha : a < 0) : StrictAnti fun (x : α) => x * a

theorem StrictMono.const_mul_of_neg {α : Type u} {β : Type u_1} [Semiring α] [PartialOrder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hf : StrictMono f) (ha : a < 0) : StrictAnti fun (x : β) => a * f x

theorem StrictMono.mul_const_of_neg {α : Type u} {β : Type u_1} [Semiring α] [PartialOrder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hf : StrictMono f) (ha : a < 0) : StrictAnti fun (x : β) => f x * a

theorem StrictAnti.const_mul_of_neg {α : Type u} {β : Type u_1} [Semiring α] [PartialOrder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hf : StrictAnti f) (ha : a < 0) : StrictMono fun (x : β) => a * f x

theorem StrictAnti.mul_const_of_neg {α : Type u} {β : Type u_1} [Semiring α] [PartialOrder α] {a : α} [Preorder β] {f : β → α} [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hf : StrictAnti f) (ha : a < 0) : StrictMono fun (x : β) => f x * a

theorem mul_add_mul_le_mul_add_mul {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hab : a ≤ b) (hcd : c ≤ d) : a * d + b * c ≤ a * c + b * d

Binary rearrangement inequality.

theorem mul_add_mul_le_mul_add_mul' {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} {c : α} {d : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hba : b ≤ a) (hdc : d ≤ c) : a * d + b * c ≤ a * c + b * d

Binary rearrangement inequality.

theorem mul_add_mul_lt_mul_add_mul {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} {c : α} {d : α} [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hab : a < b) (hcd : c < d) : a * d + b * c < a * c + b * d

Binary strict rearrangement inequality.

theorem mul_add_mul_lt_mul_add_mul' {α : Type u} [Semiring α] [PartialOrder α] {a : α} {b : α} {c : α} {d : α} [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (hba : b < a) (hdc : d < c) : a * d + b * c < a * c + b * d

Binary rearrangement inequality.

theorem nonneg_and_nonneg_or_nonpos_and_nonpos_of_mul_nonneg {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [MulPosStrictMono α] [PosMulStrictMono α] (hab : 0 ≤ a * b) : 0 ≤ a ∧ 0 ≤ b ∨ a ≤ 0 ∧ b ≤ 0

theorem nonneg_of_mul_nonneg_left {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [MulPosStrictMono α] (h : 0 ≤ a * b) (hb : 0 < b) : 0 ≤ a

theorem nonneg_of_mul_nonneg_right {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] (h : 0 ≤ a * b) (ha : 0 < a) : 0 ≤ b

theorem nonpos_of_mul_nonpos_left {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] (h : a * b ≤ 0) (hb : 0 < b) : a ≤ 0

theorem nonpos_of_mul_nonpos_right {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] (h : a * b ≤ 0) (ha : 0 < a) : b ≤ 0

@[simp]

theorem mul_nonneg_iff_of_pos_left {α : Type u} [Semiring α] [LinearOrder α] {b : α} {c : α} [PosMulStrictMono α] (h : 0 < c) : 0 ≤ c * b ↔ 0 ≤ b

@[simp]

theorem mul_nonneg_iff_of_pos_right {α : Type u} [Semiring α] [LinearOrder α] {b : α} {c : α} [MulPosStrictMono α] (h : 0 < c) : 0 ≤ b * c ↔ 0 ≤ b

theorem add_le_mul_of_left_le_right {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ZeroLEOneClass α] [NeZero 1] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a2 : 2 ≤ a) (ab : a ≤ b) : a + b ≤ a * b

theorem add_le_mul_of_right_le_left {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ZeroLEOneClass α] [NeZero 1] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [PosMulStrictMono α] (b2 : 2 ≤ b) (ba : b ≤ a) : a + b ≤ a * b

theorem add_le_mul {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ZeroLEOneClass α] [NeZero 1] [MulPosStrictMono α] [PosMulStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a2 : 2 ≤ a) (b2 : 2 ≤ b) : a + b ≤ a * b

theorem add_le_mul' {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ZeroLEOneClass α] [NeZero 1] [MulPosStrictMono α] [PosMulStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a2 : 2 ≤ a) (b2 : 2 ≤ b) : a + b ≤ b * a

theorem mul_nonneg_iff_right_nonneg_of_pos {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] (ha : 0 < a) : 0 ≤ a * b ↔ 0 ≤ b

theorem mul_nonneg_iff_left_nonneg_of_pos {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] [MulPosStrictMono α] (hb : 0 < b) : 0 ≤ a * b ↔ 0 ≤ a

theorem nonpos_of_mul_nonneg_left {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] (h : 0 ≤ a * b) (hb : b < 0) : a ≤ 0

theorem nonpos_of_mul_nonneg_right {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [MulPosStrictMono α] (h : 0 ≤ a * b) (ha : a < 0) : b ≤ 0

@[simp]

theorem Units.inv_pos {α : Type u} [Semiring α] [LinearOrder α] [ZeroLEOneClass α] [NeZero 1] [PosMulStrictMono α] {u : αˣ} : 0 < ↑u⁻¹ ↔ 0 < ↑u

@[simp]

theorem Units.inv_neg {α : Type u} [Semiring α] [LinearOrder α] [ZeroLEOneClass α] [NeZero 1] [MulPosMono α] [PosMulMono α] {u : αˣ} : ↑u⁻¹ < 0 ↔ ↑u < 0

theorem cmp_mul_pos_left {α : Type u} [Semiring α] [LinearOrder α] {a : α} [PosMulStrictMono α] (ha : 0 < a) (b : α) (c : α) : cmp (a * b) (a * c) = cmp b c

theorem cmp_mul_pos_right {α : Type u} [Semiring α] [LinearOrder α] {a : α} [MulPosStrictMono α] (ha : 0 < a) (b : α) (c : α) : cmp (b * a) (c * a) = cmp b c

theorem mul_max_of_nonneg {α : Type u} [Semiring α] [LinearOrder α] {a : α} [PosMulMono α] (b : α) (c : α) (ha : 0 ≤ a) : a * max b c = max (a * b) (a * c)

theorem mul_min_of_nonneg {α : Type u} [Semiring α] [LinearOrder α] {a : α} [PosMulMono α] (b : α) (c : α) (ha : 0 ≤ a) : a * min b c = min (a * b) (a * c)

theorem max_mul_of_nonneg {α : Type u} [Semiring α] [LinearOrder α] {c : α} [MulPosMono α] (a : α) (b : α) (hc : 0 ≤ c) : max a b * c = max (a * c) (b * c)

theorem min_mul_of_nonneg {α : Type u} [Semiring α] [LinearOrder α] {c : α} [MulPosMono α] (a : α) (b : α) (hc : 0 ≤ c) : min a b * c = min (a * c) (b * c)

theorem le_of_mul_le_of_one_le {α : Type u} [Semiring α] [LinearOrder α] [ZeroLEOneClass α] [NeZero 1] [MulPosStrictMono α] [PosMulMono α] {a : α} {b : α} {c : α} (h : a * c ≤ b) (hb : 0 ≤ b) (hc : 1 ≤ c) : a ≤ b

theorem nonneg_le_nonneg_of_sq_le_sq {α : Type u} [Semiring α] [LinearOrder α] [PosMulStrictMono α] [MulPosMono α] {a : α} {b : α} (hb : 0 ≤ b) (h : a * a ≤ b * b) : a ≤ b

theorem mul_self_le_mul_self_iff {α : Type u} [Semiring α] [LinearOrder α] [PosMulStrictMono α] [MulPosMono α] {a : α} {b : α} (h1 : 0 ≤ a) (h2 : 0 ≤ b) : a ≤ b ↔ a * a ≤ b * b

theorem mul_self_lt_mul_self_iff {α : Type u} [Semiring α] [LinearOrder α] [PosMulStrictMono α] [MulPosMono α] {a : α} {b : α} (h1 : 0 ≤ a) (h2 : 0 ≤ b) : a < b ↔ a * a < b * b

theorem mul_self_inj {α : Type u} [Semiring α] [LinearOrder α] [PosMulStrictMono α] [MulPosMono α] {a : α} {b : α} (h1 : 0 ≤ a) (h2 : 0 ≤ b) : a * a = b * b ↔ a = b

theorem sign_cases_of_C_mul_pow_nonneg {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] (h : ∀ (n : ℕ), 0 ≤ a * b ^ n) : a = 0 ∨ 0 < a ∧ 0 ≤ b

theorem mul_pos_iff {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulStrictMono α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] : 0 < a * b ↔ 0 < a ∧ 0 < b ∨ a < 0 ∧ b < 0

theorem mul_nonneg_iff {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ExistsAddOfLE α] [MulPosStrictMono α] [PosMulStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] : 0 ≤ a * b ↔ 0 ≤ a ∧ 0 ≤ b ∨ a ≤ 0 ∧ b ≤ 0

theorem mul_nonneg_of_three {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [PosMulStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a : α) (b : α) (c : α) : 0 ≤ a * b ∨ 0 ≤ b * c ∨ 0 ≤ c * a

Out of three elements of a LinearOrderedRing, two must have the same sign.

theorem mul_nonneg_iff_pos_imp_nonneg {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulStrictMono α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] : 0 ≤ a * b ↔ (0 < a → 0 ≤ b) ∧ (0 < b → 0 ≤ a)

@[simp]

theorem mul_le_mul_left_of_neg {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} {b : α} {c : α} (h : c < 0) : c * a ≤ c * b ↔ b ≤ a

@[simp]

theorem mul_le_mul_right_of_neg {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} {b : α} {c : α} (h : c < 0) : a * c ≤ b * c ↔ b ≤ a

@[simp]

theorem mul_lt_mul_left_of_neg {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [PosMulStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} {b : α} {c : α} (h : c < 0) : c * a < c * b ↔ b < a

@[simp]

theorem mul_lt_mul_right_of_neg {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} {b : α} {c : α} (h : c < 0) : a * c < b * c ↔ b < a

theorem lt_of_mul_lt_mul_of_nonpos_left {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} {c : α} [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (h : c * a < c * b) (hc : c ≤ 0) : b < a

theorem lt_of_mul_lt_mul_of_nonpos_right {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} {c : α} [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (h : a * c < b * c) (hc : c ≤ 0) : b < a

theorem cmp_mul_neg_left {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [PosMulStrictMono α] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} (ha : a < 0) (b : α) (c : α) : cmp (a * b) (a * c) = cmp c b

theorem cmp_mul_neg_right {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} (ha : a < 0) (b : α) (c : α) : cmp (b * a) (c * a) = cmp c b

@[simp]

theorem mul_self_pos {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [PosMulStrictMono α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] {a : α} : 0 < a * a ↔ a ≠ 0

theorem nonneg_of_mul_nonpos_left {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} {b : α} (h : a * b ≤ 0) (hb : b < 0) : 0 ≤ a

theorem nonneg_of_mul_nonpos_right {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} {b : α} (h : a * b ≤ 0) (ha : a < 0) : 0 ≤ b

theorem pos_of_mul_neg_left {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} {b : α} (h : a * b < 0) (hb : b ≤ 0) : 0 < a

theorem pos_of_mul_neg_right {α : Type u} [Semiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] {a : α} {b : α} (h : a * b < 0) (ha : a ≤ 0) : 0 < b

theorem neg_iff_pos_of_mul_neg {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hab : a * b < 0) : a < 0 ↔ 0 < b

theorem pos_iff_neg_of_mul_neg {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [ExistsAddOfLE α] [PosMulMono α] [MulPosMono α] [CovariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (Function.swap fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (hab : a * b < 0) : 0 < a ↔ b < 0

theorem sq_nonneg {α : Type u} [Semiring α] [LinearOrder α] [IsRightCancelAdd α] [ZeroLEOneClass α] [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (a : α) : 0 ≤ a ^ 2

theorem pow_two_nonneg {α : Type u} [Semiring α] [LinearOrder α] [IsRightCancelAdd α] [ZeroLEOneClass α] [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (a : α) : 0 ≤ a ^ 2

Alias of sq_nonneg.

theorem mul_self_nonneg {α : Type u} [Semiring α] [LinearOrder α] [IsRightCancelAdd α] [ZeroLEOneClass α] [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (a : α) : 0 ≤ a * a

theorem mul_self_add_mul_self_eq_zero {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [IsRightCancelAdd α] [NoZeroDivisors α] [ZeroLEOneClass α] [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] : a * a + b * b = 0 ↔ a = 0 ∧ b = 0

The sum of two squares is zero iff both elements are zero.

theorem eq_zero_of_mul_self_add_mul_self_eq_zero {α : Type u} [Semiring α] [LinearOrder α] {a : α} {b : α} [IsRightCancelAdd α] [NoZeroDivisors α] [ZeroLEOneClass α] [ExistsAddOfLE α] [PosMulMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (h : a * a + b * b = 0) : a = 0

theorem max_mul_mul_le_max_mul_max {α : Type u} [CommSemiring α] [LinearOrder α] {a : α} {d : α} [PosMulMono α] [MulPosMono α] (b : α) (c : α) (ha : 0 ≤ a) (hd : 0 ≤ d) : max (a * b) (d * c) ≤ max a c * max d b

theorem two_mul_le_add_sq {α : Type u} [CommSemiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a : α) (b : α) : 2 * a * b ≤ a ^ 2 + b ^ 2

Binary, squared, and division-free arithmetic mean-geometric mean inequality (aka AM-GM inequality) for linearly ordered commutative semirings.

theorem two_mul_le_add_pow_two {α : Type u} [CommSemiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a : α) (b : α) : 2 * a * b ≤ a ^ 2 + b ^ 2

Alias of two_mul_le_add_sq.

---

Binary, squared, and division-free arithmetic mean-geometric mean inequality (aka AM-GM inequality) for linearly ordered commutative semirings.

theorem four_mul_le_sq_add {α : Type u} [CommSemiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a : α) (b : α) : 4 * a * b ≤ (a + b) ^ 2

Binary, squared, and division-free arithmetic mean-geometric mean inequality (aka AM-GM inequality) for linearly ordered commutative semirings.

theorem four_mul_le_pow_two_add {α : Type u} [CommSemiring α] [LinearOrder α] [ExistsAddOfLE α] [MulPosStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (a : α) (b : α) : 4 * a * b ≤ (a + b) ^ 2

Alias of four_mul_le_sq_add.

---

Binary, squared, and division-free arithmetic mean-geometric mean inequality (aka AM-GM inequality) for linearly ordered commutative semirings.

theorem mul_neg_iff {α : Type u} [Ring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] [MulPosStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] : a * b < 0 ↔ 0 < a ∧ b < 0 ∨ a < 0 ∧ 0 < b

theorem mul_nonpos_iff {α : Type u} [Ring α] [LinearOrder α] {a : α} {b : α} [MulPosStrictMono α] [PosMulStrictMono α] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] : a * b ≤ 0 ↔ 0 ≤ a ∧ b ≤ 0 ∨ a ≤ 0 ∧ 0 ≤ b

theorem mul_nonneg_iff_neg_imp_nonpos {α : Type u} [Ring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] : 0 ≤ a * b ↔ (a < 0 → b ≤ 0) ∧ (b < 0 → a ≤ 0)

theorem mul_nonpos_iff_pos_imp_nonpos {α : Type u} [Ring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] : a * b ≤ 0 ↔ (0 < a → b ≤ 0) ∧ (b < 0 → 0 ≤ a)

theorem mul_nonpos_iff_neg_imp_nonneg {α : Type u} [Ring α] [LinearOrder α] {a : α} {b : α} [PosMulStrictMono α] [MulPosStrictMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] [ContravariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] : a * b ≤ 0 ↔ (a < 0 → 0 ≤ b) ∧ (0 < b → a ≤ 0)

theorem neg_one_lt_zero {α : Type u} [Ring α] [LinearOrder α] [ZeroLEOneClass α] [NeZero 1] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] : -1 < 0

theorem sub_one_lt {α : Type u} [Ring α] [LinearOrder α] [ZeroLEOneClass α] [NeZero 1] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 < x2] (a : α) : a - 1 < a

theorem mul_self_le_mul_self_of_le_of_neg_le {α : Type u} [Ring α] [LinearOrder α] {a : α} {b : α} [MulPosMono α] [PosMulMono α] [CovariantClass α α (fun (x1 x2 : α) => x1 + x2) fun (x1 x2 : α) => x1 ≤ x2] (h₁ : a ≤ b) (h₂ : -a ≤ b) : a * a ≤ b * b