max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix: mvar check trace message

Browse source
This commit is contained in:
Sebastian Ullrich 2021-01-15 13:11:30 +01:00
parent 720f06d251
commit dc77c45787
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Meta/ExprDefEq.lean
View file

@ -566,7 +566,7 @@ instance : MonadCache Expr Expr CheckAssignmentM := {
private def addAssignmentInfo (msg : MessageData) : CheckAssignmentM MessageData := do
let ctx ← read
return m!" @ {mkMVar ctx.mvarId} {ctx.fvars} := {ctx.rhs}"
return m!"{msg} @ {mkMVar ctx.mvarId} {ctx.fvars} := {ctx.rhs}"
@[specialize] def checkFVar (check : Expr → CheckAssignmentM Expr) (fvar : Expr) : CheckAssignmentM Expr := do
let ctxMeta ← readThe Meta.Context