b4a6b4f882
TODO: improve the solution. It is too hackish. The issue was reported here https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/.E2.9C.94.20MData.20and.20unification/near/258352713
10 lines
256 B
Text
10 lines
256 B
Text
constant p : Nat → Prop
|
|
constant q : Nat → Prop
|
|
|
|
theorem p_of_q : q x → p x := sorry
|
|
|
|
theorem pletfun : p (let_fun x := 0; x + 1) := by
|
|
-- ⊢ p (let_fun x := 0; x + 1)
|
|
apply p_of_q
|
|
trace_state -- `let_fun` hint should not be consumed.
|
|
sorry
|