diff options
| author |  Stephane Glondu <steph@glondu.net> | 2010-12-24 11:53:29 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2010-12-24 11:53:29 +0100 |
| commit | 6b691bbd2101fd39395c0d2135fd7c06a8915e14 (patch) | |
| tree | b04b45d1a6f42d19b1428c522d647afbad2f9b83 /plugins/dp/dp.ml | |
| parent | 3e96002677226c0cdaa8f355938a76cfb37a722a (diff) | |
Imported Upstream version 8.3pl1upstream/8.3pl1
Diffstat (limited to 'plugins/dp/dp.ml')
| -rw-r--r-- | plugins/dp/dp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/dp/dp.ml b/plugins/dp/dp.ml index 34b32c0a..ceadd26e 100644 --- a/plugins/dp/dp.ml +++ b/plugins/dp/dp.ml @@ -719,7 +719,7 @@ and tr_formula tv bv env f = | _, [a;b] when c = Lazy.force coq_iff -> Iff (tr_formula tv bv env a, tr_formula tv bv env b) | Prod (n, a, b), _ -> - if is_imp_term f then + if is_Prop (Typing.type_of env Evd.empty a) then Imp (tr_formula tv bv env a, tr_formula tv bv env b) else let id, t, bv, env, b = quantifiers n a b tv bv env in |