4506173a27
This PR changes the lowering of `Quot.lcInv` (the compiler-internal form of `Quot.lift`) in `toMono` to support overapplication. Fixes #9806.
5 lines
137 B
Text
5 lines
137 B
Text
def foo : Squash (Unit → Bool) := .mk fun _ => false
|
|
|
|
def bar : Squash Bool := foo.lift fun f => .mk !f ()
|
|
|
|
#eval IO.println bar.lcInv
|