Additions to Lean.Meta.Basic

Likely these already exist somewhere. Pointers welcome.

def Lean.Meta.preservingMCtx {α : Type} (x : MetaM α) : MetaM α

Restore the metavariable context after execution.

def Lean.Meta.forallMetaTelescopeReducingUntilDefEq (e t : Expr) (kind : MetavarKind := MetavarKind.natural) : MetaM (Array Expr × Array BinderInfo × Expr)

This function is similar to forallMetaTelescopeReducing: Given e of the form forall ..xs, A, this combinator will create a new metavariable for each x in xs until it reaches an x whose type is defeq to t, and instantiate A with these, while also reducing A if needed. It uses forallMetaTelescopeReducing.

This function returns a triple (mvs, bis, out) where

• mvs is an array containing the new metavariables.
• bis is an array containing the binder infos for the mvs.
• out is e but instantiated with the mvs.

@[inline]

def Lean.Meta.pureIsDefEq (e₁ e₂ : Expr) : MetaM Bool

pureIsDefEq e₁ e₂ is short for withNewMCtxDepth <| isDefEq e₁ e₂. Determines whether two expressions are definitionally equal to each other when metavariables are not assignable.

def Lean.Meta.mkRel (n : Name) (lhs rhs : Expr) : MetaM Expr

mkRel n lhs rhs is mkAppM n #[lhs, rhs], but with optimizations for Eq and Iff.