diff options
author | 2011-10-07 13:57:13 +0000 | |
---|---|---|
committer | 2011-10-07 13:57:13 +0000 | |
commit | 1f84b509851f3eead190eac2300ee77611ed9ff4 (patch) | |
tree | 8b64f8de1bd1b12aeb91c88fc4e14fb4f5799efe /plugins/subtac/subtac_classes.ml | |
parent | 8ab1c0c6d12c22e25d3ec309610106d2bfdb7ff4 (diff) |
Fix bug #2557 and an issue with Propers for complement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14523 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/subtac/subtac_classes.ml')
-rw-r--r-- | plugins/subtac/subtac_classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_classes.ml b/plugins/subtac/subtac_classes.ml index 9fc3cb59c..000ffc622 100644 --- a/plugins/subtac/subtac_classes.ml +++ b/plugins/subtac/subtac_classes.ml @@ -166,7 +166,7 @@ let new_instance ?(global=false) ctx (instid, bk, cl) props ?(generalize=true) p in let app, ty_constr = instance_constructor k subst in let termtype = it_mkProd_or_LetIn ty_constr (ctx' @ ctx) in - let term = Termops.it_mkLambda_or_LetIn app (ctx' @ ctx) in + let term = Termops.it_mkLambda_or_LetIn (Option.get app) (ctx' @ ctx) in term, termtype | Inr def -> let termtype = it_mkProd_or_LetIn cty ctx in |