11 lines
212 B
Text
11 lines
212 B
Text
import Lean
|
|
|
|
namespace Lean.Meta
|
|
|
|
def f (e : Expr) : MetaM Bool := do
|
|
forallTelescope e fun xs b =>
|
|
match (← uinfoldDefinition? b) with
|
|
| none => pure true
|
|
| some _ => pure false
|
|
|
|
end Lean.Meta
|