Documentation

Lean.Data.KVMap

inductive Lean.DataValue :

Type

ofString: String → Lean.DataValue
ofBool: Bool → Lean.DataValue
ofName: Lean.Name → Lean.DataValue
ofNat: Nat → Lean.DataValue
ofInt: Int → Lean.DataValue
ofSyntax: Lean.Syntax → Lean.DataValue

instance Lean.instInhabitedDataValue :

Inhabited Lean.DataValue

Equations

Lean.instInhabitedDataValue = { default := Lean.DataValue.ofString default }

instance Lean.instBEqDataValue :

BEq Lean.DataValue

Equations

Lean.instBEqDataValue = { beq := [anonymous] }

instance Lean.instReprDataValue :

Repr Lean.DataValue

Equations

Lean.instReprDataValue = { reprPrec := [anonymous] }

def Lean.DataValue.beqExp (a : Lean.DataValue) (b : Lean.DataValue) :

Equations

Lean.DataValue.beqExp a b = (a == b)

def Lean.mkBoolDataValueEx (b : Bool) :

Equations

Lean.mkBoolDataValueEx b = Lean.DataValue.ofBool b

def Lean.DataValue.getBoolEx :

Lean.DataValue → Bool

Equations

Lean.DataValue.getBoolEx x = match x with | Lean.DataValue.ofBool b => b | x => false

def Lean.DataValue.sameCtor :

Lean.DataValue → Lean.DataValue → Bool

Equations

Lean.DataValue.sameCtor x x = match x, x with | Lean.DataValue.ofString x, Lean.DataValue.ofString x_1 => true | Lean.DataValue.ofBool x, Lean.DataValue.ofBool x_1 => true | Lean.DataValue.ofName x, Lean.DataValue.ofName x_1 => true | Lean.DataValue.ofNat x, Lean.DataValue.ofNat x_1 => true | Lean.DataValue.ofInt x, Lean.DataValue.ofInt x_1 => true | Lean.DataValue.ofSyntax x, Lean.DataValue.ofSyntax x_1 => true | x, x_1 => false

def Lean.DataValue.str :

Lean.DataValue → String

Equations

Lean.DataValue.str x = match x with | Lean.DataValue.ofString v => v | Lean.DataValue.ofBool v => toString v | Lean.DataValue.ofName v => toString v | Lean.DataValue.ofNat v => toString v | Lean.DataValue.ofInt v => toString v | Lean.DataValue.ofSyntax v => toString v

instance Lean.instToStringDataValue :

ToString Lean.DataValue

Equations

Lean.instToStringDataValue = { toString := Lean.DataValue.str }

instance Lean.instCoeStringDataValue :

Coe String Lean.DataValue

Equations

Lean.instCoeStringDataValue = { coe := Lean.DataValue.ofString }

instance Lean.instCoeBoolDataValue :

Coe Bool Lean.DataValue

Equations

Lean.instCoeBoolDataValue = { coe := Lean.DataValue.ofBool }

instance Lean.instCoeNameDataValue :

Coe Lean.Name Lean.DataValue

Equations

Lean.instCoeNameDataValue = { coe := Lean.DataValue.ofName }

instance Lean.instCoeNatDataValue :

Coe Nat Lean.DataValue

Equations

Lean.instCoeNatDataValue = { coe := Lean.DataValue.ofNat }

instance Lean.instCoeIntDataValue :

Coe Int Lean.DataValue

Equations

Lean.instCoeIntDataValue = { coe := Lean.DataValue.ofInt }

instance Lean.instCoeSyntaxDataValue :

Coe Lean.Syntax Lean.DataValue

Equations

Lean.instCoeSyntaxDataValue = { coe := Lean.DataValue.ofSyntax }

structure Lean.KVMap :

Type

entries : List (Lean.Name × Lean.DataValue)

instance Lean.instReprKVMap :

Repr Lean.KVMap

Equations

Lean.instReprKVMap = { reprPrec := [anonymous] }

instance Lean.instInhabitedKVMap :

Inhabited Lean.KVMap

Equations

Lean.instInhabitedKVMap = { default := { entries := default } }

instance Lean.KVMap.instToStringKVMap :

ToString Lean.KVMap

Equations

Lean.KVMap.instToStringKVMap = { toString := fun m => toString m.entries }

def Lean.KVMap.empty :

Equations

Lean.KVMap.empty = { entries := [] }

def Lean.KVMap.isEmpty :

Lean.KVMap → Bool

Equations

Lean.KVMap.isEmpty x = match x with | { entries := m } => List.isEmpty m

def Lean.KVMap.size (m : Lean.KVMap) :

Equations

Lean.KVMap.size m = List.length m.entries

def Lean.KVMap.findCore :

List (Lean.Name × Lean.DataValue) → Lean.Name → Option Lean.DataValue

Equations

Lean.KVMap.findCore [] x = none
Lean.KVMap.findCore ((k, v) :: m) x = if (k == x) = true then some v else Lean.KVMap.findCore m x

def Lean.KVMap.find :

Lean.KVMap → Lean.Name → Option Lean.DataValue

Equations

Lean.KVMap.find x x = match x, x with | { entries := m }, k => Lean.KVMap.findCore m k

def Lean.KVMap.findD (m : Lean.KVMap) (k : Lean.Name) (d₀ : Lean.DataValue) :

Equations

Lean.KVMap.findD m k d₀ = Option.getD (Lean.KVMap.find m k) d₀

def Lean.KVMap.insertCore :

List (Lean.Name × Lean.DataValue) → Lean.Name → Lean.DataValue → List (Lean.Name × Lean.DataValue)

Equations

Lean.KVMap.insertCore [] x x = [(x, x)]
Lean.KVMap.insertCore ((k, v) :: m) x x = if (k == x) = true then (k, x) :: m else (k, v) :: Lean.KVMap.insertCore m x x

def Lean.KVMap.insert :

Lean.KVMap → Lean.Name → Lean.DataValue → Lean.KVMap

Equations

Lean.KVMap.insert x x x = match x, x, x with | { entries := m }, k, v => { entries := Lean.KVMap.insertCore m k v }

def Lean.KVMap.contains (m : Lean.KVMap) (n : Lean.Name) :

Equations

Lean.KVMap.contains m n = Option.isSome (Lean.KVMap.find m n)

def Lean.KVMap.getString (m : Lean.KVMap) (k : Lean.Name) (defVal : optParam String "") :

Equations

Lean.KVMap.getString m k defVal = match Lean.KVMap.find m k with | some (Lean.DataValue.ofString v) => v | x => defVal

def Lean.KVMap.getNat (m : Lean.KVMap) (k : Lean.Name) (defVal : optParam Nat 0) :

Equations

Lean.KVMap.getNat m k defVal = match Lean.KVMap.find m k with | some (Lean.DataValue.ofNat v) => v | x => defVal

def Lean.KVMap.getInt (m : Lean.KVMap) (k : Lean.Name) (defVal : optParam Int 0) :

Equations

Lean.KVMap.getInt m k defVal = match Lean.KVMap.find m k with | some (Lean.DataValue.ofInt v) => v | x => defVal

def Lean.KVMap.getBool (m : Lean.KVMap) (k : Lean.Name) (defVal : optParam Bool false) :

Equations

Lean.KVMap.getBool m k defVal = match Lean.KVMap.find m k with | some (Lean.DataValue.ofBool v) => v | x => defVal

def Lean.KVMap.getName (m : Lean.KVMap) (k : Lean.Name) (defVal : optParam Lean.Name Lean.Name.anonymous) :

Equations

Lean.KVMap.getName m k defVal = match Lean.KVMap.find m k with | some (Lean.DataValue.ofName v) => v | x => defVal

def Lean.KVMap.getSyntax (m : Lean.KVMap) (k : Lean.Name) (defVal : optParam Lean.Syntax Lean.Syntax.missing) :

Equations

Lean.KVMap.getSyntax m k defVal = match Lean.KVMap.find m k with | some (Lean.DataValue.ofSyntax v) => v | x => defVal

def Lean.KVMap.setString (m : Lean.KVMap) (k : Lean.Name) (v : String) :

Equations

Lean.KVMap.setString m k v = Lean.KVMap.insert m k (Lean.DataValue.ofString v)

def Lean.KVMap.setNat (m : Lean.KVMap) (k : Lean.Name) (v : Nat) :

Equations

Lean.KVMap.setNat m k v = Lean.KVMap.insert m k (Lean.DataValue.ofNat v)

def Lean.KVMap.setInt (m : Lean.KVMap) (k : Lean.Name) (v : Int) :

Equations

Lean.KVMap.setInt m k v = Lean.KVMap.insert m k (Lean.DataValue.ofInt v)

def Lean.KVMap.setBool (m : Lean.KVMap) (k : Lean.Name) (v : Bool) :

Equations

Lean.KVMap.setBool m k v = Lean.KVMap.insert m k (Lean.DataValue.ofBool v)

def Lean.KVMap.setName (m : Lean.KVMap) (k : Lean.Name) (v : Lean.Name) :

Equations

Lean.KVMap.setName m k v = Lean.KVMap.insert m k (Lean.DataValue.ofName v)

def Lean.KVMap.setSyntax (m : Lean.KVMap) (k : Lean.Name) (v : Lean.Syntax) :

Equations

Lean.KVMap.setSyntax m k v = Lean.KVMap.insert m k (Lean.DataValue.ofSyntax v)

@[inline]

def Lean.KVMap.forIn {δ : Type w} {m : Type w → Type w'} [inst : Monad m] (kv : Lean.KVMap) (init : δ) (f : Lean.Name × Lean.DataValue → δ → m (ForInStep δ)) :

m δ

Equations

Lean.KVMap.forIn kv init f = List.forIn kv.entries init f

instance Lean.KVMap.instForInKVMapProdNameDataValue {m : Type u_1 → Type u_2} :

ForIn m Lean.KVMap (Lean.Name × Lean.DataValue)

Equations

Lean.KVMap.instForInKVMapProdNameDataValue = { forIn := fun {β} [Monad m] => Lean.KVMap.forIn }

def Lean.KVMap.subsetAux :

List (Lean.Name × Lean.DataValue) → Lean.KVMap → Bool

Equations

Lean.KVMap.subsetAux [] x = true
Lean.KVMap.subsetAux ((k, v₁) :: m₁) x = match Lean.KVMap.find x k with | some v₂ => v₁ == v₂ && Lean.KVMap.subsetAux m₁ x | none => false

def Lean.KVMap.subset :

Lean.KVMap → Lean.KVMap → Bool

Equations

Lean.KVMap.subset x x = match x, x with | { entries := m₁ }, m₂ => Lean.KVMap.subsetAux m₁ m₂

def Lean.KVMap.eqv (m₁ : Lean.KVMap) (m₂ : Lean.KVMap) :

Equations

Lean.KVMap.eqv m₁ m₂ = (Lean.KVMap.subset m₁ m₂ && Lean.KVMap.subset m₂ m₁)

instance Lean.KVMap.instBEqKVMap :

Equations

Lean.KVMap.instBEqKVMap = { beq := Lean.KVMap.eqv }

class Lean.KVMap.Value (α : Type) :

Type

toDataValue : α → Lean.DataValue
ofDataValue? : Lean.DataValue → Option α

Instances

@[inline]

def Lean.KVMap.get? {α : Type} [s : Lean.KVMap.Value α] (m : Lean.KVMap) (k : Lean.Name) :

Equations

Lean.KVMap.get? m k = Option.bind (Lean.KVMap.find m k) Lean.KVMap.Value.ofDataValue?

@[inline]

def Lean.KVMap.get {α : Type} [s : Lean.KVMap.Value α] (m : Lean.KVMap) (k : Lean.Name) (defVal : α) :

α

Equations

Lean.KVMap.get m k defVal = Option.getD (Lean.KVMap.get? m k) defVal

@[inline]

def Lean.KVMap.set {α : Type} [s : Lean.KVMap.Value α] (m : Lean.KVMap) (k : Lean.Name) (v : α) :

Equations

Lean.KVMap.set m k v = Lean.KVMap.insert m k (Lean.KVMap.Value.toDataValue v)

instance Lean.KVMap.instValueDataValue :

Lean.KVMap.Value Lean.DataValue

Equations

Lean.KVMap.instValueDataValue = { toDataValue := id, ofDataValue? := some }

instance Lean.KVMap.instValueBool :

Lean.KVMap.Value Bool

Equations

Lean.KVMap.instValueBool = { toDataValue := Lean.DataValue.ofBool, ofDataValue? := fun x => match x with | Lean.DataValue.ofBool b => some b | x => none }

instance Lean.KVMap.instValueNat :

Lean.KVMap.Value Nat

Equations

Lean.KVMap.instValueNat = { toDataValue := Lean.DataValue.ofNat, ofDataValue? := fun x => match x with | Lean.DataValue.ofNat n => some n | x => none }

instance Lean.KVMap.instValueInt :

Lean.KVMap.Value Int

Equations

Lean.KVMap.instValueInt = { toDataValue := Lean.DataValue.ofInt, ofDataValue? := fun x => match x with | Lean.DataValue.ofInt i => some i | x => none }

instance Lean.KVMap.instValueName :

Lean.KVMap.Value Lean.Name

Equations

Lean.KVMap.instValueName = { toDataValue := Lean.DataValue.ofName, ofDataValue? := fun x => match x with | Lean.DataValue.ofName n => some n | x => none }

instance Lean.KVMap.instValueString :

Lean.KVMap.Value String

Equations

Lean.KVMap.instValueString = { toDataValue := Lean.DataValue.ofString, ofDataValue? := fun x => match x with | Lean.DataValue.ofString n => some n | x => none }

instance Lean.KVMap.instValueSyntax :

Lean.KVMap.Value Lean.Syntax

Equations

Lean.KVMap.instValueSyntax = { toDataValue := Lean.DataValue.ofSyntax, ofDataValue? := fun x => match x with | Lean.DataValue.ofSyntax n => some n | x => none }