diff options
| author | herbelin | 2005-03-01 10:57:34 +0000 |
|---|---|---|
| committer | herbelin | 2005-03-01 10:57:34 +0000 |
| commit | 42537fb14ea0f3aa8ee761dc66bf5c987de8068d (patch) | |
| tree | b72f19a0e5a10d036ff6f6e37bc80a994e634e51 /pretyping | |
| parent | 762c75bf444fbf48a2ef3a119bb343f54e2dc837 (diff) | |
Code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6787 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarutil.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index b0aed65e17..a49d8540b9 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -140,12 +140,6 @@ let meta_instance env b = let nf_meta env c = meta_instance env (mk_freelisted c) -let meta_type env mv = - let ty = - try meta_ftype env mv - with Not_found -> error ("unknown meta ?"^string_of_int mv) in - meta_instance env ty - (**********************) (* Creating new evars *) (**********************) @@ -283,6 +277,7 @@ let real_clean env isevars ev args rhs = if i<=k then t else (try List.assoc (mkRel (i-k)) subst with Not_found -> t) | Evar (ev,args) -> + let args' = Array.map (subs k) args in if need_restriction !evd args' then if Evd.is_defined_evar !evd (ev,args) then |