diff options
Diffstat (limited to 'library/indrec.ml')
| -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 *) |