max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix: fixes #1168

Browse source
This commit is contained in:
Leonardo de Moura 2022-05-30 07:24:23 -07:00
parent fb45eb4964
commit 9818de078b
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Meta/Tactic/Split.lean
View file

@ -137,7 +137,7 @@ private partial def generalizeMatchDiscrs (mvarId : MVarId) (matcherDeclName : N
mkLambdaFVars (ys++altEqsNew) body
altsNew := altsNew.push altNew
return .done { matcherApp with alts := altsNew }.toExpr
transform e pre
transform (← instantiateMVars e) pre
let targetNew ← mkNewTarget (← getMVarType mvarId)
unless (← foundRef.get) do
throwError "'applyMatchSplitter' failed, did not find discriminants"

3
tests/lean/run/1168.lean Normal file
View file

@ -0,0 +1,3 @@
theorem ex : True ∧ (match True with | _ => True) := by
constructor; exact trivial
split; trivial