diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-15 14:21:49 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-15 14:21:49 +0000 |
| commit | 7a0f71821e93850ccbe182cf882292a9695834ed (patch) | |
| tree | 30c4749a06787d02f98db169148f3026180fb7c1 /pretyping | |
| parent | f172147decf35906708e4c0896f644ebca9c0eeb (diff) | |
nom de fonction plus simple
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3149 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/termops.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 05e60912b..43d0e1853 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -471,8 +471,7 @@ let subst_term_occ_gen locs occ c t = (!pos, t') let subst_term_occ locs c t = - if locs = [] then - subst_term_gen eq_constr c t + if locs = [] then subst_term c t else if List.mem 0 locs then t else |