Skip to content

Commit 3785fa8

Browse files
committed
Resolve Markus' comments
1 parent e8d3749 commit 3785fa8

File tree

3 files changed

+3
-4
lines changed

3 files changed

+3
-4
lines changed

src/Std/Data/DHashMap/DecidableEquiv.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,6 +18,6 @@ open Std.DHashMap.Internal
1818

1919
namespace Std.DHashMap
2020

21-
instance {α : Type u} {β : α → Type v} [DecidableEq α] [Hashable α] [∀ k, DecidableEq (β k)] (m₁ m₂ : DHashMap α β) : Decidable (m₁ ~m m₂) := @decidable_of_iff _ _ ⟨fun h => ⟨h⟩, fun h => h.1⟩ <| Raw₀.decidable_equiv ⟨m₁.1, m₁.2.size_buckets_pos⟩ ⟨m₂.1, m₂.2.size_buckets_pos⟩ m₁.2 m₂.2
21+
instance {α : Type u} {β : α → Type v} [DecidableEq α] [Hashable α] [∀ k, DecidableEq (β k)] (m₁ m₂ : DHashMap α β) : Decidable (m₁ ~m m₂) := @decidable_of_iff _ _ ⟨fun h => ⟨h⟩, fun h => h.1⟩ <| Raw₀.decidableEquiv ⟨m₁.1, m₁.2.size_buckets_pos⟩ ⟨m₂.1, m₂.2.size_buckets_pos⟩ m₁.2 m₂.2
2222

2323
end Std.DHashMap

src/Std/Data/DHashMap/Internal/RawLemmas.lean

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5140,9 +5140,8 @@ end Raw₀
51405140
namespace Raw₀
51415141

51425142
/-- Internal implementation detail -/
5143-
def decidable_equiv [DecidableEq α] [Hashable α] [∀ k, DecidableEq (β k)]
5143+
def decidableEquiv [DecidableEq α] [Hashable α] [∀ k, DecidableEq (β k)]
51445144
(m₁ m₂ : Raw₀ α β) (h₁ : m₁.val.WF) (h₂ : m₂.val.WF) : Decidable (m₁.1.Equiv m₂.1) := by
5145-
have decBEq : Decidable (Raw₀.beq m₁ m₂ = true) := inferInstance
51465145
apply decidable_of_iff (Raw₀.beq m₁ m₂ = true)
51475146
constructor
51485147
· apply Raw₀.equiv_of_beq h₁ h₂

src/Std/Data/DHashMap/RawDecidableEquiv.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,6 @@ open Std.DHashMap.Internal
1919
namespace Std.DHashMap.Raw
2020

2121
instance {α : Type u} {β : α → Type v} [DecidableEq α] [Hashable α] [∀ k, DecidableEq (β k)] {m₁ m₂ : Raw α β} (h₁ : m₁.WF) (h₂ : m₂.WF) : Decidable (m₁.Equiv m₂) :=
22-
Raw₀.decidable_equiv ⟨m₁, h₁.size_buckets_pos⟩ ⟨m₂, h₂.size_buckets_pos⟩ h₁ h₂
22+
Raw₀.decidableEquiv ⟨m₁, h₁.size_buckets_pos⟩ ⟨m₂, h₂.size_buckets_pos⟩ h₁ h₂
2323

2424
end Std.DHashMap.Raw

0 commit comments

Comments
 (0)