diff options
| author | herbelin | 2009-03-22 21:27:30 +0000 |
|---|---|---|
| committer | herbelin | 2009-03-22 21:27:30 +0000 |
| commit | 171bb32cd6eb1e0f93d10d90d3c81bb3ecc4f6d0 (patch) | |
| tree | 32198494c2d35de9e513c06da1141089b16658c6 /tactics | |
| parent | 277c2832928b33336f86586a093625c733470107 (diff) | |
Compromise wrt introduction-names compatibility issue after addition
of new support for dependent "destruct" over terms in dependent types
(r11944): dependencies in evars are not considered to be a cause of
dependent "destruct".
This solves one of the incompatibilities revealed in contribs. The
other one comes from a "destruct_call" on a truly dependent
goal. Fortunately, dependent destruct makes that destruct_call now
works better and the corresponding script can be shortened
(FSetAVL_prog).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12006 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 83c58ee807..74a7db5721 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2535,7 +2535,7 @@ let find_elim_signature isrec elim hyp0 gl = if isrec then lookup_eliminator mind s else let case = - if occur_term (mkVar hyp0) (pf_concl gl) then make_case_dep + if dependent_no_evar (mkVar hyp0) (pf_concl gl) then make_case_dep else make_case_gen in pf_apply case gl mind s in let elimt = pf_type_of gl elimc in |