File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -171,8 +171,6 @@ def getProofStatus (proofState : ProofSnapshot) : M m String := do
171
171
| some pf => do
172
172
let pf ← instantiateMVars pf
173
173
let pft ← Meta.inferType pf >>= instantiateMVars
174
- if pf.hasSorry then
175
- return "Incomplete: contains sorry"
176
174
if pf.hasExprMVar then
177
175
return "Incomplete: contains metavariable(s)"
178
176
@@ -189,6 +187,10 @@ def getProofStatus (proofState : ProofSnapshot) : M m String := do
189
187
let _ ← addDecl decl
190
188
catch ex =>
191
189
return s! "Error: kernel type check failed: { ← ex.toMessageData.toString} "
190
+
191
+ if pf.hasSorry then
192
+ return "Incomplete: contains sorry"
193
+
192
194
return "Completed"
193
195
194
196
| _ => return "Not verified: more than one initial goal"
You can’t perform that action at this time.
0 commit comments