diff options
| -rw-r--r-- | interp/coqlib.ml | 1 | ||||
| -rw-r--r-- | interp/coqlib.mli | 2 | ||||
| -rw-r--r-- | interp/topconstr.mli | 2 |
3 files changed, 5 insertions, 0 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 785291b84e..b8a93cf3a5 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -251,4 +251,5 @@ let coq_not_ref = lazy (init_reference ["Logic"] "not") let coq_False_ref = lazy (init_reference ["Logic"] "False") let coq_sumbool_ref = lazy (init_reference ["Specif"] "sumbool") let coq_sig_ref = lazy (init_reference ["Specif"] "sig") +let coq_or_ref = lazy (init_reference ["Logic"] "or") diff --git a/interp/coqlib.mli b/interp/coqlib.mli index 2d25228058..0848c30846 100644 --- a/interp/coqlib.mli +++ b/interp/coqlib.mli @@ -123,3 +123,5 @@ val coq_not_ref : global_reference lazy_t val coq_False_ref : global_reference lazy_t val coq_sumbool_ref : global_reference lazy_t val coq_sig_ref : global_reference lazy_t + +val coq_or_ref : global_reference lazy_t diff --git a/interp/topconstr.mli b/interp/topconstr.mli index d6f7dbd037..11475cdaa2 100644 --- a/interp/topconstr.mli +++ b/interp/topconstr.mli @@ -53,6 +53,8 @@ val subst_aconstr : substitution -> Names.identifier list -> aconstr -> aconstr val aconstr_of_rawconstr : identifier list -> rawconstr -> aconstr +val eq_rawconstr : rawconstr -> rawconstr -> bool + (* [match_aconstr metas] match a rawconstr against an aconstr with metavariables in [metas]; it raises [No_match] if the matching fails *) exception No_match |