diff options
| author | Pierre-Marie Pédrot | 2014-12-29 16:37:56 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-12-29 16:39:48 +0100 |
| commit | b231bc873a1954f0a81a123fb61159e1fa3cf9b7 (patch) | |
| tree | 0566a362ffcdd6e6dca3c0d037d1572f1f97aaa9 | |
| parent | 0fb1a406c6b0ef7a467e05e37eb97263362eb29e (diff) | |
Fixing bug #3632 for good.
| -rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 3d8264ddcd..697664edc7 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -280,7 +280,7 @@ let new_instance ?(abstract=false) ?(global=false) poly ctx (instid, bk, cl) pro let ctx = Evd.universe_context evm in declare_instance_constant k pri global imps ?hook id poly ctx (Option.get term) termtype - else if !refine_instance then begin + else if !refine_instance || Option.is_empty term then begin let kind = Decl_kinds.Global, poly, Decl_kinds.DefinitionBody Decl_kinds.Instance in if Flags.is_program_mode () then let hook vis gr = |