Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 2 additions & 12 deletions EasyLean/Basic.lean
Original file line number Diff line number Diff line change
@@ -1,12 +1,2 @@
import Mathlib.Data.Real.Basic
import Mathlib.Tactic.Linarith

theorem mathd_algebra_513
(a b : ℝ)
(h₀ : 3 * a + 2 * b = 5)
(h₁ : a + b = 2) :
a = 1 ∧ b = 1 := by
sorry

theorem eq_four : ∀ a b c d : Nat, a = b → a = d → a = c → c = b := by
sorry
import EasyLean.Theorems.MathdAlgebra513
import EasyLean.Theorems.EqFour
5 changes: 5 additions & 0 deletions EasyLean/Theorems/EqFour.lean
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
import Mathlib

theorem eq_four (a b c d : Nat) : a = b → a = d → a = c → c = b := by
intro h0 h1 h2
simpa using Eq.trans h2.symm h0
9 changes: 9 additions & 0 deletions EasyLean/Theorems/MathdAlgebra513.lean
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
import Mathlib

theorem mathd_algebra_513
(a b : Real) (h0 : 3 * a + 2 * b = 5) (h1 : a + b = 2) : a = 1 ∧ b = 1 := by
have ha : a = 1 := by
linear_combination h0 - (2 : ℚ) * h1
have hb : b = 1 := by
linarith [h1, ha]
exact ⟨ha, hb⟩