chore: remove temporary workaround

This commit is contained in:
Leonardo de Moura 2022-01-18 12:55:28 -08:00
parent 98289ed3d7
commit a21265281b
2 changed files with 0 additions and 13 deletions

View file

@ -170,9 +170,6 @@ structure Subtype {α : Sort u} (p : α → Prop) where
/-- Auxiliary Declaration used to implement the notation (a : α) -/
@[reducible] def typedExpr (α : Sort u) (a : α) : α := a
-- TODO: delete
@[reducible] def namedPatternOld {α : Sort u} (x a : α) : α := a
/-- Auxiliary Declaration used to implement the named patterns `x@h:p` -/
@[reducible] def namedPattern {α : Sort u} (x a : α) (h : Eq x a) : α := a

View file

@ -685,16 +685,6 @@ where
| none => withBindingBodyUnusedName fun h => do
return (← delab, h.getId)
@[builtinDelab app.namedPatternOld]
def delabNamedPatternOld : Delab := do
-- Note: we keep this as a delaborator because it accesses the DelabM context
guard (← read).inPattern
guard $ (← getExpr).getAppNumArgs == 3
let x ← withAppFn $ withAppArg delab
let p ← withAppArg delab
guard x.isIdent
`($x:ident@$p:term)
@[builtinDelab app.namedPattern]
def delabNamedPattern : Delab := do
-- Note: we keep this as a delaborator because it accesses the DelabM context