fix lemma check

Fixes #36
This commit is contained in:
Alexander Bentkamp
2023-03-02 10:25:34 +01:00
parent c7bf92c168
commit 7748eefa4a
+1 -1
View File
@@ -92,7 +92,7 @@ partial def findForbiddenTactics (inputCtx : Parser.InputContext) (levelParams :
let some (.thmInfo ..) := (← getEnv).find? n
| return () -- not a theroem -> ignore
let lemmasAndDefs := levelParams.lemmas ++ levelParams.definitions
match lemmasAndDefs.find? (fun l => l.name.toString == n) with
match lemmasAndDefs.find? (fun l => l.name == n) with
| none => addErrorMessage info s!"You have not unlocked the lemma/definition '{n}' yet!"
| some lem =>
if lem.locked then