Skip to content

Commit 346ae70

Browse files
committed
It works now \o/ \o/
1 parent c507902 commit 346ae70

1 file changed

Lines changed: 3 additions & 5 deletions

File tree

Mathlib/Geometry/Manifold/MFDeriv/NormedSpace.lean

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -415,11 +415,9 @@ noncomputable def mvfderiv (g : M → F) :
415415

416416
namespace Manifold
417417
open scoped Bundle Manifold ContDiff
418+
open Lean Meta Elab Tactic Doc
418419

419-
open Lean Meta Elab Tactic
420-
421-
open Doc
422-
@[doc_command] def foobar (n : Ident) : DocM <| Block ElabInline ElabBlock := do
420+
@[doc_command] meta def appendDocstringOf (n : Ident) : DocM <| Block ElabInline ElabBlock := do
423421
let doc ← realizeGlobalConstNoOverloadWithInfo n
424422
let some docStr ← findDocString? (← getEnv) doc
425423
| throwError "No doc-string for `{.ofConstName doc}`"
@@ -433,7 +431,7 @@ set_option doc.verso.suggestions false in
433431
/-- `d% f x` (scoped to the `Manifold` namespace) elaborates to `mvfderiv I J f x`,
434432
trying to determine `I` and `J` from the local context.
435433
436-
{foobar} -/
434+
{appendDocstringOf mvfderiv} -/
437435
-- goal: now insert the doc-string of mvfderiv
438436
scoped elab:max "d%" ppSpace t:term:arg : term => do
439437
let e ← ensureIsFunction <| ← Term.elabTerm t none

0 commit comments

Comments
 (0)