lean4-htt/tests/elab/double_match.lean
Garmelon 08eb78a5b2
chore: switch to new test/bench suite (#12590)
This PR sets up the new integrated test/bench suite. It then migrates
all benchmarks and some related tests to the new suite. There's also
some documentation and some linting.

For now, a lot of the old tests are left alone so this PR doesn't become
even larger than it already is. Eventually, all tests should be migrated
to the new suite though so there isn't a confusing mix of two systems.
2026-02-25 13:51:53 +00:00

23 lines
556 B
Text

/--
trace: [Compiler.saveMono] size: 7
def foo f x : Option Nat :=
let _x.1 := f x;
cases _x.1 : Option Nat
| Option.some val.2 =>
let _x.3 := Nat.add val.2 val.2;
let _x.4 := some ◾ _x.3;
return _x.4
| _ =>
let _x.5 := none ◾;
return _x.5
-/
#guard_msgs in
set_option trace.Compiler.saveMono true in
def foo (f : Nat → Option Nat) (x : Nat) : Option Nat :=
if let some val := f x then
if let some val2 := f x then
some <| val + val2
else
none
else
none