diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-26 13:35:21 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-26 13:35:21 +0000 |
| commit | 61035d6001dd784f1f1acf06aba84b3a06972301 (patch) | |
| tree | 105ea2c0e50a4ffa6926afb484eec2a7a13b8382 /pretyping/evd.ml | |
| parent | 47eb59cfa5baf2e67410ba00a0d2b7f32ce80e94 (diff) | |
Backtrack sur commit 11467 (tentative d'optimisation meta_instance qui
s'est avéré ralentir la compilation des user-contribs au final, sans
compter aussi le bug 1980 apparemment introduit par ce commit).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11505 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 2b9a0ed82..b29afc0cb 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -610,18 +610,12 @@ let meta_with_name evd id = (str "Binder name \"" ++ pr_id id ++ strbrk "\" occurs more than once in clause.") -let mk_meta_subst evd = - Metamap.fold (fun mv cl subst -> match cl with - | Clval(_,(b,_),typ) -> (mv, b.rebus) :: subst - | Cltyp (_,typ) -> subst) evd.metas [] let meta_merge evd1 evd2 = {evd2 with metas = List.fold_left (fun m (n,v) -> Metamap.add n v m) evd2.metas (metamap_to_list evd1.metas) } -let replace_metas metas evd = { evd with metas = metas } - type metabinding = metavariable * constr * instance_status let retract_coercible_metas evd = |