be841a7cad
@Kha I marked the corresponding methods as `protected`. I currently can't stand `throw_error`, and I am optimistic about server highlighting feature you are working on :)
12 lines
211 B
Text
12 lines
211 B
Text
import Lean
|
|
|
|
open Lean
|
|
open Lean.Meta
|
|
|
|
def bug : MetaM Unit := do
|
|
let i := 0
|
|
forallTelescopeReducing arbitrary fun ys _ => do
|
|
let mut j := 0
|
|
for y in ys do
|
|
throwError "#{i+1}"
|
|
j := j + 1
|