From d90cbd60f9f343fc412e4e0926432ae07a885f3f Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net>
Date: Sun, 11 Feb 2018 12:20:57 +0100
Subject: dest_{prod,lam}: no Cast case (it's removed by whd)

---
 kernel/reduction.ml | 2 --
 1 file changed, 2 deletions(-)

(limited to 'kernel/reduction.ml')

diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index 1724f210d..f26ab77a4 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -960,7 +960,6 @@ let dest_prod_assum env =
     | LetIn (x,b,t,c) ->
         let d = LocalDef (x,b,t) in
 	prodec_rec (push_rel d env) (Context.Rel.add d l) c
-    | Cast (c,_,_)    -> prodec_rec env l c
     | _               ->
       let rty' = whd_all env rty in
 	if Constr.equal rty' rty then l, rty
@@ -978,7 +977,6 @@ let dest_lam_assum env =
     | LetIn (x,b,t,c) ->
         let d = LocalDef (x,b,t) in
 	lamec_rec (push_rel d env) (Context.Rel.add d l) c
-    | Cast (c,_,_)    -> lamec_rec env l c
     | _               -> l,rty
   in
   lamec_rec env Context.Rel.empty
-- 
cgit v1.2.3