diff options
| author | bertot | 2006-01-25 14:44:54 +0000 |
|---|---|---|
| committer | bertot | 2006-01-25 14:44:54 +0000 |
| commit | a07d4536febf5c5e4a7c635b01195e6b6036724b (patch) | |
| tree | 1b5e42ec33ddf668c4db5196846783e1f3a0bc57 /interp | |
| parent | 884faa97b1034d6cd63e0e881d5ec5af7ecfb5cc (diff) | |
exporting the global reference to the inductive " \/ " in coqlib and
eq_rawconstr in topconstr to prepare the introduction of the new
version of functionnal induction.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7928 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -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 |