chore: add test for 1692

This commit is contained in:
Gabriel Ebner 2022-10-11 13:13:20 -07:00
parent ba57ad3480
commit 6593bd98b3

21
tests/lean/run/1692.lean Normal file
View file

@ -0,0 +1,21 @@
import Lean.Hygiene
def otherInhabited : Inhabited Nat := ⟨42⟩
def f := Id.run do
let ⟨n⟩ ← pure otherInhabited
-- do-notation expands to `pure otherInhabited >>= fun x : Inhabited Nat => ...`
-- the `x : Inhabited Nat` should not be available for TC synth (i.e., `default` should be 0)
return default + n
example : f = 42 := rfl
open Lean
def g : Syntax :=
let rec stx : Syntax := Unhygienic.run `(f 0 1)
let stx := stx
match stx with
| `(f $_args*) => Syntax -- should not resolve to tmp var created by stx matcher
| _ => default
example : g = g.stx := rfl