diff options
| author | herbelin | 2000-10-01 13:41:13 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-01 13:41:13 +0000 |
| commit | d021c061717cf3b90d0f03bc76de4b38810e0a02 (patch) | |
| tree | d6cb9aece409c83634c30bd20738bc260c438c83 /library | |
| parent | 42085181ecb76f83fe34c74ff668d2cf0b26678a (diff) | |
Chasse aux de-cast inutiles
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@626 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/indrec.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/indrec.ml b/library/indrec.ml index 2a2e83721d..841c2ac38c 100644 --- a/library/indrec.ml +++ b/library/indrec.ml @@ -377,8 +377,7 @@ let build_mutual_indrec env sigma = function let build_indrec env sigma mispec = let kind = mis_sort mispec in let dep = kind <> Prop Null in - strip_all_casts - (List.hd (mis_make_indrec env sigma [(mispec,dep,kind)] mispec)) + List.hd (mis_make_indrec env sigma [(mispec,dep,kind)] mispec) (**********************************************************************) (* To handle old Case/Match syntax in Pretyping *) |