chore: remove temporary workaround
This commit is contained in:
parent
98289ed3d7
commit
a21265281b
2 changed files with 0 additions and 13 deletions
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue