diff options
| author | coqbot-app[bot] | 2020-11-27 13:56:16 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-27 13:56:16 +0000 |
| commit | 2a21e55ead07a0f1c23e78c88ab6c8f9acb56c91 (patch) | |
| tree | aedf61dd8d24780541abeea4fc1289b74bb82b4e /stm | |
| parent | 79d088f5b99855e7f109391a67fe79d0e654da36 (diff) | |
| parent | c6cabd1ff266a91022eb86caf4a99e89c0626430 (diff) | |
Merge PR #13482: Improved error message on nested proofs
Reviewed-by: Zimmi48
Ack-by: gares
Ack-by: jfehrle
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index f7d66b7b53..1c06c1efb7 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2681,8 +2681,10 @@ let process_transaction ~doc ?(newtip=Stateid.fresh ()) | VtStartProof (guarantee, names) -> if not (get_allow_nested_proofs ()) && VCS.proof_nesting () > 0 then - "Nested proofs are not allowed unless you turn the Nested Proofs Allowed flag on." - |> Pp.str + "Nested proofs are discouraged and not allowed by default. \ + This error probably means that you forgot to close the last \"Proof.\" with \"Qed.\" or \"Defined.\". \ + If you really intended to use nested proofs, you can do so by turning the \"Nested Proofs Allowed\" flag on." + |> Pp.strbrk |> (fun s -> (UserError (None, s), Exninfo.null)) |> State.exn_on ~valid:Stateid.dummy newtip |> Exninfo.iraise |