diff options
| author | herbelin | 2006-11-19 10:39:34 +0000 |
|---|---|---|
| committer | herbelin | 2006-11-19 10:39:34 +0000 |
| commit | 043345f19f76a0a2f45a2281a57d45f6d2459e8a (patch) | |
| tree | 83f4b32d7abeb0d8768b588d2d27b0fef2ea175f /tactics/setoid_replace.ml | |
| parent | 11e1487d594d633b4db9a24eb4e12b25c755d88a (diff) | |
Raffinement de l'unification de "apply": mémorisation de certains
degrés de liberté concernant les instances de méta (cumulativité et
possibilité d'éta-expansion) de telle sorte que la fusion d'équations
se fasse modulo ces degrés de liberté.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9389 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/setoid_replace.ml')
| -rw-r--r-- | tactics/setoid_replace.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index f0dca6b2d1..5da0bb047a 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -1729,7 +1729,7 @@ let check_evar_map_of_evars_defs evd = match binding with Evd.Cltyp (_,{Evd.rebus=rebus; Evd.freemetas=freemetas}) -> check_freemetas_is_empty rebus freemetas - | Evd.Clval (_,{Evd.rebus=rebus1; Evd.freemetas=freemetas1}, + | Evd.Clval (_,({Evd.rebus=rebus1; Evd.freemetas=freemetas1},_), {Evd.rebus=rebus2; Evd.freemetas=freemetas2}) -> check_freemetas_is_empty rebus1 freemetas1 ; check_freemetas_is_empty rebus2 freemetas2 |