refactor: remove use of liftCommandElabM from Coinductive (#13782)
This PR eliminates the use of `liftCommandElabM` from the coinductive module. Context: `liftCommandElabM` was decided to be deprecated in issue #10674.
This commit is contained in:
parent
a0de9024e9
commit
3bb1493139
1 changed files with 2 additions and 4 deletions
|
|
@ -411,10 +411,8 @@ private def mkCasesOnCoinductive (infos : Array InductiveVal) : MetaM Unit := do
|
|||
(value := originalCasesOn)
|
||||
(hints := .opaque)
|
||||
-- We apply the attribute so that the `cases` tactic can pick it up
|
||||
liftCommandElabM
|
||||
<| liftTermElabM
|
||||
<| Term.applyAttributes
|
||||
casesOnName #[{name := `cases_eliminator}, {name := `elab_as_elim}]
|
||||
Term.TermElabM.run' <| Term.applyAttributes
|
||||
casesOnName #[{name := `cases_eliminator}, {name := `elab_as_elim}]
|
||||
|
||||
/--
|
||||
Main entry point for elaborating mutual coinductive predicates. This function is called after
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue