1b4360c32a
This PR unfolds auxillary theorems more aggressively during termination checking. This fixes #10721.
29 lines
677 B
Text
29 lines
677 B
Text
import Lean.Syntax
|
|
|
|
open Lean
|
|
|
|
private partial def onlyIdent' : Syntax → Bool
|
|
| .node _ _ args =>
|
|
let nonEmpty := args.filter (!isEmpty ·)
|
|
if h : nonEmpty.size = 1 then onlyIdent' nonEmpty[0]
|
|
else false
|
|
| .ident .. => true
|
|
| _ => false
|
|
where
|
|
isEmpty : Syntax → Bool
|
|
| .node _ _ xs =>
|
|
xs.all isEmpty
|
|
| _ => false
|
|
|
|
partial def onlyIdent'' : Syntax → Bool
|
|
| .node _ _ args =>
|
|
let nonEmpty := args.filter (!isEmpty () ·)
|
|
if h : nonEmpty.size = 1 then onlyIdent'' nonEmpty[0]
|
|
else false
|
|
| .ident .. => true
|
|
| _ => false
|
|
where
|
|
isEmpty : Unit → Syntax → Bool
|
|
| _, .node _ _ xs =>
|
|
xs.all (isEmpty ())
|
|
| _, _ => false
|