@@ -269,17 +269,6 @@ elab:max "MDiffAt" t:term:arg : term => do
269269 return ← mkAppM ``MDifferentiableAt #[srcI, tgtI, e]
270270 | _ => throwError m! "Term { e} is not a function."
271271
272- -- FIXME: remove in favour of MDiffAt (once that one is scoped)
273- elab :max "MDifferentiableAt%" t:term:arg : term => do
274- let e ← Term.elabTerm t none
275- let etype ← inferType e >>= instantiateMVars
276- match etype with
277- | .forallE _ src tgt _ =>
278- let srcI ← find_model src
279- let tgtI ← find_model tgt (src, srcI)
280- return ← mkAppM ``MDifferentiableAt #[srcI, tgtI, e]
281- | _ => throwError m! "Term { e} is not a function."
282-
283272/-- `MDiff[s] f` elaborates to `MDifferentiableOn I J f`,
284273trying to determine `I` and `J` from the local context. -/
285274elab :max "MDiff[" s:term:arg "]" t:term:arg : term => do
@@ -370,17 +359,4 @@ elab:max "CMDiff" nt:term:arg t:term:arg : term => do
370359 return ← mkAppM ``ContMDiff #[srcI, tgtI, ne, e]
371360 | _ => throwError m! "Term { e} is not a function."
372361
373- -- TODO: remove in favour of CMDiff (after aligning their behaviour and adding a test for it!)
374- elab :max "ContMDiff%" nt:term:arg t:term:arg : term => do
375- let e ← Term.elabTerm t none
376- let wtn ← Term.elabTerm (← `(WithTop ℕ∞)) none
377- let ne ← Term.elabTermEnsuringType nt wtn
378- let etype ← inferType e >>= instantiateMVars
379- match etype with
380- | .forallE _ src tgt _ =>
381- let srcI ← find_model src
382- let tgtI ← find_model tgt (src, srcI)
383- return ← mkAppM ``ContMDiff #[srcI, tgtI, ne, e]
384- | _ => throwError m! "Term { e} is not a function."
385-
386362end
0 commit comments