ca73223d4c
This PR fixes “declaration has free variables” errors when generating a splitter for a match statement with named patterns. Fixes #8274.
20 lines
684 B
Text
20 lines
684 B
Text
set_option linter.unusedVariables false
|
|
|
|
noncomputable def myTest (x : List Bool) : Bool :=
|
|
match hx : x with
|
|
| x'@hx':(x::xs) => false
|
|
| x'@([]) => true
|
|
|
|
-- #check myTest.match_1
|
|
/--
|
|
info: private def myTest.match_1.splitter.{u_1} : (motive : List Bool → Sort u_1) →
|
|
(x : List Bool) →
|
|
((x_1 : Bool) → (xs : List Bool) → x = x_1 :: xs → motive (x_1 :: xs)) → (x = [] → motive []) → motive x :=
|
|
fun motive x h_1 h_2 =>
|
|
List.casesOn (motive := fun x_1 => x = x_1 → motive x_1) x h_2 (fun head tail => h_1 head tail) ⋯
|
|
-/
|
|
#guard_msgs in
|
|
#print myTest.match_1.splitter
|
|
|
|
#guard_msgs in
|
|
example : myTest [] := by unfold myTest; split; contradiction; rfl
|