Skip to content

Commit

Permalink
clean up namespaces
Browse files Browse the repository at this point in the history
  • Loading branch information
lecopivo committed Jul 31, 2023
1 parent d9221cb commit 701c843
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions SciLean/FTrans/FDeriv/Basic.lean
Original file line number Diff line number Diff line change
Expand Up @@ -152,8 +152,7 @@ variable {K}
-- Register `fderiv` as function transformation --------------------------------
--------------------------------------------------------------------------------

open Lean Meta Qq

open Lean Meta Qq in
def fderiv.discharger (e : Expr) : SimpM (Option Expr) := do
withTraceNode `fwdDeriv_discharger (fun _ => return s!"discharge {← ppExpr e}") do
let cache := (← get).cache
Expand All @@ -169,7 +168,7 @@ def fderiv.discharger (e : Expr) : SimpM (Option Expr) := do
let proof? ← tac e
return proof?

open Lean Elab Term FTrans
open Lean Meta FTrans in
def fderiv.ftransExt : FTransExt where
ftransName := ``fderiv

Expand Down Expand Up @@ -232,6 +231,7 @@ def fderiv.ftransExt : FTransExt where


-- register fderiv
open Lean in
#eval show Lean.CoreM Unit from do
modifyEnv (λ env => FTrans.ftransExt.addEntry env (``fderiv, fderiv.ftransExt))

Expand Down

0 comments on commit 701c843

Please sign in to comment.