Skip to content

Commit

Permalink
[Imo2010P1] restore term-mode part of proof
Browse files Browse the repository at this point in the history
  • Loading branch information
dwrensha committed Nov 22, 2023
1 parent fb19ab9 commit 55aa83a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Compfiles/Imo2010P1.lean
Original file line number Diff line number Diff line change
Expand Up @@ -47,9 +47,9 @@ problem imo2010_p1 (f : ℝ → ℝ) :
suffices ⌊f 2⁻¹⌋ = 0
from let h1 := (h 2 2⁻¹).trans (mul_eq_zero_of_right _ $ Int.cast_eq_zero.mpr this)
suffices (⌊(2 : ℝ)⌋ : ℝ) * 2⁻¹ = 1 from this ▸ h1
(mul_inv_eq_one₀ two_ne_zero).mpr $ (by rw [←Int.cast_two, Int.floor_intCast])
(mul_inv_eq_one₀ two_ne_zero).mpr $
(Int.cast_two (R := ℝ) ▸ Int.floor_intCast (α := ℝ) _ ▸ rfl)
-- Now prove that `⌊f(1/2)⌋ = 0`
(mul_eq_zero.mp $ (h 2⁻¹ 2⁻¹).symm.trans $ (congr_arg f $ mul_eq_zero_of_left
(by norm_num) _).trans h0).elim
(λ h1 ↦ h1.symm ▸ Int.floor_zero) Int.cast_eq_zero.mp)⟩

0 comments on commit 55aa83a

Please sign in to comment.