Skip to content

Commit 1a8f085

Browse files
committed
Make pf.hasSorry the last check so that it can be safely ignored.
1 parent ddc5830 commit 1a8f085

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

REPL/Main.lean

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -171,8 +171,6 @@ def getProofStatus (proofState : ProofSnapshot) : M m String := do
171171
| some pf => do
172172
let pf ← instantiateMVars pf
173173
let pft ← Meta.inferType pf >>= instantiateMVars
174-
if pf.hasSorry then
175-
return "Incomplete: contains sorry"
176174
if pf.hasExprMVar then
177175
return "Incomplete: contains metavariable(s)"
178176

@@ -189,6 +187,10 @@ def getProofStatus (proofState : ProofSnapshot) : M m String := do
189187
let _ ← addDecl decl
190188
catch ex =>
191189
return s!"Error: kernel type check failed: {← ex.toMessageData.toString}"
190+
191+
if pf.hasSorry then
192+
return "Incomplete: contains sorry"
193+
192194
return "Completed"
193195

194196
| _ => return "Not verified: more than one initial goal"

0 commit comments

Comments
 (0)