diff options
author | 2014-07-27 10:02:47 +0200 | |
---|---|---|
committer | 2014-07-27 10:02:47 +0200 | |
commit | 10d07683104a610949460086d9fcc70a79717b1d (patch) | |
tree | 752f68d26519ced14c342e65898708f22798a317 /plugins/subtac/subtac_pretyping.ml | |
parent | 100dfc287ad57a3245eea312f7aa95c49f8e2a34 (diff) | |
parent | 420f78b2caeaaddc6fe484565b2d0e49c66888e5 (diff) |
Merge tag 'upstream/8.4pl4dfsg'
Upstream version 8.4pl4dfsg
Diffstat (limited to 'plugins/subtac/subtac_pretyping.ml')
-rw-r--r-- | plugins/subtac/subtac_pretyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/subtac/subtac_pretyping.ml b/plugins/subtac/subtac_pretyping.ml index fac6b567..68636574 100644 --- a/plugins/subtac/subtac_pretyping.ml +++ b/plugins/subtac/subtac_pretyping.ml @@ -1,6 +1,6 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) @@ -63,7 +63,7 @@ let my_print_rec_info env t = (* str " in environment: " ++ my_print_env env); *) let interp env isevars c tycon = - let j = pretype tycon env isevars ([],[]) c in + let j = pretype true tycon env isevars ([],[]) c in let _ = isevars := Evarutil.nf_evar_map !isevars in let evd = consider_remaining_unif_problems env !isevars in (* let unevd = undefined_evars evd in *) |