Theorem: ClassGroup.norm_lt
File: Mathlib/NumberTheory/ClassNumber/Finite.lean

tactic: obtain ⟨i⟩ := bS.index_nonempty
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: have him : (Finset.univ.image fun k => abv (bS.repr a k)).Nonempty :=
  ⟨_, Finset.mem_image.mpr ⟨i, Finset.mem_univ _, rfl⟩⟩
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: set y' : ℤ := Finset.max' _ him with y'_def
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: have hy' : ∀ k, abv (bS.repr a k) ≤ y' := by
  intro k
  exact @Finset.le_max' ℤ _ _ _ (Finset.mem_image.mpr ⟨k, Finset.mem_univ _, rfl⟩)
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: have : (y' : T) < y := by
  rw [y'_def, ←
    Finset.max'_image (show Monotone (_ : ℤ → T) from fun x y h => Int.cast_le.mpr h)]
  apply (Finset.max'_lt_iff _ (him.image _)).mpr
  simp only [Finset.mem_image, exists_prop]
  rintro _ ⟨x, ⟨k, -, rfl⟩, rfl⟩
  exact hy k
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: have y'_nonneg : 0 ≤ y' := le_trans (abv.nonneg _) (hy' i)
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: apply (Int.cast_le.mpr (norm_le abv bS a hy')).trans_lt
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑(abv ((Algebra.norm R) a)) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑(normBound abv bS * y' ^ Fintype.card ι) < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: simp only [Int.cast_mul, Int.cast_pow]
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑(normBound abv bS * y' ^ Fintype.card ι) < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑(normBound abv bS) * ↑y' ^ Fintype.card ι < ↑(normBound abv bS) * y ^ Fintype.card ι

tactic: apply mul_lt_mul' le_rfl
state_before: case intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑(normBound abv bS) * ↑y' ^ Fintype.card ι < ↑(normBound abv bS) * y ^ Fintype.card ι
state_after: case intro.hbd
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑y' ^ Fintype.card ι < y ^ Fintype.card ι

case intro.hb
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ 0 ≤ ↑y' ^ Fintype.card ι

case intro.hc
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ 0 < ↑(normBound abv bS)

tactic: intro k
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
⊢ ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
state_after: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
k : ι
⊢ abv ((bS.repr a) k) ≤ y'

tactic: exact @Finset.le_max' ℤ _ _ _ (Finset.mem_image.mpr ⟨k, Finset.mem_univ _, rfl⟩)
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
k : ι
⊢ abv ((bS.repr a) k) ≤ y'
state_after: no goals

tactic: rw [y'_def, ←
  Finset.max'_image (show Monotone (_ : ℤ → T) from fun x y h => Int.cast_le.mpr h)]
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ↑y' < y
state_after: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ (Finset.image (fun x => ↑x) (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ)).max' ?h < y

case h
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ (Finset.image (fun x => ↑x) (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ)).Nonempty

tactic: apply (Finset.max'_lt_iff _ (him.image _)).mpr
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ (Finset.image (fun x => ↑x) (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ)).max' ?h < y

case h
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ (Finset.image (fun x => ↑x) (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ)).Nonempty
state_after: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ∀ y_1 ∈ Finset.image (fun x => ↑x) (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ), y_1 < y

tactic: simp only [Finset.mem_image, exists_prop]
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ∀ y_1 ∈ Finset.image (fun x => ↑x) (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ), y_1 < y
state_after: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ∀ (y_1 : T), (∃ a_1, (∃ a_2 ∈ Finset.univ, abv ((bS.repr a) a_2) = a_1) ∧ ↑a_1 = y_1) → y_1 < y

tactic: rintro _ ⟨x, ⟨k, -, rfl⟩, rfl⟩
state_before: R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
⊢ ∀ (y_1 : T), (∃ a_1, (∃ a_2 ∈ Finset.univ, abv ((bS.repr a) a_2) = a_1) ∧ ↑a_1 = y_1) → y_1 < y
state_after: case intro.intro.intro.intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
k : ι
⊢ ↑(abv ((bS.repr a) k)) < y

tactic: exact hy k
state_before: case intro.intro.intro.intro
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
k : ι
⊢ ↑(abv ((bS.repr a) k)) < y
state_after: no goals

tactic: exact pow_lt_pow_left this (Int.cast_nonneg.mpr y'_nonneg) (@Fintype.card_ne_zero _ _ ⟨i⟩)
state_before: case intro.hbd
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ ↑y' ^ Fintype.card ι < y ^ Fintype.card ι
state_after: no goals

tactic: exact pow_nonneg (Int.cast_nonneg.mpr y'_nonneg) _
state_before: case intro.hb
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ 0 ≤ ↑y' ^ Fintype.card ι
state_after: no goals

tactic: exact Int.cast_pos.mpr (normBound_pos abv bS)
state_before: case intro.hc
R : Type u_1
S : Type u_2
K : Type u_3
L : Type u_4
inst✝¹⁵ : EuclideanDomain R
inst✝¹⁴ : CommRing S
inst✝¹³ : IsDomain S
inst✝¹² : Field K
inst✝¹¹ : Field L
inst✝¹⁰ : Algebra R K
inst✝⁹ : IsFractionRing R K
inst✝⁸ : Algebra K L
inst✝⁷ : FiniteDimensional K L
inst✝⁶ : IsSeparable K L
algRL : Algebra R L
inst✝⁵ : IsScalarTower R K L
inst✝⁴ : Algebra R S
inst✝³ : Algebra S L
ist : IsScalarTower R S L
iic : IsIntegralClosure S R L
abv : AbsoluteValue R ℤ
ι : Type u_5
inst✝² : DecidableEq ι
inst✝¹ : Fintype ι
bS : Basis ι R S
T : Type u_6
inst✝ : LinearOrderedRing T
a : S
y : T
hy : ∀ (k : ι), ↑(abv ((bS.repr a) k)) < y
i : ι
him : (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).Nonempty
y' : ℤ := (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
y'_def : y' = (Finset.image (fun k => abv ((bS.repr a) k)) Finset.univ).max' him
hy' : ∀ (k : ι), abv ((bS.repr a) k) ≤ y'
this : ↑y' < y
y'_nonneg : 0 ≤ y'
⊢ 0 < ↑(normBound abv bS)
state_after: no goals