aboutsummaryrefslogtreecommitdiff
path: root/LeanAStarTest/Tests.lean
diff options
context:
space:
mode:
authorAndreas Grois <andi@grois.info>2025-11-19 22:49:06 +0100
committerAndreas Grois <andi@grois.info>2025-11-19 22:49:06 +0100
commit79e561bb05230c7e97f7e75723bf13a03e6bb9ab (patch)
treea6ac3945f53a44d34553afbc1f736509b9dd74ba /LeanAStarTest/Tests.lean
parentd630448964447d0b0953893152873db85db4c9e0 (diff)
Fix testsHEADmain
Diffstat (limited to 'LeanAStarTest/Tests.lean')
-rw-r--r--LeanAStarTest/Tests.lean4
1 files changed, 2 insertions, 2 deletions
diff --git a/LeanAStarTest/Tests.lean b/LeanAStarTest/Tests.lean
index 1e00803..ca3a825 100644
--- a/LeanAStarTest/Tests.lean
+++ b/LeanAStarTest/Tests.lean
@@ -81,7 +81,7 @@ instance : GetElem (TwoDArray α) (TwoDArray.Coordinate a) α (λc _ ↦ a = c)
a.data[a.valid▸idx]
instance : Functor TwoDArray where
- map := λf b ↦ {b with data := b.data.map f, valid := (Array.size_map f b.data)▸b.valid}
+ map := λf b ↦ {b with data := b.data.map f, valid := (Array.size_map (f := f) (xs := b.data))▸b.valid}
private theorem TwoDArray.Coordinate.map_size (arr : TwoDArray α) (f : α → β) : (Functor.map f arr).width = arr.width ∧ (Functor.map f arr).height = arr.height := ⟨rfl, rfl⟩
@@ -96,7 +96,7 @@ private def parseTiles (l : String) : Option (TwoDArray Tile) :=
if h : lines.isEmpty then
none
else do
- let width := String.length $ lines.head (List.isEmpty_eq_false.mp ((Bool.not_eq_true _).mp h))
+ let width := String.length $ lines.head (List.isEmpty_eq_false_iff.mp ((Bool.not_eq_true _).mp h))
let height := lines.length
-- just convert it all and check validity later. It isn't user input anyhow.
let mut result : Array Tile := Array.empty