diff options
| author | Gaëtan Gilbert | 2018-02-11 12:20:57 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-02-11 12:20:57 +0100 |
| commit | d90cbd60f9f343fc412e4e0926432ae07a885f3f (patch) | |
| tree | 1bf09f6c7d71d926da51d9e1ace20f9f3a213747 | |
| parent | 47e43e229ab02a4dedc2405fed3960a4bf476b58 (diff) | |
dest_{prod,lam}: no Cast case (it's removed by whd)
| -rw-r--r-- | checker/reduction.ml | 2 | ||||
| -rw-r--r-- | kernel/reduction.ml | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index 29bb8901e6..b91674b1ef 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -589,7 +589,6 @@ let dest_prod_assum env = | LetIn (x,b,t,c) -> let d = LocalDef (x,b,t) in prodec_rec (push_rel d env) (d::l) c - | Cast (c,_,_) -> prodec_rec env l c | _ -> let rty' = whd_all env rty in if Term.eq_constr rty' rty then l, rty @@ -607,7 +606,6 @@ let dest_lam_assum env = | LetIn (x,b,t,c) -> let d = LocalDef (x,b,t) in lamec_rec (push_rel d env) (d::l) c - | Cast (c,_,_) -> lamec_rec env l c | _ -> l,rty in lamec_rec env empty_rel_context diff --git a/kernel/reduction.ml b/kernel/reduction.ml index 1724f210db..f26ab77a44 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 |