diff options
| author | msozeau | 2011-10-07 13:57:13 +0000 |
|---|---|---|
| committer | msozeau | 2011-10-07 13:57:13 +0000 |
| commit | 1f84b509851f3eead190eac2300ee77611ed9ff4 (patch) | |
| tree | 8b64f8de1bd1b12aeb91c88fc4e14fb4f5799efe /toplevel/autoinstance.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 'toplevel/autoinstance.ml')
| -rw-r--r-- | toplevel/autoinstance.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/autoinstance.ml b/toplevel/autoinstance.ml index d6e88ed2c5..34ecab2d5e 100644 --- a/toplevel/autoinstance.ml +++ b/toplevel/autoinstance.ml @@ -190,7 +190,7 @@ let declare_class_instance gr ctx params = let ident = make_instance_ident gr in let cl = Typeclasses.class_info gr in let (def,typ) = Typeclasses.instance_constructor cl params in - let (def,typ) = it_mkLambda_or_LetIn def ctx, it_mkProd_or_LetIn typ ctx in + let (def,typ) = it_mkLambda_or_LetIn (Option.get def) ctx, it_mkProd_or_LetIn typ ctx in let def = deep_refresh_universes def in let typ = deep_refresh_universes typ in let ce = Entries.DefinitionEntry |