Tropical algebraic structures

This file defines algebraic structures of the (min-)tropical numbers, up to the tropical semiring. Some basic lemmas about conversion from the base type R to Tropical R are provided, as well as the expected implementations of tropical addition and tropical multiplication.

Main declarations

• Tropical R: The type synonym of the tropical interpretation of R. If [LinearOrder R], then addition on R is via min.
• Semiring (Tropical R): A LinearOrderedAddCommMonoidWithTop R induces a Semiring (Tropical R). If one solely has [LinearOrderedAddCommMonoid R], then the "tropicalization of R" would be Tropical (WithTop R).

Implementation notes

The tropical structure relies on Top and min. For the max-tropical numbers, use OrderDual R.

Inspiration was drawn from the implementation of Additive/Multiplicative/Opposite, where a type synonym is created with some barebones API, and quickly made irreducible.

Algebraic structures are provided with as few typeclass assumptions as possible, even though most references rely on Semiring (Tropical R) for building up the whole theory.

References followed

• https://arxiv.org/pdf/math/0408099.pdf
• https://www.mathenjeans.fr/sites/default/files/sujets/tropical_geometry_-_casagrande.pdf

@[irreducible]

def Tropical (R : Type u) : Type u

The tropicalization of a type R.

Equations

• Tropical R = R

def Tropical.trop {R : Type u} : R → Tropical R

Reinterpret x : R as an element of Tropical R. See Tropical.tropEquiv for the equivalence.

Equations

• Tropical.trop = id

def Tropical.untrop {R : Type u} : Tropical R → R

Reinterpret x : Tropical R as an element of R. See Tropical.tropEquiv for the equivalence.

Equations

• Tropical.untrop = id

theorem Tropical.trop_injective {R : Type u} : Function.Injective Tropical.trop

theorem Tropical.untrop_injective {R : Type u} : Function.Injective Tropical.untrop

@[simp]

theorem Tropical.trop_inj_iff {R : Type u} (x : R) (y : R) : Tropical.trop x = Tropical.trop y ↔ x = y

@[simp]

theorem Tropical.untrop_inj_iff {R : Type u} (x : Tropical R) (y : Tropical R) : Tropical.untrop x = Tropical.untrop y ↔ x = y

@[simp]

theorem Tropical.trop_untrop {R : Type u} (x : Tropical R) : Tropical.trop (Tropical.untrop x) = x

@[simp]

theorem Tropical.untrop_trop {R : Type u} (x : R) : Tropical.untrop (Tropical.trop x) = x

theorem Tropical.leftInverse_trop {R : Type u} : Function.LeftInverse Tropical.trop Tropical.untrop

theorem Tropical.rightInverse_trop {R : Type u} : Function.RightInverse Tropical.trop Tropical.untrop

def Tropical.tropEquiv {R : Type u} : R ≃ Tropical R

Reinterpret x : R as an element of Tropical R. See Tropical.tropOrderIso for the order-preserving equivalence.

Equations

• Tropical.tropEquiv = { toFun := Tropical.trop, invFun := Tropical.untrop, left_inv := ⋯, right_inv := ⋯ }

@[simp]

theorem Tropical.tropEquiv_coe_fn {R : Type u} : ⇑Tropical.tropEquiv = Tropical.trop

@[simp]

theorem Tropical.tropEquiv_symm_coe_fn {R : Type u} : ⇑Tropical.tropEquiv.symm = Tropical.untrop

theorem Tropical.trop_eq_iff_eq_untrop {R : Type u} {x : R} {y : Tropical R} : Tropical.trop x = y ↔ x = Tropical.untrop y

theorem Tropical.untrop_eq_iff_eq_trop {R : Type u} {x : Tropical R} {y : R} : Tropical.untrop x = y ↔ x = Tropical.trop y

theorem Tropical.injective_trop {R : Type u} : Function.Injective Tropical.trop

theorem Tropical.injective_untrop {R : Type u} : Function.Injective Tropical.untrop

theorem Tropical.surjective_trop {R : Type u} : Function.Surjective Tropical.trop

theorem Tropical.surjective_untrop {R : Type u} : Function.Surjective Tropical.untrop

instance Tropical.instInhabitedTropical {R : Type u} [Inhabited R] : Inhabited (Tropical R)

Equations

• Tropical.instInhabitedTropical = { default := Tropical.trop default }

def Tropical.tropRec {R : Type u} {F : Tropical R → Sort v} (h : (X : R) → F (Tropical.trop X)) (X : Tropical R) : F X

Recursing on an x' : Tropical R is the same as recursing on an x : R reinterpreted as a term of Tropical R via trop x.

Equations

• Tropical.tropRec h X = h (Tropical.untrop X)

instance Tropical.instDecidableEqTropical {R : Type u} [DecidableEq R] : DecidableEq (Tropical R)

Equations

• Tropical.instDecidableEqTropical x✝ x = decidable_of_iff (Tropical.untrop x✝ = Tropical.untrop x) ⋯

instance Tropical.instLETropical {R : Type u} [LE R] : LE (Tropical R)

Equations

• Tropical.instLETropical = { le := fun (x y : Tropical R) => Tropical.untrop x ≤ Tropical.untrop y }

@[simp]

theorem Tropical.untrop_le_iff {R : Type u} [LE R] {x : Tropical R} {y : Tropical R} : Tropical.untrop x ≤ Tropical.untrop y ↔ x ≤ y

instance Tropical.decidableLE {R : Type u} [LE R] [DecidableRel fun (x x_1 : R) => x ≤ x_1] : DecidableRel fun (x x_1 : Tropical R) => x ≤ x_1

Equations

• Tropical.decidableLE x y = inst (Tropical.untrop x) (Tropical.untrop y)

instance Tropical.instLTTropical {R : Type u} [LT R] : LT (Tropical R)

Equations

• Tropical.instLTTropical = { lt := fun (x y : Tropical R) => Tropical.untrop x < Tropical.untrop y }

@[simp]

theorem Tropical.untrop_lt_iff {R : Type u} [LT R] {x : Tropical R} {y : Tropical R} : Tropical.untrop x < Tropical.untrop y ↔ x < y

instance Tropical.decidableLT {R : Type u} [LT R] [DecidableRel fun (x x_1 : R) => x < x_1] : DecidableRel fun (x x_1 : Tropical R) => x < x_1

Equations

• Tropical.decidableLT x y = inst (Tropical.untrop x) (Tropical.untrop y)

instance Tropical.instPreorderTropical {R : Type u} [Preorder R] : Preorder (Tropical R)

Equations

• Tropical.instPreorderTropical = let __src := Tropical.instLETropical; let __src_1 := Tropical.instLTTropical; Preorder.mk ⋯ ⋯ ⋯

def Tropical.tropOrderIso {R : Type u} [Preorder R] : R ≃o Tropical R

Reinterpret x : R as an element of Tropical R, preserving the order.

Equations

• Tropical.tropOrderIso = let __src := Tropical.tropEquiv; { toEquiv := __src, map_rel_iff' := ⋯ }

@[simp]

theorem Tropical.tropOrderIso_coe_fn {R : Type u} [Preorder R] : ⇑Tropical.tropOrderIso = Tropical.trop

@[simp]

theorem Tropical.tropOrderIso_symm_coe_fn {R : Type u} [Preorder R] : ⇑(OrderIso.symm Tropical.tropOrderIso) = Tropical.untrop

theorem Tropical.trop_monotone {R : Type u} [Preorder R] : Monotone Tropical.trop

theorem Tropical.untrop_monotone {R : Type u} [Preorder R] : Monotone Tropical.untrop

instance Tropical.instPartialOrderTropical {R : Type u} [PartialOrder R] : PartialOrder (Tropical R)

Equations

• Tropical.instPartialOrderTropical = let __src := Tropical.instPreorderTropical; PartialOrder.mk ⋯

instance Tropical.instZeroTropical {R : Type u} [Top R] : Zero (Tropical R)

Equations

• Tropical.instZeroTropical = { zero := Tropical.trop ⊤ }

instance Tropical.instTopTropical {R : Type u} [Top R] : Top (Tropical R)

Equations

• Tropical.instTopTropical = { top := 0 }

@[simp]

theorem Tropical.untrop_zero {R : Type u} [Top R] : Tropical.untrop 0 = ⊤

@[simp]

theorem Tropical.trop_top {R : Type u} [Top R] : Tropical.trop ⊤ = 0

@[simp]

theorem Tropical.trop_coe_ne_zero {R : Type u} (x : R) : Tropical.trop ↑x ≠ 0

@[simp]

theorem Tropical.zero_ne_trop_coe {R : Type u} (x : R) : 0 ≠ Tropical.trop ↑x

@[simp]

theorem Tropical.le_zero {R : Type u} [LE R] [OrderTop R] (x : Tropical R) : x ≤ 0

instance Tropical.instOrderTopTropicalInstLETropical {R : Type u} [LE R] [OrderTop R] : OrderTop (Tropical R)

Equations

• Tropical.instOrderTopTropicalInstLETropical = let __src := Tropical.instTopTropical; OrderTop.mk ⋯

instance Tropical.instAddTropical {R : Type u} [LinearOrder R] : Add (Tropical R)

Tropical addition is the minimum of two underlying elements of R.

Equations

• Tropical.instAddTropical = { add := fun (x y : Tropical R) => Tropical.trop (min (Tropical.untrop x) (Tropical.untrop y)) }

instance Tropical.instAddCommSemigroupTropical {R : Type u} [LinearOrder R] : AddCommSemigroup (Tropical R)

Equations

• Tropical.instAddCommSemigroupTropical = AddCommSemigroup.mk ⋯

@[simp]

theorem Tropical.untrop_add {R : Type u} [LinearOrder R] (x : Tropical R) (y : Tropical R) : Tropical.untrop (x + y) = min (Tropical.untrop x) (Tropical.untrop y)

@[simp]

theorem Tropical.trop_min {R : Type u} [LinearOrder R] (x : R) (y : R) : Tropical.trop (min x y) = Tropical.trop x + Tropical.trop y

@[simp]

theorem Tropical.trop_inf {R : Type u} [LinearOrder R] (x : R) (y : R) : Tropical.trop (x ⊓ y) = Tropical.trop x + Tropical.trop y

theorem Tropical.trop_add_def {R : Type u} [LinearOrder R] (x : Tropical R) (y : Tropical R) : x + y = Tropical.trop (min (Tropical.untrop x) (Tropical.untrop y))

instance Tropical.instLinearOrderTropical {R : Type u} [LinearOrder R] : LinearOrder (Tropical R)

Equations

• Tropical.instLinearOrderTropical = let __src := Tropical.instPartialOrderTropical; LinearOrder.mk ⋯ Tropical.decidableLE decidableEqOfDecidableLE decidableLTOfDecidableLE ⋯ ⋯ ⋯

@[simp]

theorem Tropical.untrop_sup {R : Type u} [LinearOrder R] (x : Tropical R) (y : Tropical R) : Tropical.untrop (x ⊔ y) = Tropical.untrop x ⊔ Tropical.untrop y

@[simp]

theorem Tropical.untrop_max {R : Type u} [LinearOrder R] (x : Tropical R) (y : Tropical R) : Tropical.untrop (max x y) = max (Tropical.untrop x) (Tropical.untrop y)

@[simp]

theorem Tropical.min_eq_add {R : Type u} [LinearOrder R] : min = fun (x x_1 : Tropical R) => x + x_1

@[simp]

theorem Tropical.inf_eq_add {R : Type u} [LinearOrder R] : (fun (x x_1 : Tropical R) => x ⊓ x_1) = fun (x x_1 : Tropical R) => x + x_1

theorem Tropical.trop_max_def {R : Type u} [LinearOrder R] (x : Tropical R) (y : Tropical R) : max x y = Tropical.trop (max (Tropical.untrop x) (Tropical.untrop y))

theorem Tropical.trop_sup_def {R : Type u} [LinearOrder R] (x : Tropical R) (y : Tropical R) : x ⊔ y = Tropical.trop (Tropical.untrop x ⊔ Tropical.untrop y)

@[simp]

theorem Tropical.add_eq_left {R : Type u} [LinearOrder R] ⦃x : Tropical R⦄ ⦃y : Tropical R⦄ (h : x ≤ y) : x + y = x

@[simp]

theorem Tropical.add_eq_right {R : Type u} [LinearOrder R] ⦃x : Tropical R⦄ ⦃y : Tropical R⦄ (h : y ≤ x) : x + y = y

theorem Tropical.add_eq_left_iff {R : Type u} [LinearOrder R] {x : Tropical R} {y : Tropical R} : x + y = x ↔ x ≤ y

theorem Tropical.add_eq_right_iff {R : Type u} [LinearOrder R] {x : Tropical R} {y : Tropical R} : x + y = y ↔ y ≤ x

theorem Tropical.add_self {R : Type u} [LinearOrder R] (x : Tropical R) : x + x = x

@[simp]

theorem Tropical.bit0 {R : Type u} [LinearOrder R] (x : Tropical R) : bit0 x = x

theorem Tropical.add_eq_iff {R : Type u} [LinearOrder R] {x : Tropical R} {y : Tropical R} {z : Tropical R} : x + y = z ↔ x = z ∧ x ≤ y ∨ y = z ∧ y ≤ x

@[simp]

theorem Tropical.add_eq_zero_iff {R : Type u} [LinearOrder R] {a : Tropical (WithTop R)} {b : Tropical (WithTop R)} : a + b = 0 ↔ a = 0 ∧ b = 0

instance Tropical.instAddCommMonoidTropical {R : Type u} [LinearOrder R] [OrderTop R] : AddCommMonoid (Tropical R)

Equations

• Tropical.instAddCommMonoidTropical = let __src := Tropical.instZeroTropical; let __src_1 := Tropical.instAddCommSemigroupTropical; AddCommMonoid.mk ⋯

instance Tropical.instMulTropical {R : Type u} [Add R] : Mul (Tropical R)

Tropical multiplication is the addition in the underlying R.

Equations

• Tropical.instMulTropical = { mul := fun (x y : Tropical R) => Tropical.trop (Tropical.untrop x + Tropical.untrop y) }

@[simp]

theorem Tropical.trop_add {R : Type u} [Add R] (x : R) (y : R) : Tropical.trop (x + y) = Tropical.trop x * Tropical.trop y

@[simp]

theorem Tropical.untrop_mul {R : Type u} [Add R] (x : Tropical R) (y : Tropical R) : Tropical.untrop (x * y) = Tropical.untrop x + Tropical.untrop y

theorem Tropical.trop_mul_def {R : Type u} [Add R] (x : Tropical R) (y : Tropical R) : x * y = Tropical.trop (Tropical.untrop x + Tropical.untrop y)

instance Tropical.instOneTropical {R : Type u} [Zero R] : One (Tropical R)

Equations

• Tropical.instOneTropical = { one := Tropical.trop 0 }

@[simp]

theorem Tropical.trop_zero {R : Type u} [Zero R] : Tropical.trop 0 = 1

@[simp]

theorem Tropical.untrop_one {R : Type u} [Zero R] : Tropical.untrop 1 = 0

instance Tropical.instAddMonoidWithOneTropical {R : Type u} [LinearOrder R] [OrderTop R] [Zero R] : AddMonoidWithOne (Tropical R)

Equations

• Tropical.instAddMonoidWithOneTropical = let __src := Tropical.instOneTropical; let __src_1 := Tropical.instAddCommMonoidTropical; AddMonoidWithOne.mk ⋯ ⋯

instance Tropical.instNontrivialTropicalWithTop {R : Type u} [Zero R] : Nontrivial (Tropical (WithTop R))

Equations

• ⋯ = ⋯

instance Tropical.instInvTropical {R : Type u} [Neg R] : Inv (Tropical R)

Equations

• Tropical.instInvTropical = { inv := fun (x : Tropical R) => Tropical.trop (-Tropical.untrop x) }

@[simp]

theorem Tropical.untrop_inv {R : Type u} [Neg R] (x : Tropical R) : Tropical.untrop x⁻¹ = -Tropical.untrop x

instance Tropical.instDivTropical {R : Type u} [Sub R] : Div (Tropical R)

Equations

• Tropical.instDivTropical = { div := fun (x y : Tropical R) => Tropical.trop (Tropical.untrop x - Tropical.untrop y) }

@[simp]

theorem Tropical.untrop_div {R : Type u} [Sub R] (x : Tropical R) (y : Tropical R) : Tropical.untrop (x / y) = Tropical.untrop x - Tropical.untrop y

instance Tropical.instSemigroupTropical {R : Type u} [AddSemigroup R] : Semigroup (Tropical R)

Equations

• Tropical.instSemigroupTropical = Semigroup.mk ⋯

instance Tropical.instCommSemigroupTropical {R : Type u} [AddCommSemigroup R] : CommSemigroup (Tropical R)

Equations

• Tropical.instCommSemigroupTropical = let __src := Tropical.instSemigroupTropical; CommSemigroup.mk ⋯

instance Tropical.instPowTropical {R : Type u} {α : Type u_1} [SMul α R] : Pow (Tropical R) α

Equations

• Tropical.instPowTropical = { pow := fun (x : Tropical R) (n : α) => Tropical.trop (n • Tropical.untrop x) }

@[simp]

theorem Tropical.untrop_pow {R : Type u} {α : Type u_1} [SMul α R] (x : Tropical R) (n : α) : Tropical.untrop (x ^ n) = n • Tropical.untrop x

@[simp]

theorem Tropical.trop_smul {R : Type u} {α : Type u_1} [SMul α R] (x : R) (n : α) : Tropical.trop (n • x) = Tropical.trop x ^ n

instance Tropical.instMulOneClassTropical {R : Type u} [AddZeroClass R] : MulOneClass (Tropical R)

Equations

• Tropical.instMulOneClassTropical = MulOneClass.mk ⋯ ⋯

instance Tropical.instMonoidTropical {R : Type u} [AddMonoid R] : Monoid (Tropical R)

Equations

• Tropical.instMonoidTropical = let __src := Tropical.instMulOneClassTropical; let __src_1 := Tropical.instSemigroupTropical; Monoid.mk ⋯ ⋯ (fun (n : ℕ) (x : Tropical R) => x ^ n) ⋯ ⋯

@[simp]

theorem Tropical.trop_nsmul {R : Type u} [AddMonoid R] (x : R) (n : ℕ) : Tropical.trop (n • x) = Tropical.trop x ^ n

instance Tropical.instCommMonoidTropical {R : Type u} [AddCommMonoid R] : CommMonoid (Tropical R)

Equations

• Tropical.instCommMonoidTropical = let __src := Tropical.instMonoidTropical; let __src_1 := Tropical.instCommSemigroupTropical; CommMonoid.mk ⋯

instance Tropical.instGroupTropical {R : Type u} [AddGroup R] : Group (Tropical R)

Equations

• Tropical.instGroupTropical = let __src := Tropical.instMonoidTropical; Group.mk ⋯

instance Tropical.instCommGroupTropical {R : Type u} [AddCommGroup R] : CommGroup (Tropical R)

Equations

• Tropical.instCommGroupTropical = let __src := Tropical.instGroupTropical; CommGroup.mk ⋯

@[simp]

theorem Tropical.untrop_zpow {R : Type u} [AddGroup R] (x : Tropical R) (n : ℤ) : Tropical.untrop (x ^ n) = n • Tropical.untrop x

@[simp]

theorem Tropical.trop_zsmul {R : Type u} [AddGroup R] (x : R) (n : ℤ) : Tropical.trop (n • x) = Tropical.trop x ^ n

instance Tropical.covariant_mul {R : Type u} [LE R] [Add R] [CovariantClass R R (fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x ≤ x_1] : CovariantClass (Tropical R) (Tropical R) (fun (x x_1 : Tropical R) => x * x_1) fun (x x_1 : Tropical R) => x ≤ x_1

Equations

• ⋯ = ⋯

instance Tropical.covariant_swap_mul {R : Type u} [LE R] [Add R] [CovariantClass R R (Function.swap fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x ≤ x_1] : CovariantClass (Tropical R) (Tropical R) (Function.swap fun (x x_1 : Tropical R) => x * x_1) fun (x x_1 : Tropical R) => x ≤ x_1

Equations

• ⋯ = ⋯

instance Tropical.covariant_add {R : Type u} [LinearOrder R] : CovariantClass (Tropical R) (Tropical R) (fun (x x_1 : Tropical R) => x + x_1) fun (x x_1 : Tropical R) => x ≤ x_1

Equations

• ⋯ = ⋯

instance Tropical.covariant_mul_lt {R : Type u} [LT R] [Add R] [CovariantClass R R (fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x < x_1] : CovariantClass (Tropical R) (Tropical R) (fun (x x_1 : Tropical R) => x * x_1) fun (x x_1 : Tropical R) => x < x_1

Equations

• ⋯ = ⋯

instance Tropical.covariant_swap_mul_lt {R : Type u} [Preorder R] [Add R] [CovariantClass R R (Function.swap fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x < x_1] : CovariantClass (Tropical R) (Tropical R) (Function.swap fun (x x_1 : Tropical R) => x * x_1) fun (x x_1 : Tropical R) => x < x_1

Equations

• ⋯ = ⋯

instance Tropical.instDistribTropical {R : Type u} [LinearOrder R] [Add R] [CovariantClass R R (fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x ≤ x_1] [CovariantClass R R (Function.swap fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x ≤ x_1] : Distrib (Tropical R)

Equations

• Tropical.instDistribTropical = Distrib.mk ⋯ ⋯

@[simp]

theorem Tropical.add_pow {R : Type u} [LinearOrder R] [AddMonoid R] [CovariantClass R R (fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x ≤ x_1] [CovariantClass R R (Function.swap fun (x x_1 : R) => x + x_1) fun (x x_1 : R) => x ≤ x_1] (x : Tropical R) (y : Tropical R) (n : ℕ) : (x + y) ^ n = x ^ n + y ^ n

instance Tropical.instCommSemiringTropical {R : Type u} [LinearOrderedAddCommMonoidWithTop R] : CommSemiring (Tropical R)

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem Tropical.succ_nsmul {R : Type u_1} [LinearOrder R] [OrderTop R] (x : Tropical R) (n : ℕ) : (n + 1) • x = x

theorem Tropical.mul_eq_zero_iff {R : Type u_1} [LinearOrderedAddCommMonoid R] {a : Tropical (WithTop R)} {b : Tropical (WithTop R)} : a * b = 0 ↔ a = 0 ∨ b = 0

instance Tropical.instNoZeroDivisorsTropicalWithTopInstMulTropicalAddToAddToAddCommMagmaToAddCommSemigroupToAddCommMonoidToOrderedAddCommMonoidInstZeroTropicalTop {R : Type u_1} [LinearOrderedAddCommMonoid R] : NoZeroDivisors (Tropical (WithTop R))

Equations

• ⋯ = ⋯