diff options
-rw-r--r-- | dev/top_printers.ml | 1 | ||||
-rw-r--r-- | kernel/term.ml | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 278fdb399..3fc90761d 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -160,6 +160,7 @@ let cast_kind_display k = match k with | VMcast -> "VMcast" | DEFAULTcast -> "DEFAULTcast" + | REVERTcast -> "REVERTcast" let constr_display csr = let rec term_display c = match kind_of_term c with diff --git a/kernel/term.ml b/kernel/term.ml index 1ed918519..a6519e226 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -34,6 +34,8 @@ type existential_key = int type metavariable = int (* This defines the strategy to use for verifiying a Cast *) +(* Warning: REVERTcast is not exported to vo-files; as of r14492, it has to *) +(* come after the vo-exported cast_kind so as to be compatible with coqchk *) type cast_kind = VMcast | DEFAULTcast | REVERTcast (* This defines Cases annotations *) |