diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-07-16 10:34:31 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-07-16 10:34:31 +0000 |
| commit | ea41376804c30a583377c0ca45ad8e1b378838df (patch) | |
| tree | 44275a62fae8d3f8c504be99fe036429a89148ea /pretyping/retyping.ml | |
| parent | 6e09985d21aa103db613d25615f4133d5a483094 (diff) | |
un cas inutile dans un pattern matching
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2885 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/retyping.ml')
| -rw-r--r-- | pretyping/retyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/retyping.ml b/pretyping/retyping.ml index 2380b94c8..35c6a2370 100644 --- a/pretyping/retyping.ml +++ b/pretyping/retyping.ml @@ -84,7 +84,7 @@ let typeur sigma metamap = strip_outer_cast (subst_type env sigma (type_of env f) (Array.to_list args)) | Cast (c,t) -> t - | Sort _ | Prod (_,_,_) | Ind _ -> mkSort (sort_of env cstr) + | Sort _ | Prod _ -> mkSort (sort_of env cstr) and sort_of env t = match kind_of_term t with |