diff options
author | 2008-12-31 10:57:09 +0000 | |
---|---|---|
committer | 2008-12-31 10:57:09 +0000 | |
commit | 0d03f17a33b43aa87bb201953e4e1a567aac6355 (patch) | |
tree | bfb3179e3de28fee2d900b202de3a4281a062eda /pretyping/cases.ml | |
parent | d3c49a6e536006ff121f01303ddc0a43b4c90e23 (diff) |
Moved parts of Sign to Term. Unified some names (e.g. decomp_n_prod ->
splay_prod_n, lam_it -> it_mkLambda, splay_lambda -> splay_lam). Added
shortcuts for "fst (decompose_prod t)" and co.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11727 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cases.ml')
-rw-r--r-- | pretyping/cases.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index a4d0b25ce..00df4c87a 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1425,10 +1425,10 @@ let adjust_to_extended_env_and_remove_deps env extenv subst t = match b with | Some c -> assert (isRel c); - let p = n + destRel c in aux p (lookup_rel p (rel_context extenv)) + let p = n + destRel c in aux p (lookup_rel p extenv) | None -> (n,ty) in - let (p,ty) = aux p (lookup_rel p (rel_context extenv)) in + let (p,ty) = aux p (lookup_rel p extenv) in if noccur_between_without_evar 1 (n'-p-n+1) ty then let u = lift (n'-n) u in |