From d021c061717cf3b90d0f03bc76de4b38810e0a02 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 1 Oct 2000 13:41:13 +0000
Subject: Chasse aux de-cast inutiles

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@626 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/indrec.ml | 3 +--
 1 file changed, 1 insertion(+), 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                       *)
-- 
cgit v1.2.3