diff options
author | 2006-11-19 10:39:34 +0000 | |
---|---|---|
committer | 2006-11-19 10:39:34 +0000 | |
commit | 043345f19f76a0a2f45a2281a57d45f6d2459e8a (patch) | |
tree | 83f4b32d7abeb0d8768b588d2d27b0fef2ea175f /tactics/decl_proof_instr.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/decl_proof_instr.ml')
-rw-r--r-- | tactics/decl_proof_instr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/decl_proof_instr.ml b/tactics/decl_proof_instr.ml index e7acd6d64..2e3e0d3c8 100644 --- a/tactics/decl_proof_instr.ml +++ b/tactics/decl_proof_instr.ml @@ -326,7 +326,7 @@ let enstack_subsubgoals env se stack gls= let (nlast,holes,nmetas) = meta_aux se.se_last_meta [] (List.rev rc) in let refiner = applist (appterm,List.rev holes) in - let evd = meta_assign se.se_meta refiner se.se_evd in + let evd = meta_assign se.se_meta (refiner,ConvUpToEta 0) se.se_evd in let ncreated = replace_in_list se.se_meta nmetas se.se_meta_list in let evd0 = List.fold_left @@ -361,7 +361,7 @@ let find_subsubgoal env c ctyp skip evd metas gls = Unification.w_unify true env Reduction.CUMUL ctyp se.se_type se.se_evd in if n <= 0 then - {se with se_evd=meta_assign se.se_meta c unifier} + {se with se_evd=meta_assign se.se_meta (c,ConvUpToEta 0) unifier} else dfs (pred n) with _ -> |