diff options
Diffstat (limited to 'Common')
| -rw-r--r-- | Common/List.lean | 2 | ||||
| -rw-r--r-- | Common/Parsing.lean | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Common/List.lean b/Common/List.lean index f6c0de5..9db3b86 100644 --- a/Common/List.lean +++ b/Common/List.lean @@ -23,7 +23,7 @@ def quicksortBy {α : Type} (pred : α → α → Bool): List α → List α termination_by l => l.length decreasing_by all_goals - simp +arith only [unattach_filter, unattach_attach, length_cons, gt_iff_lt, listFilterSmallerOrEqualList] + simp +arith only [unattach_filter, unattach_attach, length_cons, listFilterSmallerOrEqualList] def quicksort {α : Type} [Ord α] : List α → List α := quicksortBy λ a b ↦ Ord.compare a b == Ordering.lt diff --git a/Common/Parsing.lean b/Common/Parsing.lean index 7834e00..ff54ef0 100644 --- a/Common/Parsing.lean +++ b/Common/Parsing.lean @@ -101,7 +101,7 @@ instance [ToString Element] : ToString (MaybeEmptyRectangularGrid Element) where r := r.push '\n' for h₁ : x in [0:e.width] do have : x + e.width *y < e.elements.size := by - simp[Membership.mem, inferInstance, Std.instMembershipNatRange] at h₁ h₂ + simp[Membership.mem] at h₁ h₂ rw[e.size_valid] exact Nat.two_d_coordinate_to_index_lt_size h₁.left h₂.left r := r ++ (ToString.toString e.elements[x+e.width*y]) |