d85c30fde1
Without these annotations, Lean will timeout when trying to synthesize the type class instance `decidable_eq uint32`. The type class resolution problem will produce the unification problem: ``` decidable (@eq uint32 a b) =?= decidable (@eq usize ?x ?y) ``` which Lean tries to solve by assigning `?x := a`. During the assignment, the types of `?x` and `a` are unified with "full force". Thus, we get the constraint ``` usize_sz =?= uint32_sz ``` which will take forever to be solved when peforming the computation in unary arithmetic. Remark: this commit also makes sure that `type_context` will not unfold irreducible definitions when trying to unify/match the types. The new test `type_class_performance1.lean` exposes the problem fixed by this commit.
66 lines
2.4 KiB
Text
66 lines
2.4 KiB
Text
/-
|
|
Copyright (c) 2018 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura
|
|
-/
|
|
prelude
|
|
import init.data.fin.basic
|
|
|
|
open nat
|
|
def uint16_sz : nat := 65536
|
|
def uint16 := fin uint16_sz
|
|
|
|
def uint32_sz : nat := 4294967296
|
|
def uint32 := fin uint32_sz
|
|
|
|
def uint64_sz : nat := 18446744073709551616
|
|
def uint64 := fin uint64_sz
|
|
|
|
instance : decidable_eq uint16 := infer_instance_as (decidable_eq (fin uint16_sz))
|
|
instance : decidable_eq uint32 := infer_instance_as (decidable_eq (fin uint32_sz))
|
|
instance : decidable_eq uint64 := infer_instance_as (decidable_eq (fin uint64_sz))
|
|
|
|
instance : has_zero uint16 := ⟨fin.of_nat 0⟩
|
|
instance : has_one uint16 := ⟨fin.of_nat 1⟩
|
|
instance : has_add uint16 := ⟨fin.add⟩
|
|
instance : has_sub uint16 := ⟨fin.sub⟩
|
|
instance : has_mul uint16 := ⟨fin.mul⟩
|
|
instance : has_mod uint16 := ⟨fin.mod⟩
|
|
instance : has_modn uint16 := ⟨fin.modn⟩
|
|
instance : has_div uint16 := ⟨fin.div⟩
|
|
instance : has_lt uint16 := ⟨fin.lt⟩
|
|
instance : has_le uint16 := ⟨fin.le⟩
|
|
instance : inhabited uint16 := ⟨0⟩
|
|
|
|
instance : has_zero uint32 := ⟨fin.of_nat 0⟩
|
|
instance : has_one uint32 := ⟨fin.of_nat 1⟩
|
|
instance : has_add uint32 := ⟨fin.add⟩
|
|
instance : has_sub uint32 := ⟨fin.sub⟩
|
|
instance : has_mul uint32 := ⟨fin.mul⟩
|
|
instance : has_mod uint32 := ⟨fin.mod⟩
|
|
instance : has_modn uint32 := ⟨fin.modn⟩
|
|
instance : has_div uint32 := ⟨fin.div⟩
|
|
instance : has_lt uint32 := ⟨fin.lt⟩
|
|
instance : has_le uint32 := ⟨fin.le⟩
|
|
instance : inhabited uint32 := ⟨0⟩
|
|
|
|
instance : has_zero uint64 := ⟨fin.of_nat 0⟩
|
|
instance : has_one uint64 := ⟨fin.of_nat 1⟩
|
|
instance : has_add uint64 := ⟨fin.add⟩
|
|
instance : has_sub uint64 := ⟨fin.sub⟩
|
|
instance : has_mul uint64 := ⟨fin.mul⟩
|
|
instance : has_mod uint64 := ⟨fin.mod⟩
|
|
instance : has_modn uint64 := ⟨fin.modn⟩
|
|
instance : has_div uint64 := ⟨fin.div⟩
|
|
instance : has_lt uint64 := ⟨fin.lt⟩
|
|
instance : has_le uint64 := ⟨fin.le⟩
|
|
instance : inhabited uint64 := ⟨0⟩
|
|
|
|
def uint16.of_nat (n : nat) : uint16 := fin.of_nat n
|
|
def uint16.to_nat (u : uint16) : nat := u.val
|
|
def uint32.of_nat (n : nat) : uint32 := fin.of_nat n
|
|
def uint32.to_nat (u : uint32) : nat := u.val
|
|
def uint64.of_nat (n : nat) : uint64 := fin.of_nat n
|
|
def uint64.to_nat (u : uint64) : nat := u.val
|
|
|
|
attribute [irreducible] uint16 uint32 uint64
|