Revert "DisableTheorem and co. should not warn if doc does not exist"

This reverts commit 381930e547.
pull/205/head
Jon Eugster 2 years ago
parent f55581a5f2
commit 6cdbfbd9cb

@ -250,7 +250,7 @@ elab "NewDefinition" args:ident* : command => do
This is ignored if `OnlyTactic` is set. -/ This is ignored if `OnlyTactic` is set. -/
elab "DisabledTactic" args:ident* : command => do elab "DisabledTactic" args:ident* : command => do
checkCommandNotDuplicated ((←getCurLevel).tactics.disabled) "DisabledTactic" checkCommandNotDuplicated ((←getCurLevel).tactics.disabled) "DisabledTactic"
-- for name in ↑args do checkInventoryDoc .Tactic name for name in ↑args do checkInventoryDoc .Tactic name
modifyCurLevel fun level => pure {level with modifyCurLevel fun level => pure {level with
tactics := {level.tactics with disabled := args.map (·.getId)}} tactics := {level.tactics with disabled := args.map (·.getId)}}
@ -258,28 +258,28 @@ elab "DisabledTactic" args:ident* : command => do
This is ignored if `OnlyTheorem` is set. -/ This is ignored if `OnlyTheorem` is set. -/
elab "DisabledTheorem" args:ident* : command => do elab "DisabledTheorem" args:ident* : command => do
checkCommandNotDuplicated ((←getCurLevel).lemmas.disabled) "DisabledTheorem" checkCommandNotDuplicated ((←getCurLevel).lemmas.disabled) "DisabledTheorem"
-- for name in ↑args do checkInventoryDoc .Lemma name for name in ↑args do checkInventoryDoc .Lemma name
modifyCurLevel fun level => pure {level with modifyCurLevel fun level => pure {level with
lemmas := {level.lemmas with disabled := args.map (·.getId)}} lemmas := {level.lemmas with disabled := args.map (·.getId)}}
/-- 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
checkCommandNotDuplicated ((←getCurLevel).definitions.disabled) "DisabledDefinition" checkCommandNotDuplicated ((←getCurLevel).definitions.disabled) "DisabledDefinition"
-- for name in ↑args do checkInventoryDoc .Definition name for name in ↑args do checkInventoryDoc .Definition name
modifyCurLevel fun level => pure {level with modifyCurLevel fun level => pure {level with
definitions := {level.definitions with disabled := args.map (·.getId)}} definitions := {level.definitions with disabled := args.map (·.getId)}}
/-- Temporarily disable all tactics except the ones declared here -/ /-- Temporarily disable all tactics except the ones declared here -/
elab "OnlyTactic" args:ident* : command => do elab "OnlyTactic" args:ident* : command => do
checkCommandNotDuplicated ((←getCurLevel).tactics.only) "OnlyTactic" checkCommandNotDuplicated ((←getCurLevel).tactics.only) "OnlyTactic"
-- for name in ↑args do checkInventoryDoc .Tactic name for name in ↑args do checkInventoryDoc .Tactic name
modifyCurLevel fun level => pure {level with modifyCurLevel fun level => pure {level with
tactics := {level.tactics with only := args.map (·.getId)}} tactics := {level.tactics with only := args.map (·.getId)}}
/-- Temporarily disable all theorems except the ones declared here -/ /-- Temporarily disable all theorems except the ones declared here -/
elab "OnlyTheorem" args:ident* : command => do elab "OnlyTheorem" args:ident* : command => do
checkCommandNotDuplicated ((←getCurLevel).lemmas.only) "OnlyTheorem" checkCommandNotDuplicated ((←getCurLevel).lemmas.only) "OnlyTheorem"
-- for name in ↑args do checkInventoryDoc .Lemma name for name in ↑args do checkInventoryDoc .Lemma name
modifyCurLevel fun level => pure {level with modifyCurLevel fun level => pure {level with
lemmas := {level.lemmas with only := args.map (·.getId)}} lemmas := {level.lemmas with only := args.map (·.getId)}}
@ -287,7 +287,7 @@ elab "OnlyTheorem" args:ident* : command => do
This is ignored if `OnlyDefinition` is set. -/ This is ignored if `OnlyDefinition` is set. -/
elab "OnlyDefinition" args:ident* : command => do elab "OnlyDefinition" args:ident* : command => do
checkCommandNotDuplicated ((←getCurLevel).definitions.only) "OnlyDefinition" checkCommandNotDuplicated ((←getCurLevel).definitions.only) "OnlyDefinition"
-- for name in ↑args do checkInventoryDoc .Definition name for name in ↑args do checkInventoryDoc .Definition name
modifyCurLevel fun level => pure {level with modifyCurLevel fun level => pure {level with
definitions := {level.definitions with only := args.map (·.getId)}} definitions := {level.definitions with only := args.map (·.getId)}}

Binary file not shown.
Loading…
Cancel
Save