diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-02-28 10:03:11 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-28 10:03:11 +0100 |
commit | db6d0bbf0a881b8867f3411acbedcba5c946c8f8 (patch) | |
tree | fd24a0418587900c92f457791c6d1d8f1a48e9e5 /checker | |
parent | 3a7a2b039761e6cd9aaff6be07e62c76a2781e40 (diff) | |
parent | d90cbd60f9f343fc412e4e0926432ae07a885f3f (diff) |
Merge PR #6734: dest_{prod,lam}: no Cast case (it's removed by whd)
Diffstat (limited to 'checker')
-rw-r--r-- | checker/reduction.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index 2297c90b3..d7d742d8a 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -582,7 +582,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 @@ -600,7 +599,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 |