phc/lean4game
6
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

do not check Doc for disabled Tactic/Lemma/Definition

Browse Source
This commit is contained in:
Jon Eugster
2023-03-08 10:34:52 +01:00
parent 93d05c9703
commit b30a14caf0
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
server/leanserver/GameServer/Commands.lean
+3 -3
View File
@@ -209,7 +209,7 @@ elab "NewTactic" args:ident* : command => do
/-- Declare tactics that are temporarily disabled in this level -/ /-- Declare tactics that are temporarily disabled in this level -/
elab "DisabledTactic" args:ident* : command => do elab "DisabledTactic" args:ident* : command => do
let names := args.map (·.getId) let names := args.map (·.getId)
for name in names do checkInventoryDoc .Tactic name -- for name in names do checkInventoryDoc .Tactic name
modifyCurLevel fun level => pure {level with tactics := {level.tactics with disabled := names}} modifyCurLevel fun level => pure {level with tactics := {level.tactics with disabled := names}}
/-- Temporarily disable all tactics except the ones declared here -/ /-- Temporarily disable all tactics except the ones declared here -/
@@ -239,7 +239,7 @@ elab "NewDefinition" args:ident* : command => do
/-- Declare definitions that are temporarily disabled in this level -/ /-- Declare definitions that are temporarily disabled in this level -/
elab "DisabledDefinition" args:ident* : command => do elab "DisabledDefinition" args:ident* : command => do
let names := args.map (·.getId) let names := args.map (·.getId)
for name in names do checkInventoryDoc .Definition name -- for name in names do checkInventoryDoc .Definition name
modifyCurLevel fun level => pure {level with definitions := {level.definitions with disabled := names}} modifyCurLevel fun level => pure {level with definitions := {level.definitions with disabled := names}}
/-- Temporarily disable all definitions except the ones declared here -/ /-- Temporarily disable all definitions except the ones declared here -/
@@ -272,7 +272,7 @@ elab "NewLemma" args:ident* : command => do
/-- Declare lemmas that are temporarily disabled in this level -/ /-- Declare lemmas that are temporarily disabled in this level -/
elab "DisabledLemma" args:ident* : command => do elab "DisabledLemma" args:ident* : command => do
let names := args.map (·.getId) let names := args.map (·.getId)
for name in names do checkInventoryDoc .Lemma name -- for name in names do checkInventoryDoc .Lemma name
modifyCurLevel fun level => pure {level with lemmas := {level.lemmas with disabled := names}} modifyCurLevel fun level => pure {level with lemmas := {level.lemmas with disabled := names}}
/-- Temporarily disable all lemmas except the ones declared here -/ /-- Temporarily disable all lemmas except the ones declared here -/