31 lines
745 B
Text
31 lines
745 B
Text
/-
|
|
Copyright (c) 2020 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.UInt.Basic
|
|
namespace Lean.Meta
|
|
|
|
namespace TransparencyMode
|
|
|
|
def hash : TransparencyMode → UInt64
|
|
| all => 7
|
|
| default => 11
|
|
| reducible => 13
|
|
| instances => 17
|
|
|
|
instance : Hashable TransparencyMode := ⟨hash⟩
|
|
|
|
def lt : TransparencyMode → TransparencyMode → Bool
|
|
| reducible, default => true
|
|
| reducible, all => true
|
|
| reducible, instances => true
|
|
| instances, default => true
|
|
| instances, all => true
|
|
| default, all => true
|
|
| _, _ => false
|
|
|
|
end TransparencyMode
|
|
|
|
end Lean.Meta
|