lean4-htt/tests/lean/phashmap_inst_coherence.lean

11 lines
360 B
Text

import Init.Data.PersistentHashMap
def m : PersistentHashMap Nat Nat :=
let m : PersistentHashMap Nat Nat := {};
m.insert 1 1
def natDiffHash : Hashable Nat :=
⟨fun n => USize.ofNat $ n+10⟩
-- The following example should fail since the `Hashable` instance used to create `m` is not `natDiffHash`
#eval @PersistentHashMap.find Nat Nat _ natDiffHash m 1