diff options
| author | filliatr | 2000-06-21 01:15:42 +0000 |
|---|---|---|
| committer | filliatr | 2000-06-21 01:15:42 +0000 |
| commit | 5378cd45ac34551ea4d265f41b489ff386ea1a49 (patch) | |
| tree | 655fdd402e962863483cdbb40483fcf8b5ab4892 /proofs/tacmach.ml | |
| parent | 18ca75a6fbaf2a1238a3a2e36f51f1e1bf1c2c68 (diff) | |
portage EAuto et Ring
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@513 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 350b3c1db8..ac4287ecb8 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -173,6 +173,7 @@ let w_add_sign = w_add_sign let ctxt_type_of = ctxt_type_of let w_defined_const wc k = defined_constant (w_env wc) k +let w_defined_evar wc k = Evd.is_defined (w_Underlying wc) k let w_const_value wc = constant_value (w_env wc) let w_conv_x wc m n = is_conv (w_env wc) (w_Underlying wc) m n let w_whd_betadeltaiota wc c = whd_betadeltaiota (w_env wc) (w_Underlying wc) c |