39 lines
941 B
Text
39 lines
941 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
|
|
-/
|
|
namespace Lean
|
|
namespace Meta
|
|
|
|
inductive TransparencyMode
|
|
| all | default | reducible
|
|
|
|
namespace TransparencyMode
|
|
instance : Inhabited TransparencyMode := ⟨TransparencyMode.default⟩
|
|
|
|
def beq : TransparencyMode → TransparencyMode → Bool
|
|
| all, all => true
|
|
| default, default => true
|
|
| reducible, reducible => true
|
|
| _, _ => false
|
|
|
|
instance : HasBeq TransparencyMode := ⟨beq⟩
|
|
|
|
def hash : TransparencyMode → USize
|
|
| all => 7
|
|
| default => 11
|
|
| reducible => 13
|
|
|
|
instance : Hashable TransparencyMode := ⟨hash⟩
|
|
|
|
def lt : TransparencyMode → TransparencyMode → Bool
|
|
| reducible, default => true
|
|
| reducible, all => true
|
|
| default, all => true
|
|
| _, _ => false
|
|
|
|
end TransparencyMode
|
|
|
|
end Meta
|
|
end Lean
|