diff options
| author | clrenard | 2001-06-19 08:01:20 +0000 |
|---|---|---|
| committer | clrenard | 2001-06-19 08:01:20 +0000 |
| commit | 1b67538584db416a13a3e83342b798e2b82472da (patch) | |
| tree | aed45584918e9fc4f607a38d0550bfe6d1e62652 | |
| parent | de26f7c4888b7af300222b668c8b1559c98bee7b (diff) | |
Un bug corrige.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1796 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/setoid/setoid_replace.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/setoid/setoid_replace.ml b/contrib/setoid/setoid_replace.ml index 036f0b2575..743302d0db 100644 --- a/contrib/setoid/setoid_replace.ml +++ b/contrib/setoid/setoid_replace.ml @@ -435,7 +435,7 @@ let add_morphism lem_name (m,profil) = let env = Global.env() in let mext = (current_constant lem_name) in let typeofm = (Typing.type_of env Evd.empty m) in - let typ = (nf_betadeltaiota env Evd.empty typeofm) in + let typ = (nf_betaiota typeofm) in let (argsrev, body) = (decompose_prod typ) in let args = List.rev argsrev in let args_t = (List.map snd args) in |