diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenvtac.ml | 3 | ||||
| -rw-r--r-- | proofs/clenvtac.mli | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 22dcca2890..624b671d3f 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -60,6 +60,9 @@ let clenv_cast_meta clenv = in crec +let clenv_value_cast_meta clenv = + clenv_cast_meta clenv (clenv_value clenv) + let clenv_pose_dependent_evars with_evars clenv = let dep_mvs = clenv_dependent false clenv in if dep_mvs <> [] & not with_evars then diff --git a/proofs/clenvtac.mli b/proofs/clenvtac.mli index 0cf0a5545d..4dd59fcf65 100644 --- a/proofs/clenvtac.mli +++ b/proofs/clenvtac.mli @@ -27,6 +27,7 @@ val res_pf : clausenv -> ?with_evars:evars_flag -> ?allow_K:bool -> ?flags:unify val elim_res_pf_THEN_i : clausenv -> (clausenv -> tactic array) -> tactic val clenv_pose_dependent_evars : evars_flag -> clausenv -> clausenv +val clenv_value_cast_meta : clausenv -> constr (* Compatibility, use res_pf ?with_evars:true instead *) val e_res_pf : clausenv -> tactic |