b2bc2d2775
@Kha the new test may look exoteric, but it reflects an actual instance in our code base, and the old frontend supports it. Not sure whether we should keep it or not.
21 lines
318 B
Text
21 lines
318 B
Text
#lang lean4
|
||
|
||
structure SCore (α : Type) :=
|
||
(x : α) (y : Nat)
|
||
|
||
inductive M
|
||
| leaf : Nat → M
|
||
| node : SCore M → M
|
||
|
||
abbrev S := SCore M
|
||
|
||
/- We use `s : S` for convenience here -/
|
||
def SCore.doubleY (s : S) : Nat :=
|
||
2 * s.y
|
||
|
||
def f (s : S) : Nat :=
|
||
s.doubleY
|
||
|
||
def g : M → Nat
|
||
| M.leaf n => n
|
||
| M.node s => s.doubleY
|