diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-06-29 10:50:27 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-06-29 10:50:27 +0000 |
| commit | eee66457ddfd86c65cc1287b4545f828bf43f2dd (patch) | |
| tree | 6de3973e9c383942f47a372c20614454bcf43e3d /tactics | |
| parent | 124f43b6666a2aca97a3189f970dd76e0851c178 (diff) | |
Rien
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@522 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 feb4bf69a..9a03eca97 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1038,7 +1038,7 @@ let induct_discharge indpath statuslists cname destopt avoid (_,t) = [ central_intro (IBasedOn (recvarname,avoid)) destopt false; central_intro (IBasedOn (hyprecname,avoid)) None false; peel_tac c] - | DOP2 (Cast,c,t) -> peel_tac c + | DOP2 (Cast,c,_) -> peel_tac c | DOP2 (Prod,t,DLAM(na,c)) -> tclTHEN (central_intro (IAvoid avoid) destopt false) (peel_tac c) |