diff options
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 1 | ||||
| -rw-r--r-- | stm/vernac_classifier.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 53eb1a3f29..cc960a267a 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -223,3 +223,4 @@ let rec classify_vernac e = let classify_as_query = VtQuery (true,(Stateid.dummy,Feedback.default_route)), VtLater let classify_as_sideeff = VtSideff [], VtLater +let classify_as_proofstep = VtProofStep false, VtLater diff --git a/stm/vernac_classifier.mli b/stm/vernac_classifier.mli index 329c901988..41e3661e6a 100644 --- a/stm/vernac_classifier.mli +++ b/stm/vernac_classifier.mli @@ -24,4 +24,5 @@ val set_undo_classifier : (vernac_expr -> vernac_classification) -> unit (** Standard constant classifiers *) val classify_as_query : vernac_classification val classify_as_sideeff : vernac_classification +val classify_as_proofstep : vernac_classification |