diff options
| author | Maxime Dénès | 2018-12-22 02:04:26 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2019-01-24 16:46:17 +0100 |
| commit | 309cf3d3d6fe57ba9c15c32872b42433596c7748 (patch) | |
| tree | bfe48784396347d1081f4342de4bcca2afe4b397 /vernac | |
| parent | 1006fd52c03e7d8ea1d0b612df168f21c9b56455 (diff) | |
Make `Instance` without a body always open a proof.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/classes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 748a2628c5..5cac6af4b2 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -269,9 +269,9 @@ let do_instance env env' sigma ?hook ~refine ~tac ~global ~poly ~program_mode ct Pretyping.check_evars env (Evd.from_env env) sigma termtype; let termtype = to_constr sigma termtype in let term = Option.map (to_constr ~abort_on_undefined_evars:false sigma) term in - if not (Evd.has_undefined sigma) && not (Option.is_empty term) then + if not (Evd.has_undefined sigma) && not (Option.is_empty props) then declare_instance_constant k pri global imps ?hook id decl poly sigma (Option.get term) termtype - else if program_mode || refine || Option.is_empty term then + else if program_mode || refine || Option.is_empty props then declare_instance_open env sigma ?hook ~tac ~program_mode ~global ~poly k id pri imps decl (List.map RelDecl.get_name ctx) term termtype else CErrors.user_err Pp.(str "Unsolved obligations remaining."); id |