DibyashanuPati/PhysLean
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor: Lint

Browse source
This commit is contained in:
jstoobysmith 2025-01-23 14:31:03 +00:00
parent fca75098f1
commit 5a25cd0f5c
6 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
HepLean/Meta/Remark/Properties.lean
View file

@ -12,17 +12,20 @@ import HepLean.Meta.Remark.Basic
namespace HepLean
open Lean System Meta
/-- All remarks in the enviroment. -/
def Name.allRemarkInfo : MetaM (List RemarkInfo) := do
let env ← getEnv
let allRemarks := (remarkExtension.getState env)
pure allRemarks.toList
def RemarkInfo.toFullName (r : RemarkInfo) : Name :=
/-- The full name of a remark (name and namespace). -/
def RemarkInfo.toFullName (r : RemarkInfo) : Name :=
if r.nameSpace != .anonymous then
(r.nameSpace.toString ++ "." ++ r.name.toString).toName
else
r.name
/-- A Bool which is true if a name correponds to a remark. -/
def RemarkInfo.IsRemark (n : Name) : MetaM Bool := do
let allRemarks ← Name.allRemarkInfo
let r := allRemarks.find? (fun r => r.toFullName = n)
@ -30,6 +33,7 @@ def RemarkInfo.IsRemark (n : Name) : MetaM Bool := do
| some _ => pure true
| none => pure false
/-- Gets the remarkInfo from a name corresponding to a remark.. -/
def RemarkInfo.getRemarkInfo (n : Name) : MetaM RemarkInfo := do
let allRemarks ← Name.allRemarkInfo
let r := allRemarks.find? (fun r => r.toFullName = n)