Theorem: LO.FirstOrder.Arith.Model.Nuon.NuonAux.two_mul (Arithmetization/OmegaOne/Nuon.lean)

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k n : M
hk : k ≤ ‖A‖
⊢ NuonAux A k n → NuonAux (2 * A) (k + 1) n
Tactic:
revert n hk
State after:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
⊢ ∀ {n : M}, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
⊢ ∀ {n : M}, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
Tactic:
suffices ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n by
  intro n hk H
  exact this n H.le hk H
State after:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
⊢ ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
⊢ ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
Tactic:
induction k using induction_iSigmaZero
State after:
case hP
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ 𝚺₀-Predicate fun {k} => ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n

case zero
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ ∀ n ≤ 0, 0 ≤ ‖A‖ → NuonAux A 0 n → NuonAux (2 * A) (0 + 1) n

case succ
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A x✝ : M
a✝ : ∀ n ≤ x✝, x✝ ≤ ‖A‖ → NuonAux A x✝ n → NuonAux (2 * A) (x✝ + 1) n
⊢ ∀ n ≤ x✝ + 1, x✝ + 1 ≤ ‖A‖ → NuonAux A (x✝ + 1) n → NuonAux (2 * A) (x✝ + 1 + 1) n

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ ∀ n ≤ 0, 0 ≤ ‖A‖ → NuonAux A 0 n → NuonAux (2 * A) (0 + 1) n
Tactic:
case zero =>
  simp; simpa using (NuonAux.initial (2 * A)).succ (by simp)
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
⊢ ∀ n ≤ k + 1, k + 1 ≤ ‖A‖ → NuonAux A (k + 1) n → NuonAux (2 * A) (k + 1 + 1) n
Tactic:
case succ k IH =>
  intro n hn hk H
  rcases H.succ_elim (le_trans (by simp) hk) with ⟨n', rfl, H'⟩
  have IH : NuonAux (2 * A) (k + 1) n' := IH n' H'.le (le_trans (by simp) hk) H'
  simpa using IH.succ (le_trans hk (length_monotone $ by simp))
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
this : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
⊢ ∀ {n : M}, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
Tactic:
intro n hk H
State after:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
this : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
n : M
hk : k ≤ ‖A‖
H : NuonAux A k n
⊢ NuonAux (2 * A) (k + 1) n

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
this : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
n : M
hk : k ≤ ‖A‖
H : NuonAux A k n
⊢ NuonAux (2 * A) (k + 1) n
Tactic:
exact this n H.le hk H
State after:
no goals

State before:
case hP
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ 𝚺₀-Predicate fun {k} => ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
Tactic:
definability
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ ∀ n ≤ 0, 0 ≤ ‖A‖ → NuonAux A 0 n → NuonAux (2 * A) (0 + 1) n
Tactic:
simp
State after:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ NuonAux (2 * A) 1 0

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ NuonAux (2 * A) 1 0
Tactic:
simpa using (NuonAux.initial (2 * A)).succ (by simp)
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A : M
⊢ 0 ≤ ‖2 * A‖
Tactic:
simp
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
⊢ ∀ n ≤ k + 1, k + 1 ≤ ‖A‖ → NuonAux A (k + 1) n → NuonAux (2 * A) (k + 1 + 1) n
Tactic:
intro n hn hk H
State after:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
n : M
hn : n ≤ k + 1
hk : k + 1 ≤ ‖A‖
H : NuonAux A (k + 1) n
⊢ NuonAux (2 * A) (k + 1 + 1) n

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
n : M
hn : n ≤ k + 1
hk : k + 1 ≤ ‖A‖
H : NuonAux A (k + 1) n
⊢ NuonAux (2 * A) (k + 1 + 1) n
Tactic:
rcases H.succ_elim (le_trans (by simp) hk) with ⟨n', rfl, H'⟩
State after:
case intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
⊢ NuonAux (2 * A) (k + 1 + 1) (n' + fbit A k)

State before:
case intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
⊢ NuonAux (2 * A) (k + 1 + 1) (n' + fbit A k)
Tactic:
have IH : NuonAux (2 * A) (k + 1) n' := IH n' H'.le (le_trans (by simp) hk) H'
State after:
case intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH✝ : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
IH : NuonAux (2 * A) (k + 1) n'
⊢ NuonAux (2 * A) (k + 1 + 1) (n' + fbit A k)

State before:
case intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH✝ : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
IH : NuonAux (2 * A) (k + 1) n'
⊢ NuonAux (2 * A) (k + 1 + 1) (n' + fbit A k)
Tactic:
simpa using IH.succ (le_trans hk (length_monotone $ by simp))
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
n : M
hn : n ≤ k + 1
hk : k + 1 ≤ ‖A‖
H : NuonAux A (k + 1) n
⊢ k ≤ k + 1
Tactic:
simp
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
⊢ k ≤ k + 1
Tactic:
simp
State after:
no goals

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH✝ : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A) (k + 1) n
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
IH : NuonAux (2 * A) (k + 1) n'
⊢ A ≤ 2 * A
Tactic:
simp
State after:
no goals