diff options
| author | barras | 2002-02-14 15:54:01 +0000 |
|---|---|---|
| committer | barras | 2002-02-14 15:54:01 +0000 |
| commit | 909d7c9edd05868d1fba2dae65e6ff775a41dcbe (patch) | |
| tree | 7a9c1574e278535339336290c1839db09090b668 /proofs | |
| parent | 67f72c93f5f364591224a86c52727867e02a8f71 (diff) | |
- Reforme de la gestion des args recursifs (via arbres reguliers)
- coqtop -byte -opt bouclait!
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2475 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/evar_refiner.ml | 1 | ||||
| -rw-r--r-- | proofs/evar_refiner.mli | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index c88d949af9..7b704b7776 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -87,7 +87,6 @@ let w_type_of wc c = type_of (Global.env_of_context wc.it) wc.sigma c let w_env wc = get_env wc let w_hyps wc = named_context (get_env wc) -let w_defined_const wc sp = defined_constant (w_env wc) sp 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 diff --git a/proofs/evar_refiner.mli b/proofs/evar_refiner.mli index f0c677cb37..5f2c2716bc 100644 --- a/proofs/evar_refiner.mli +++ b/proofs/evar_refiner.mli @@ -66,7 +66,6 @@ val w_whd_betadeltaiota : named_context sigma -> constr -> constr val w_hnf_constr : named_context sigma -> constr -> constr val w_conv_x : named_context sigma -> constr -> constr -> bool val w_const_value : named_context sigma -> constant -> constr -val w_defined_const : named_context sigma -> constant -> bool val w_defined_evar : named_context sigma -> existential_key -> bool val instantiate : evar -> constr -> tactic |