diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-01 20:23:56 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-01 20:23:56 +0000 |
commit | b13e95e1aa9f3518fb59579a3e8353e34953e54a (patch) | |
tree | 5ccbee9be40f79bd2a37ef94142ebe38464d2fba /contrib/subtac/subtac_pretyping_F.ml | |
parent | a8bd6228440021c2cff5224191143c29bb4d637c (diff) |
Fix some nasty bug with the evars-to-dependent sum encoding.
Also enclose traces with try with clauses to avoid detypinging anomalies.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8889 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/subtac_pretyping_F.ml')
-rw-r--r-- | contrib/subtac/subtac_pretyping_F.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/subtac/subtac_pretyping_F.ml b/contrib/subtac/subtac_pretyping_F.ml index 823ff41af..7bfaa0c5c 100644 --- a/contrib/subtac/subtac_pretyping_F.ml +++ b/contrib/subtac/subtac_pretyping_F.ml @@ -43,7 +43,7 @@ module SubtacPretyping_F (Coercion : Coercion.S) = struct module Cases = Cases.Cases_F(Coercion) (* Allow references to syntaxically inexistent variables (i.e., if applied on an inductive) *) - let allow_anonymous_refs = ref false + let allow_anonymous_refs = ref true let evd_comb0 f isevars = let (evd',x) = f !isevars in |