@[implicit_reducible, always_inline]
instance
Lean.Meta.Sym.Arith.instMonadGetVarOfMonadLift
(m n : Type → Type)
[MonadLift m n]
[MonadGetVar m]
:
Equations
- Lean.Meta.Sym.Arith.instMonadGetVarOfMonadLift m n = { getVar := fun (x : Lean.Grind.CommRing.Var) => liftM (Lean.Meta.Sym.Arith.getVar x) }
@[implicit_reducible, always_inline]
instance
Lean.Meta.Sym.Arith.instMonadMkVarOfMonadLift
(m n : Type → Type)
[MonadLift m n]
[MonadMkVar m]
:
Equations
- Lean.Meta.Sym.Arith.instMonadMkVarOfMonadLift m n = { mkVar := fun (e : Lean.Expr) => liftM (Lean.Meta.Sym.Arith.mkVar e) }