diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-21 19:12:58 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-21 19:12:58 +0000 |
| commit | f687552465f86bfd66ada997a26486b2a20d5363 (patch) | |
| tree | 026113c71989f20ec0073a72ffad606868d2de94 /tactics | |
| parent | b069aa8d6db23269f0c4f250f271411c2a26fcda (diff) | |
Fixing an old pecularity of "red": head betaiota redexes are now
reduced in order to find some head constant to reduce.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16337 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 3def7a48a..59e023762 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -438,6 +438,10 @@ let rec intro_then_gen loc name_flag move_flag force_flag dep_flag tac gl = gl | _ -> if not force_flag then raise (RefinerError IntroNeedsProduct); + (* Note: red_in_concl includes betaiotazeta and this was like *) + (* this since at least V6.3 (a pity *) + (* that intro do betaiotazeta only when reduction is needed; and *) + (* probably also a pity that intro does zeta *) try tclTHEN try_red_in_concl (intro_then_gen loc name_flag move_flag force_flag dep_flag tac) gl |