Skip to content

Commit

Permalink
[Usa1990P2] simpler
Browse files Browse the repository at this point in the history
  • Loading branch information
dwrensha committed Dec 13, 2023
1 parent 39ce92f commit 50f4400
Showing 1 changed file with 2 additions and 7 deletions.
9 changes: 2 additions & 7 deletions Compfiles/Usa1990P2.lean
Original file line number Diff line number Diff line change
Expand Up @@ -34,21 +34,16 @@ determine solution_set (n : ℕ) : Set ℝ := { 4 }
problem usa1990_p2 (n : ℕ) (x : ℝ) : x ∈ solution_set n ↔ f n x = 2 * x := by
-- based on solution from
-- https://artofproblemsolving.com/wiki/index.php/1990_USAMO_Problems/Problem_2
have hfnn : ∀ n x, 0 ≤ f n x := fun n x ↦ by
cases' n
· norm_num [f]
· unfold f; positivity

have hfnp : ∀ n x, 0 < f n x := fun n x ↦ by
induction' n with n ih
· norm_num [f]
· unfold f
positivity

have hx : ∀ n x, f n x = 2 * x → 0 ≤ x := fun n x ↦ by
specialize hfnn n x
specialize hfnp n x
intro h1
rw [h1] at hfnn
rw [h1] at hfnp
linarith

suffices H : ∀ x, 0 ≤ x → ((4 < x → f n x < 2 * x) ∧ (x = 4 → f n x = 2 * x) ∧
Expand Down

0 comments on commit 50f4400

Please sign in to comment.