inductive Lean.DataValue : Type

Value stored in a key-value map.

• ofString: String → Lean.DataValue
• ofBool: Bool → Lean.DataValue
• ofName: Lake.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 := Lean.beqDataValue✝ }

instance Lean.instReprDataValue : Repr Lean.DataValue

Equations

• Lean.instReprDataValue = { reprPrec := Lean.reprDataValue✝ }

@[export lean_data_value_beq]

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

Equations

• a.beqExp b = (a == b)

@[export lean_mk_bool_data_value]

def Lean.mkBoolDataValueEx (b : Bool) : Lean.DataValue

Equations

• Lean.mkBoolDataValueEx b = Lean.DataValue.ofBool b

@[export lean_data_value_bool]

def Lean.DataValue.getBoolEx : Lean.DataValue → Bool

Equations

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

def Lean.DataValue.sameCtor : Lean.DataValue → Lean.DataValue → Bool

Equations

• One or more equations did not get rendered due to their size.

@[export lean_data_value_to_string]

def Lean.DataValue.str : Lean.DataValue → String

Equations

• One or more equations did not get rendered due to their size.

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 Lake.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

A key-value map. We use it to represent user-selected options and Expr.mdata.

Remark: we do not use RBMap here because we need to manipulate KVMap objects in C++ and RBMap is implemented in Lean. So, we use just a List until we can generate C++ code from Lean code.

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

instance Lean.instInhabitedKVMap : Inhabited Lean.KVMap

Equations

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

instance Lean.instReprKVMap : Repr Lean.KVMap

Equations

• Lean.instReprKVMap = { reprPrec := Lean.reprKVMap✝ }

instance Lean.KVMap.instToString : ToString Lean.KVMap

Equations

• Lean.KVMap.instToString = { toString := fun (m : Lean.KVMap) => toString m.entries }

def Lean.KVMap.empty : Lean.KVMap

Equations

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

def Lean.KVMap.isEmpty : Lean.KVMap → Bool

Equations

• x.isEmpty = match x with | { entries := m } => m.isEmpty

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

Equations

• m.size = m.entries.length

def Lean.KVMap.findCore : List (Lake.Name × Lean.DataValue) → Lake.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 → Lake.Name → Option Lean.DataValue

Equations

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

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

Equations

• m.findD k d₀ = (m.find k).getD d₀

def Lean.KVMap.insertCore : List (Lake.Name × Lean.DataValue) → Lake.Name → Lean.DataValue → List (Lake.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 → Lake.Name → Lean.DataValue → Lean.KVMap

Equations

• x✝¹.insert 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 : Lake.Name) : Bool

Equations

• m.contains n = (m.find n).isSome

def Lean.KVMap.erase : Lean.KVMap → Lake.Name → Lean.KVMap

Erase an entry from the map

Equations

• x✝.erase x = match x✝, x with | { entries := m }, k => { entries := List.filter (fun (a : Lake.Name × Lean.DataValue) => decide (a.fst ≠ k)) m }

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

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

Equations

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

def Lean.KVMap.updateString (m : Lean.KVMap) (k : Lake.Name) (f : String → String) : Lean.KVMap

Update a String entry based on its current value.

Equations

• m.updateString k f = m.insert k (Lean.DataValue.ofString (f (m.getString k)))

def Lean.KVMap.updateNat (m : Lean.KVMap) (k : Lake.Name) (f : Nat → Nat) : Lean.KVMap

Update a Nat entry based on its current value.

Equations

• m.updateNat k f = m.insert k (Lean.DataValue.ofNat (f (m.getNat k)))

def Lean.KVMap.updateInt (m : Lean.KVMap) (k : Lake.Name) (f : Int → Int) : Lean.KVMap

Update an Int entry based on its current value.

Equations

• m.updateInt k f = m.insert k (Lean.DataValue.ofInt (f (m.getInt k)))

def Lean.KVMap.updateBool (m : Lean.KVMap) (k : Lake.Name) (f : Bool → Bool) : Lean.KVMap

Update a Bool entry based on its current value.

Equations

• m.updateBool k f = m.insert k (Lean.DataValue.ofBool (f (m.getBool k)))

def Lean.KVMap.updateName (m : Lean.KVMap) (k : Lake.Name) (f : Lake.Name → Lake.Name) : Lean.KVMap

Update a Name entry based on its current value.

Equations

• m.updateName k f = m.insert k (Lean.DataValue.ofName (f (m.getName k)))

def Lean.KVMap.updateSyntax (m : Lean.KVMap) (k : Lake.Name) (f : Lean.Syntax → Lean.Syntax) : Lean.KVMap

Update a Syntax entry based on its current value.

Equations

• m.updateSyntax k f = m.insert k (Lean.DataValue.ofSyntax (f (m.getSyntax k)))

@[inline]

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

Equations

• kv.forIn init f = kv.entries.forIn init f

instance Lean.KVMap.instForInProdNameDataValue {m : Type u_1 → Type u_2} : ForIn m Lean.KVMap (Lake.Name × Lean.DataValue)

Equations

• Lean.KVMap.instForInProdNameDataValue = { forIn := fun {β : Type u_1} [Monad m] => Lean.KVMap.forIn }

def Lean.KVMap.subsetAux : List (Lake.Name × Lean.DataValue) → Lean.KVMap → Bool

Equations

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

def Lean.KVMap.subset : Lean.KVMap → Lean.KVMap → Bool

Equations

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

def Lean.KVMap.mergeBy (mergeFn : Lake.Name → Lean.DataValue → Lean.DataValue → Lean.DataValue) (l : Lean.KVMap) (r : Lean.KVMap) : Lean.KVMap

Equations

• One or more equations did not get rendered due to their size.

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

Equations

• m₁.eqv m₂ = (m₁.subset m₂ && m₂.subset m₁)

instance Lean.KVMap.instBEq : BEq Lean.KVMap

Equations

• Lean.KVMap.instBEq = { beq := Lean.KVMap.eqv }

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

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

@[inline]

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

Equations

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

@[inline]

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

Equations

• m.get k defVal = (m.get? k).getD defVal

@[inline]

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

Equations

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

@[inline]

def Lean.KVMap.update {α : Type} [Lean.KVMap.Value α] (m : Lean.KVMap) (k : Lake.Name) (f : Option α → Option α) : Lean.KVMap

Equations

• m.update k f = match f (m.get? k) with | some a => m.set k a | none => m.erase k

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 : Lean.DataValue) => 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 : Lean.DataValue) => 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 : Lean.DataValue) => match x with | Lean.DataValue.ofInt i => some i | x => none }

instance Lean.KVMap.instValueName : Lean.KVMap.Value Lake.Name

Equations

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

instance Lean.KVMap.instValueString : Lean.KVMap.Value String

Equations

• One or more equations did not get rendered due to their size.

instance Lean.KVMap.instValueSyntax : Lean.KVMap.Value Lean.Syntax

Equations

• One or more equations did not get rendered due to their size.